منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

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


اخواتي عندي مشكلة بزر اضافة جديد وهذه الرسالة تظهر حصراً عندما تكون قاعدة البيانات فارغة 
اي عند اضافة اول حقل فقط 

لاتظهر ابدا  عندما يكون الجدول يحتوي على بيانات مضافة مسبقاً 


يكون الخطأ عند السطر rst.movelast

الرسالة مبينة بالصورة المرفقة 
ارجو منكم مساعدتي بحل المشكلة ولكم جزيل الشكر

(26-09-17, 11:44 PM)Amir_alzubidy كتب : [ -> ]السلام عليكم و رحمة الله و بركاته 
حياك الله اخي هاني 
هذا تعديل الكود : 

PHP كود :

On Error Resume Next: Err.Clear

Call Clear
If rst.State = adStateOpen Then rst.Close

rst.Open "Select * from tblprod", con, adOpenDynamic, adLockOptimistic



              With rst
              If Not .EOF Then
rst.MoveLast
lblpcode = "1" + Format(Date, "mmyy") + Format(Time, "hhmmss")
txtpname.SetFocus
rst.Close
              End If
              End With 


اشكرك استاذ امير  لقد حلت المشكلة 
بارك الله بك