فتح انموذج باستخدام F5 او F7 وزر

up

up

ضع هذا الكود فى نموذج 1

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

    If KeyCode = vbKeyF7 Then
        If Shift = 2 Then
            DoCmd.OpenForm "3"
        End If
    End If

End Sub

Private Sub Form_Open(Cancel As Integer)
Me.KeyPreview = True
End Sub

بالنسية للتحديث

حدد أى الحقول تريد تحديثها

ربي يرعاك واشكرك اخي العزيز

كنت اريد استخدامه في تحديث التاريخ الهجري

في المثال المرفق

و الذي ساعدتني فيه

في ادراج التاريخ الهجري

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

ارجو مساعدتي

حين اغلاق انموذج tab_acc

يتم تحديث انموذج 1 و مع انموذج الفرعي

Database1.zip

up

أنت تريد تحديث القيمة الافتراضية للحقول

أسهل طريقة هى اغلاق النموذج الاول عند فتى الثانى

ثم اعادة فتحه عند اغلاق النموذج الثانى

Database1.rar

ربي يعطيك العافيه

هذه الفكره كانت الخطة البديلة

ولكني نت اطمح الى فكرة جديده و مبتكره

اشكرك على المساعده

ربي يوفقك الف الف شكر لك اخي الكريم

ممكن شرج الكود اخي العزيز

rivate Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

    If KeyCode = vbKeyF7 Then
        If Shift = 2 Then
            DoCmd.OpenForm "3"
        End If
    End If

End Sub

Private Sub Form_Open(Cancel As Integer)
Me.KeyPreview = True
End Sub

وما هي الجملة او ارمز الذي يدل على زر ctrl

واذا اردنا تبديل من زر ctrl الى زر Alt

كيف يتم ذالك

طيب اليك هذه الفكرة

احذف كود الاغلاق من النموذج 1

و كود فتحه فى النموذج tab_acc

و فى حدث عند اغلاق النموذج tab_acc

ضع هذا الكود

Forms![1].[2 نموذج فرعي].Form.Requery

If Shift = 2 Then

جرب تغيير الرقم كالتالى

1 هو SHIFT

2 هو CTRL

4 هو ALT

ربي يعطيك الف الف عافيه

سوال

اذا كان

1 هو SHIFT

2 هو CTRL

4 هو ALT

3 من هو في قائمه لوحة المفاتيح

فى حد علمى لا يوجد غير القيم الثلاث 1 و 2 و 4