[mr_hso]

استاذ عبد العزيز صباحك فل وورد
اتبعت نصيحتك وحاولت ان احلها ولكن ببعض من (الفكاكا)   بس الحمد لله حققت الغرض

اولاً: اضفت ثلاثة عواميد فى الجدول كل
 (let_50   -   let_100   -   let_oth)

ثانياً: اضفت ثلاث RadioButton 

(50000  -  100000  -  other)

ثم اضفت هذا الكود ليتم التوليد الاوتوماتيكي

كود :

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

لم يبقي الا امر واحد الحفظ

كما تري انا قمت بتوليد الرقم فى textbox1
ومن ثما سوف احفظه فى الجول فى عامود واحد حتى يسهل امر البحث عن الرقم
لذكل وضعت الكود التالي فى زر الحفظ دون النظر الى نوع الخطاب

كود :

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

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