تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
رسالة خطأ عند اضافة جديد
#1
السلام عليكم ورحمة الله وبركاته 


اخواتي عندي مشكلة بزر اضافة جديد وهذه الرسالة تظهر حصراً عندما تكون قاعدة البيانات فارغة 
اي عند اضافة اول حقل فقط 
كود :
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

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


الملفات المرفقة صورة/صور
   
الرد }}}
تم الشكر بواسطة:
#2
السلام عليكم و رحمة الله و بركاته 
حياك الله اخي هاني 
هذا تعديل الكود : 

PHP كود :
On Error Resume NextErr.Clear

Call Clear
If rst.State adStateOpen Then rst.Close

rst
.Open "Select * from tblprod"conadOpenDynamicadLockOptimistic



              With rst
              If Not 
.EOF Then
rst
.MoveLast
lblpcode 
"1" Format(Date"mmyy") + Format(Time"hhmmss")
txtpname.SetFocus
rst
.Close
              End 
If
 
             End With 
الرد }}}
تم الشكر بواسطة: عبد العزيز البسكري , hannileo , Ahmed_Mansoor
#3
(26-09-17, 11:44 PM)Amir_alzubidy كتب : السلام عليكم و رحمة الله و بركاته 
حياك الله اخي هاني 
هذا تعديل الكود : 

PHP كود :
On Error Resume NextErr.Clear

Call Clear
If rst.State adStateOpen Then rst.Close

rst
.Open "Select * from tblprod"conadOpenDynamicadLockOptimistic



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


اشكرك استاذ امير  لقد حلت المشكلة 
بارك الله بك  Heart
الرد }}}
تم الشكر بواسطة: Ahmed_Mansoor



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم