[سؤال] الترقيم التلقائي - نسخة قابلة للطباعة

1 - لأنّ عمود الترقيم التلقائي و كل الدوال تعتمد على آخر رقم موجود بقاعدة البيانات .. و سيادتك لديك 3 إختيارات و لذلك كود الترقيم التلقائي على أي أساس سوف يختار آخر رقم سجل ليضيف عليه واحد .

كود :

Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton1.CheckedChanged

        If RadioButton1.Checked = True Then

            TextBox3.Text = "50000"

            Dim dtJobTicketNo As New DataTable

            Dim cmd As New OleDbCommand("select * from LETTERS where let_50 =" & TextBox1.Text & "", con)

            Dim dcJobTicketNo As New OleDb.OleDbCommand("SELECT MAX(let_50)+1 AS JobTicketNo from LETTERS", con)

            con.Open()

            TextBox1.Text = dcJobTicketNo.ExecuteScalar

            con.Close()

        Else

            TextBox3.Text = ""

        End If

    End Sub

    Private Sub RadioButton2_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton2.CheckedChanged

        If RadioButton2.Checked = True Then

            TextBox3.Text = "100000"

            Dim dtJobTicketNo As New DataTable

            Dim cmd As New OleDbCommand("select * from LETTERS where let_100 =" & TextBox1.Text & "", con)

            Dim dcJobTicketNo As New OleDb.OleDbCommand("SELECT MAX(let_100)+1 AS JobTicketNo from LETTERS", con)

            con.Open()

            TextBox1.Text = dcJobTicketNo.ExecuteScalar

            con.Close()

        Else

            TextBox3.Text = ""

        End If

    End Sub

    Private Sub RadioButton3_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton3.CheckedChanged

        If RadioButton3.Checked = True Then

            TextBox3.Text = ""

            Dim dtJobTicketNo As New DataTable

            Dim cmd As New OleDbCommand("select * from LETTERS where let_oth =" & TextBox1.Text & "", con)

            Dim dcJobTicketNo As New OleDb.OleDbCommand("SELECT MAX(let_oth)+1 AS JobTicketNo from LETTERS", con)

            con.Open()

            TextBox1.Text = dcJobTicketNo.ExecuteScalar

            con.Close()

        Else

            TextBox3.Text = ""

        End If

    End Sub

كود :

dt.Rows(pos).Item(0) = TextBox1.Text

كود :

If RadioButton1.Checked = True Then

            dt.Rows(pos).Item(24) = TextBox1.Text

            dt.Rows(pos).Item(25) = "0"

            dt.Rows(pos).Item(26) = "0"

        ElseIf RadioButton2.Checked = True Then

            dt.Rows(pos).Item(24) = "0"

            dt.Rows(pos).Item(25) = TextBox1.Text

            dt.Rows(pos).Item(26) = "0"

        ElseIf RadioButton3.Checked = True Then

            dt.Rows(pos).Item(24) = "0"

            dt.Rows(pos).Item(25) = "0"

            dt.Rows(pos).Item(26) = TextBox1.Text

        End If

السّلام عليكم و رحمة الله و بركاته
أشكرك جزيل الشكر أخي الفاضل " mr_hso " على المحاولة القيمة و وضعك للكود للإطّلاع و الإستفادة منه للجميع .. و هذه مبادرة طيبة .. طيبة شخصك الكريم ..
بدوري أشكر أخي العزيز الغالي " ابراهيم إيبو " جزيل الشكر .. مع كامل عرفاني لك بجميل و روائع تدخلاتك المميزة .. جزاك الله خير الجزاء و زادك من علمه و فضله و نفع بك الاسلام و المسلمين
تحياتي و احتراماتي و تشكراتي و تقييماتي لكما