[haider kh]

السلام عليكم اخوتي الكرام مشرفي المنتدى واعضاءه
استخدم الكود التالي للتنقل بين مربعات النص حيث يتم الانتقال من textbox1 الى textbox2 بعد ادخال رقم مكون من عددين
ويعمل الكود بشكل جيد ولكن عند ربط مربعات النص بحقول جدول في قاعدة البيانات وعند النتقال من الى السجل السابق يظهر لدي خطأ
الكود المسخدم هو:
فما هو الحل جزيتم خيرا
طريقة الربط هي ADO

كود :

Private Sub Text1_Change()
con = Len(Text1.Text)
mask = 2

If con = mask Then
Text1.BackColor = &H80000014
Text2.SelStart = 0
Text2.SelLength = Len(Text2)
'Text2.SetFocus
Text2.BackColor = &HC0E0FF
End If
End Sub