[ahmedfa71]

السلام عليكم ورحمة الله وبركاته أعضاء المنتدى الكرام
أما بعد
كيف يمكنني إجبار التكست بوكس على كتابة رقم id
مثلا عوض أن يكتب 01 يكتب  000001 ومن ثم حفظها في قاعدة البيانات بهذا الشكل 000001

كود :

Private Sub NemID()
       Dim N As Integer
       cn.Open()
       cmd.CommandText =
       <oledb>
                   SELECT
                       Nem                    
                   FROM
                       EmpEmp;
               </oledb>.Value
       DtR = cmd.ExecuteReader
       While DtR.Read
           N = DtR(0)
       End While
       TextBoxNem.Text = (N + 1).ToString
       cn.Close()
   End Sub

ومشكورين مسبقا

[سعود الشامان]

وعليكم السلام ورحمة الله وبركاته

أستخدم MaskedTextBox بدل TextBox


MaskedTextBox أحداث وخصائص الأداة

https://youtu.be/9pBlYH0AJFo

[ahmedfa71]

السلام عليكم ورحمة الله وبركاته
تم الحل فيما يخص إجبار التيكست بوكس على كتابة 0000001 بدلا من 01
وذلك كمايلي

كود :

Private Sub NemID()
       Dim N As Integer
       cn.Open()
       cmd.CommandText =
       <oledb>
                   SELECT
                       Nem                    
                   FROM
                       EmpCcp;
               </oledb>.Value
       DtR= cmd.ExecuteReader
       While DtR.Read
           N = DtR(0)
       End While
       N += 1
       TextBoxNem.Text = N.ToString("000000")
       cn.Close()
   End Sub

شكرا على الردود