[Taha Okla]

كود :

Public Function ExScalar(cmdText As String) As Integer
       Using pConn As New OleDbConnection(strConn)  '  لا تنسى تضع جملة الاتصال بقاعدة البيانات هنا مكان   strConn
           pConn.Open()

           Dim cmd As OleDbCommand = New OleDbCommand(cmdText, pConn)

           Dim n1 As Integer
           n1 = cmd.ExecuteScalar()

           Return n1
       End Using
   End Function

---

كود :

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
       '  Car_Number.Text    رقم الهوية
       Dim Nx As Integer = ExScalar("SELECT Count(Car_Number) As Car_No From Car_info Where Car_Number=" & Car_Number.Text & ";")

       If Nx > 0 Then
           MessageBox.Show("رقم هذه الهوية مكرر وموجود مسبقاً")
           Exit Sub
       End If

       '  باقي الكود أدناه  ليكمل  اذا الرقم غير مكرر
   End Sub

اذا كان نوع الحقل نصي :

كود :

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
       '  Car_Number.Text    رقم الهوية
       Dim Nx As Integer = ExScalar("SELECT Count(Car_Number) As Car_No From Car_info Where Car_Number='" & Car_Number.Text & "' ;")

       If Nx > 0 Then
           MessageBox.Show("رقم هذه الهوية مكرر وموجود مسبقاً")
           Exit Sub
       End If

       '  باقي الكود أدناه  ليكمل  اذا الرقم غير مكرر
   End Sub