سلام دوستان من یه تکست باکس دارم که به دیتابیس اکسس وصل شده می خوام توی این تکست باکس کد ملی وارد کنم که اگر قبلاً در دیتابیس وجود داشت پیغام شماره ملی تکراری می شود بدهد و از ثبت کد ملی جلوگیری شود ممنون می شوم اگر کسی جواب منو بده.
خودم این نمونه کد رو پیدا کردم ولی نمی دونم چطور باید ویرایشش کنم که فقط یک تکس باکس چک بشه و همون لحظه هم پیغام تکراری بودن رو بده.
Private Sub Command1_Click()
On Error Resume Next
Dim id&
id = Val(Adodc1.Recordset!id & "")
If id > 0 Then
Adodc2.RecordSource = "SELECT * FROM serch where Id <> " & id & " And name = '" & Text1 & "' And Tell = '" & Text2 & "'"
Else
Adodc2.RecordSource = "SELECT * FROM serch where name = '" & Text1 & "' And Tell = '" & Text2 & "'"
End If
Adodc2.Refresh
If Adodc2.Recordset.RecordCount > 0 Then
Adodc1.Recordset.CancelUpdate
MsgBox "امکان ثبت اطلاعات تکراري وجود ندارد."
Else
Adodc1.Recordset.Update
End If
End Sub
Private Sub Command2_Click()
Adodc1.Recordset.AddNew
End Sub
Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\data.mdb;"
Adodc2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\data.mdb;"
Adodc1.RecordSource = "SELECT * FROM serch"
Adodc1.Refresh
End Sub