[hannileo]

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


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

كود :

Call clear

rst.Open "Select * from tblprod", con, adOpenDynamic, adLockOptimistic
rst.MoveLast
lblpcode = "1" + Format(Date, "mmyy") + Format(Time, "hhmmss")
txtpname.SetFocus
rst.Close

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


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

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