Access Uyarılarını nasıl değiştirebilirim

[aristoes]

ekteki resimde görülen uyarı yerine
aynı no girdiniz lütfen değiştirin gibi bir uyarı yapmak istiyorum nasıl yapabilirim

 

[tacikyol]

Örnek kod aşağıdadır- Kimlik tablosunda kisinumarası alanına giriş yapacaksanız.

Private Sub Kisinumarası_BeforeUpdate(Cancel As Integer)
Dim SID As String
Dim stLinkCriteria As String
SID = Me.[kisinumarası].Value
stLinkCriteria = "[kisinumarası]=" & "'" & SID & "'"
If DCount("[kisinumarası]", "Kimlik", stLinkCriteria) > 0 Then
MsgBox SID & " -- KİŞİ NUMARASI KAYITLARDA MEVCUT ." _
& vbCr & vbCr & " NUMARANIZI KONTROL EDİN VEYA BAŞKA NUMARA GİRİNİZ.", vbInformation _
, ".... Uyarı..."
Me.Undo
Else
Exit Sub
End If
End Sub

 

[tacikyol]

ilgili alanda birincil anahtar var ise çalışmayabilir