[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

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