[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

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