كود بسيط

كود عند اضغط على
enter
داخل اداة التيكست الخاصة بكود العميل بعد كتابة الكود يعرض البيانات الخاصة بالعميل

الكود هو

Code:

text1_keypress
If KeyAscii = 13 Then
Data1.Recordset.FindFirst "cucode='" + x +"'"
If Data1.Recordset.NoMatch Then msgbox "لا يوجد هذا العميل"