الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

تعديل بسيط في الكود

بدأه خالد يحي الامام في 18 نوفمبر 2014 · 5 رد · 1,429 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم الكود المرفق لتعداد اراقام شهادات فيه مشكلة عند ما يصل رقم الشهادة 1000 يكرر الرقم 1000 واريدها ياتي بما يلي 1000 حتى 10000 او اكثر عين يستمر في الترقيم 

Private Sub No_certificate_DblClick(Cancel As Integer)
    If IsNull(Me![No certificate]) = False Then
            If MsgBox("هذا الرقم موجود سابقا هل ترغب في استبداله", vbYesNo) = vbNo Then Exit Sub
    End If
    Dim x As Integer
    x = Nz(DMax("[No certificate]", "tcertifcate"), 0) + 1
    Me![No certificate] = x
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
    End Sub
#2

للرفع

#3

وعليكم السلام :)

 

الكود كله تمام ومافيه خطأ :)

يمكن الخطأ في مكان آخر :)

 

 

جعفر

#4

الاخ جعفر 

رافع مثال للملف به نموذج Main FormCert ونموذج فرعي اخرtcertifcate Subform لاحظ عند النقر المزدوج على رقم الشهادة يتكرر الرقم 1000 Data.zip

ولك الشكر

#5

اخي خالد :)

 

وكما قلت لك:

jjafferr كتب:

الكود كله تمام ومافيه خطأ :)

يمكن الخطأ في مكان آخر :)

 

المشكلة عندك في الحقل No Certificate ، حيث انك صنفته في الجدول كـ نص ، والمفروض يكون رقم :) ، غيره الى رقم وشوف النتيجة :)

 

لنرى ماذا يرى البرنامج الآن (بحقل النص كما هو) :

اذهب الى الجدول ، ثم افرز الحقل No Certificate تنازليا (اي الرقم الكبير يكون فوق ، والرقم الصغير يكون في اسفل القائمة) ، سترى ان الرقم الكبير هو 999 ، وهو الذي كان كود DMax يراه ، فيضيف اليه 1 ، فيصبح 1000 :)

 

 

جعفر

#6

جزاك الله خيرا الاخ جعفر

الحمد لله خلاص المشكلة اتحلت

مواضيع مشابهة