كود للضغط على F5

السلام عليكم أخي الكريم

هذه المثال من أختننا الغالية زهرة

ضع هذا الكود عند التحميل النموذج لكي يعمل الكود لضغط مفتاح F5

Private Sub Form_Load()
Me.KeyPreview = True
End Sub

و هذا الكود الخاص لمفتاح F5

Private Sub إسم الحقل_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyF5 Then
DoCmd.OpenFormName
End If
End Sub

بالتوفيق

و بارك الله بأختنا زهرة

شكرا لك اخي على الكود

اكيد كل الشكر لمشرفتنا على اهتمامها الدائم بكل المشاركات

اضيف على كلامك اخي الفاضل عندما اعمل تحديث للنموذج يعمل التحديث بنجاح

ولكن يقوم بالانتقال للسجل الاول وهذا مشكله بحد ذاتها ارجو من الاخوان من عنده حل لهذا يتفضل به .

السلام عليكم

ضع هذا في نهاية الكود

DoCmd.GoToRecord , , acNewRec

ينتقل إلى سجل جديد

أو

DoCmd.GoToRecord , , acLast

ينتقل إلى آخر سجل تم تسجيله

هذا والله أعلم

*^*البحر*^* كتب:

السلام عليكم

ضع هذا في نهاية الكود

DoCmd.GoToRecord , , acNewRec

ينتقل إلى سجل جديد

أو

DoCmd.GoToRecord , , acLast

ينتقل إلى آخر سجل تم تسجيله

هذا والله أعلم

بالفعل هذا ما اريد شكرا لك اخي الفاضل

abdalla89 كتب:

السلام عليكم

كما قلت في مشاركتي السابقة

كود رائع و عمل اروع

لكن السؤال الذي يطرح نفسه بقوة

كيف يمكن ان نجعل الكود يقوم بالعمل بالضغط على زرين مثل كونتر مع ديليت او كونتر مع الزر الاعلى او الاسفل

المهم زرين وليس زر واحد

وشكرا

ضع هذا الكود في حدث عند التحميل للنموذج

Private Sub Form_Load()
Me.KeyPreview = True
End Sub

هذا كود عند الضغط على المفتاحين معا ( CTRL و مفتاح السهم لأعلى )

Private Sub MyText01_KeyDown(KeyCode As Integer, Shift As Integer)
Dim shiftdown As Variant
shiftdown = (Shift And CTRL_MASK)
If shiftdown And (KeyCode = 38) Then
DoCmd.OpenForm "MyForm"
End If
End Sub

حيث MyText01 هو مربع النص الخاص بك

و MyForm هو اسم النموذج المراد فتحه بعد الضغط على المفتاحين معا

هذا كود عند الضغط على المفتاحين معا ( CTRL و مفتاح السهم لأسفل )

Private Sub MyText01_KeyDown(KeyCode As Integer, Shift As Integer)
Dim shiftdown As Variant
shiftdown = (Shift And CTRL_MASK)
If shiftdown And (KeyCode = 40) Then
DoCmd.OpenForm "MyForm"
End If
End Sub

حيث MyText01 هو مربع النص الخاص بك

و MyForm هو اسم النموذج المراد فتحه بعد الضغط على المفتاحين معا

هذا كود عند الضغط على المفتاحين معا ( CTRL و Delete )

Private Sub MyText01_KeyDown(KeyCode As Integer, Shift As Integer)
Dim shiftdown As Variant
shiftdown = (Shift And CTRL_MASK)
If shiftdown And (KeyCode = 46) Then
DoCmd.OpenForm "MyForm"
End If
End Sub

حيث MyText01 هو مربع النص الخاص بك

و MyForm هو اسم النموذج المراد فتحه بعد الضغط على المفتاحين معا

بالتوفيق