+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+--- الموضوع : رسالة خطأ عند اضافة جديد (/showthread.php?tid=21887)
رسالة خطأ عند اضافة جديد - hannileo - 26-09-17
السلام عليكم ورحمة الله وبركاته
اخواتي عندي مشكلة بزر اضافة جديد وهذه الرسالة تظهر حصراً عندما تكون قاعدة البيانات فارغة
اي عند اضافة اول حقل فقط
كود :
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
الرسالة مبينة بالصورة المرفقة
ارجو منكم مساعدتي بحل المشكلة ولكم جزيل الشكر
RE: رسالة خطأ عند اضافة جديد - hannileo - 27-09-17
(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
اشكرك استاذ امير لقد حلت المشكلة
بارك الله بك
