[momiana1]

جرب هذا الكود في حدث تحميل فورم الإضافة

PHP كود :

Dim alba As String = "SELECT * FROM TABELNAME"
        Dim DataAdapter1 As New OleDbDataAdapter(alba, newConnection)
        DataAdapter1.Fill(DataSet1, "TABELNAME")
        newConnection.Close()
        Me.BindingContext(DataSet1, "TABELNAME").Position = Me.BindingContext(DataSet1, "TABELNAME").Count - 1
        Dim x As String = 1
        Me.TextBox2.Text = Val(Me.TextBox1.DataBindings.Add("Text", DataSet1, "TABELNAME.FIELDNAME")) + Val(x) 


حيث TABELNAME = اسم الجدول في قاعدة البيانات
TextBox2 = خانة إظهار كود الموظف الجديد
TextBox1 = خانة إظهار آخر كود في الجدول لقاعدة البيانات لديك
وإذا كنت لا تريده يظهر في الفورم يمكنك جعله مخفي
FIELDNAME = اسم حقل كود الموظف في قاعدة البيانات