كيفية اضافة سجل جديد عن طريق زر F12

[محمود _ المصري]

السلام عليكم ورحمة الله وبركاتة

لدي نموذج رئيسي باسم SH لتسجيل رقم الفاتورة وتاريخها وهذا يتم تسجيلة تلقائيا بدون تدخل اليوزر وبة نموذج فرعي باسم  SH_A_F ويتم تسجيل الاصناف المشتراة به

سؤالي هو كيفية اضافة سجل جديد لنموذج رئيسي عن طريق استخدام الكيب وورد F12 ونقل التركيز علي النموذج الفرعي مباشرتاً بعمود الباركود

وعند الانتهاء من تسجيل بيانات الفاتورة يقوم بالضغط مرة اخري F12 لاضافة فاتورة جديدة ويكون التركيز ايضا علي عمود الباركود

حيث ان هذه الطريقة ستسهل علي مدخل البيانات كثيرا وذلك بعدم استخدام الماوس وقاري الباركود في انن واحد

واسف للاطالة

ولكم مني جزيل الشكر

SOBAR.rar

 

حوالات جديد.rar

تم تعديل أكتوبر 19, 2017 بواسطه محمود _ المصري

[يوسف أحمد]

و عليكم السلام و رحمة الله و بركاته

 

اخي العزيز محمود

 

لعمل ذلك ضع الكود التالي في حدث عند مفتاح للاسفل لمربع النص الخاص بكود فاتورة الشراء

If KeyCode = vbKeyF12 Then
    DoCmd.GoToRecord , , acNewRec
    Me.SH_A_F.Form!BAR_COD.SetFocus
 End If

تفضل المرفق بعد التعديل

 

بالتوفيق

SOBAR (2).rar

[Shivan Rekany]

اضافتا على ما قال استاذنا الحبيب يوسف احمد
يجب ان يكون خاصية key preview للنموذج يساوي yes او عند فتح النمو«ج ان تستخدم ھذا الكود
 

Me.KeyPreview = True

ولانك تريد عند الضغط على F12 ان یفتح سجل جدید و یرکز الى حقل باركود
اتفضل اليك هذا للنموذج الفرعي
 

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyF12 Then
    Forms!sh!SH_NO.SetFocus
    DoCmd.GoToRecord , , acNewRec
    Forms!sh!SH_A_F.SetFocus
    Me.BAR_COD.SetFocus
 End If
End Sub

لكن يجب ان تضغط على Shift او Ctrl مع F12
 

[محمود _ المصري]

سلمت يداك اخي يوسف

وسلمت يداك اخي شفان

ربنا ما يحرمنا منكم

تم تعديل أكتوبر 19, 2017 بواسطه محمود _ المصري