![Çözüldü](images/icons/cozuldu.png)
Ekte çıkan uyarının resmi var. Tablomda hiçbir ilişki yokki Insert yaparken kendi create etmiş olduğum unique index aynı kayıttan üretilemeyiciğine dair otomatik uyarı veriyor ben bu uyarıyı değiştirmek istiyorum sorunum bu.
Private Sub AlanAdı_AfterUpdate()
Dim SID As String
SID = Me.[AlanAdı].Value
stLinkCriteria = "[AlanAdı]=" & "'" & SID & "'"
If AlanAdı= Dlookup ("[AlanAdı]", "[TabloAdı]", "[AlanAdı]=forms![FormAdı]!AlanAdı") Then
MsgBox "Girmekte Oldugunuz " _
& SID & " Nolu TC Kimlik Numarası Daha Önce Kaydedilmiştir." _
& vbCr & vbCr & "Lütfen Kayıtları Kontrol Ediniz.", vbInformation _
, "Kayıt Kontrol"
Undo
Exit Sub
End If
End Sub