Kod:
Private Sub Komut4_Click()
Dim veriSayisi As Integer
Dim kontrolVerisi1 As String
Dim kontrolVerisi2 As String
Dim kontrolVerisi3 As String
' Kontrol edilecek verileri al
kontrolVerisi1 = Me.HARF1 ' 1. alan
kontrolVerisi2 = Me.HARF2 ' 2. alan
kontrolVerisi3 = Me.HARF3 ' 3. alan
' Tablo adı ve kontrol edilecek alan adlarını değiştirin
veriSayisi = DCount("*", "Tablo1", "HARF1='" & kontrolVerisi1 & "' AND HARF2='" & kontrolVerisi2 & "' AND HARF3='" & kontrolVerisi3 & "'")
' Eğer tablo da bu veri sayısı 0'dan fazla ise uyarı ver
If veriSayisi > 0 Then
MsgBox "Bu kayıt zaten mevcut. Kayıt yapılamaz.", vbExclamation, "Uyarı"
Me.Undo
Else
' Kayıt işlemini gerçekleştirin
DoCmd.RunCommand acCmdSaveRecord
' Yeni kayda geç
DoCmd.GoToRecord , , acNewRec
End If
End Sub