منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - طلب كود بداية الترقيم من رقم معين

هل يمكن أن يمدني أحد الأساتذة أو الأعضاء الكرام بكود ترقيم السجلات من رقم معين.
لدى مشروع بالفيجوال 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