[Abou Eman]

هذه الدالة للترقيم التلقائى
Private Sub MAXRECORD()
On Error Resume Next
Dim V As Integer
Dim SQL As String = "SELECT MAX(id) FROM StoresProducts"
Dim CMD As SqlClient.SqlCommand = New SqlClient.SqlCommand
Dim SqlConnection1 As SqlConnection = New SqlConnection
With CMD
.CommandType = CommandType.Text
.Connection = SqlConnection1
If SqlConnection1.State = ConnectionState.Open Then SqlConnection1.Close()
SqlConnection1.Open()
.CommandText = SQL
V = .ExecuteScalar()
End With
Me.TxtId.Text = Val(V) + 1
SqlConnection1.Close()
End Sub

غير الكود واسم التكست بوكس
ونادى على الدالة فى زر جديد
[