[مصمم هاوي]

هل يمكن أن يمدني أحد الأساتذة أو الأعضاء الكرام بكود ترقيم السجلات من رقم معين.
لدى مشروع بالفيجوال 6 مكتمل واحاول تصميمه بالدوت نت لاكتساب الخبرة بمساعدة المنتدى الحبيب. ومن ضمن المشروع فورم لتسجيل الجنسية والمدينة والمؤهلات العلمية ويتم الحفظ في جدول واحد، حيث جعلت لكل نوع كود خاص به
مثلا:
الجنسيات.
الترقيم يبدا من 1 إلى 100  والكود jn
المدن
الترقيم يبدا من 101 إلى 200 والكود mn
وهكذا ....
فأريد فقط كود الترقيم من رقم معين مثلا (1) إلى رقم معين (100)
حتى اوظف الكود لعملية الاضافة

[مصمم هاوي]

لا يزال السؤال قائما:
اريد كود بداية الترقيم من رقم معين؟

[مصمم هاوي]

هذا Function بداية الترقيم من رقم معين

كود :

   Public Function MaxIDjinsia_TBL_codes() As DataTable
       Dim Query As String = "Select IIF(MAX(id) IS Null,100,MAX(id)+1) From TBL_codes where Code like 'jinsia'"
       Dim Cmd As OleDbCommand
       Dim dt As New DataTable
       dt.Clear()
       Cmd = New OleDbCommand(Query, Con)
       Dim da As New OleDbDataAdapter(Cmd)
       da.Fill(dt)
       Return (dt)

   End Function

[هاوي1995]

جزاك الله خير وغفر الله لوالديك