كيف يمكنني التحكم في Barcode عند الأدخال في خانة النص

أكتب في حدث بعد التحديث AfterUpdate

[الكمية].SetFocus

ولو أني أشك أن المؤشر عند خروجه من خلية رقم الصنف فلن يتمكن من تنفيذ هذه العبارة

فأقترح عليك أن تجعل قيمة الـ Tab Index للكمية هي قيمة حقل الرقم زائدا واحد أي بمعنى :

إذا كانت قيمة التاب إندكس للرقم 5 تكون قيمة التاب إندكس للكمية هي 6

شكراً يا استاذي الكريم على سرعة استجابتك لي ومحاولة مساعدتي ولكن ليست المشكلة في الإنتقال ولكن المشكلة في على أي اساس انتقل من خانة رقم الصنف إلى خانة الكمية حيث (كيف أعلم أن مسح رقم الصنف قد أنتهى) واني يجب أن اشيك عليه ثم إذا وجدته بين االأصناف المسجلة مسبقاً انتقل

هل جربت استخدام القارئ أولا ؟

ثم أن الجهاز يسمى قارئ وليس ماسح

القارئ يقوم بقراءة رقم الصنف ثم يقوم بإضافة كود الإدخال

بمعنى يقوم بعمليتين القراءة ثم الضغط على الإدخال فينتقل التركيز على الأداة التالية بشكل آلي

يعني لا يحتاج إلى فحص منك

لكن يمكنك التحكم بعملية منع الإنتقال من حدث قبل التحيث لرقم الصنف بوضع شروطك حسب الرغبة

جرب إفتح ملف نصي أو ملف وورد وجرب قراءة أي كود فسوف تلاحظ أن الرقم كتب وانتقل المؤشر إلى سطر جديد

للأسف فإن القارئ الذي لدي يقوم فقط بقراءة الرقم ولايقوم بإضافة كود الإدخال وهو من نوع(symbol) فكيف الحل جزاك الله الخير .

أخي جرب أن تضع هذا الكود

Private Sub ItemCode_Change()
  MsgBox Me.ItemCode.txt, , "Change event"
End Sub

إذا هذا الحدث لم يشعر بكتابة القارئ فستضطر لعملية اختبار لكل الأحداث بأن تضع نفس الكود في كل منهم مع تغيير إسم الحدث

فمثلا حدث قبل التحديث سيكون كالتالي :

Private Sub ItemCode_BeforeUpdate()
  MsgBox Me.ItemCode.txt, , "BeforeUpdate event"
End Sub

حتى إذا ما أتتك أول رسالة ستعرف أي حدث تحتاج للتحكم بعملية الإنتقال إلى حقل الكمية بالكود الذي وضحته لك في المشاركة الأولى لي

لا تنسى تخبرنا بالنتيجة

إذا كان حقل رقم الصنف أول حقل سوف يحرر بالسجل فهذا الحدث "حتما" سيشعر به :

Private Sub Form_Dirty(Cancel As Integer)
  Me.ItemCode.SetFocus
  MsgBox Me.ItemCode.Text
End Sub

Private Sub ItemNo_Change()
	Me.Caption = Me.ItemNo.Text
End Sub

جربت الكود بهذه الطريقة وفعلاً استجاب للأرقام المدخلة بواسطة القارئ وظهرة الأرقام في عنوان النافذة، بس المشكلة هي كيف أجعل حقل رقم الصنف يعرف أن عملية القارئة أنتهت ويجب الإنتقال بواسطة SetFocus إلى حقل الكمية مع ملاحظة أن رقم كود الصنف يختلف في عدد خاناته . ماهو الحدث أو الطريقة المناسبة لذلك وشكراً أتعبتك معي الف شكر.

جرب هذا الكود :

Private Sub ItemNo_Change()
  If Trim(Nz(Me.ItemNo.Text, "")) <> "" Then
	Me.Qty.SetFocus
  End If
End Sub

وأنصحك بعمل حقل آخر لإدخال رقم الصنف يدويا ويكون أحدهما غير منضم

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