تقييم الموضوع :
  • 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اضافة زر امر الى اداة list view hannileo 8 505 04-12-18, 03:45 PM
آخر رد: hannileo
  لا استطيع حفظ المشروع بعد اضافة اداة shockwaveflash ? Alhootti1 0 275 30-08-18, 08:01 PM
آخر رد: Alhootti1
  رسالة خطا ارجو المساعدة محمد حمد محمد 5 491 14-02-18, 12:48 AM
آخر رد: Ahmed_Mansoor
  كيفية اضافة خواص لاداة UserControl ؟ gedo 0 378 17-01-18, 05:35 PM
آخر رد: gedo
  [سؤال] كيفية اضافة صورة وكيفية اضافة فيديوو ؟؟! shimaasa 6 643 15-01-18, 07:43 PM
آخر رد: shimaasa
  سوال عن سبب ظهور رسالة خطاء مبرمج جديد 5 1,168 21-12-16, 07:18 PM
آخر رد: مبرمج جديد
  كيفية اضافة صورة فى قاعدة البيانات ووضعها فى msflexgrid ؟ gedo 7 1,534 02-09-16, 04:36 PM
آخر رد: gedo
  الرجاء المساعدة في اضافة ترقيم تلقائي في التقارير algalba 0 703 15-03-16, 05:27 PM
آخر رد: algalba
  أرجو المساعدة .. اظهار رسالة انتهاء التاريخ قبل مدة محددة haniblack 2 1,152 15-02-16, 09:35 AM
آخر رد: haniblack
  عمل نسخ احتياطي والبدء من جديد من بداية العام abadi7455 13 3,250 09-01-16, 10:11 PM
آخر رد: amineinfo

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


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