جلوگیری از ثبت کد ملی تکراری

[abo1524]

سلام دوستان من یه تکست باکس دارم که به دیتابیس اکسس وصل شده می خوام توی این تکست باکس کد ملی وارد کنم که اگر قبلاً در دیتابیس وجود داشت پیغام شماره ملی تکراری می شود بدهد و از ثبت کد ملی جلوگیری شود ممنون می شوم اگر کسی جواب منو بده.
خودم این نمونه کد رو پیدا کردم ولی نمی دونم چطور باید ویرایشش کنم که فقط یک تکس باکس چک بشه و همون لحظه هم پیغام تکراری بودن رو بده.


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

[abo1524]

مشاهده 44
جواب 0
:biggrin:

[abo1524]

مشاهده 90
جواب0:n03::n03: