ترقيم تسلسلي

بدأه منعم في 26 مارس 2011 · 5 رد · 870 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات

#126 مارس 2011 في 18:43 صاحب الموضوع

الكود التالي أستخدمه لتوليد رقم لجدول به كمية من الأصناف . إذا تم حذف بعض الأصناف من الجدول كيف يمكن تعديل الكود التالي ليستخدم هذه الأرقام

frm_store.Data1.DatabaseName = App.Path & ("\SUDAN.mdb")

frm_store.Data1.RecordSource = "select * from pharstore order by docode asc"

frm_store.Data1.Refresh

frm_store.Data1.Recordset.MoveLast

'frm_store.Data1.RecordSource = "select * from pharstore "

Fnc1 = Val(frm_store.Text3.Text)

Text3.Text = Fnc1 + 1

#228 مارس 2011 في 00:21

لم افهم طلبك هل تقصد عمل ترقيم تلقائي

مثل الذي يكون بالفواتير

انا في انتظار توضيحك

تحياتي

العلم علمان : علم باللسان ، وعلم بالقلب

فعلم القلب : هو العلم النافع

وعلم اللسان : هو حجة الله على ابن آدم

#328 مارس 2011 في 13:17

الأخ mkhaled لك الشكر

لدي جدول به أصناف وارقام لها وعند إضافة صنف جديد اقوم باستخراج آخر رقم لاستخدمه . سؤالي هو إذا تم حذف اصناف من الجدول كيف استطيع استخدام الرقم المحذوف . مثلا 1 2 3 4 5 6 7 8 9 10 اذا تم حذف الصنف الذي رقمه 7 اريد استخدام هذا الرقم عند اضافة صنف جديد وجزاك الله خيرا

#428 مارس 2011 في 22:01

السلام عليكم

اعتقد حل سريع وعملي لا يوجد في الاكسس لكن بامكانك استخدام الطريقة التالية :

 frm_store.Data1.DatabaseName = App.Path & ("\SUDAN.mdb")
frm_store.Data1.RecordSource = "select * from pharstore order by docode asc"
frm_store.Data1.Refresh

Dim rs2 As Recordset
Set rs2 = frm_store.Data1.Recordset.Clone
    rs2.MoveLast

If rs2("docode") = rs2.RecordCount Then
    Text3.Text = rs2("docode") + 1
Else
    Dim i As Integer
    rs2.MoveFirst
    For i = 1 To rs2.RecordCount
        If rs2("docode") <> i Then
        Text3.Text = i
        Exit For
        End If
    rs2.MoveNext
    Next


End If

تم تعديل هذه المشاركة بواسطة TareqVB في 4 أبريل 2011 في 09:14 — السبب: تعديل حسب ملاحظة الاخ maaq6