bir de bunları kopyalayıp deneyin.
Bende doğru şekilde çalışıyor.
Kod:
Private Sub Saat_BeforeUpdate(Cancel As Integer)
Dim SD1, SD2, SD3, c As String
Dim Kriter, Kriter1, Kriter2, Kriter3 As String
SD1 = Me.AdiSoyadi.Value
SD2 = Me.Tarih.Value
SD3 = Me.Saat.Value
Kriter1 = "[AdiSoyadi]=" & "'" & SD1 & "'"
Kriter2 = "[Tarih]=" & "#" & SD2 & "#"
Kriter3 = "[Saat]=" & "#" & SD3 & "#"
Kriter = Kriter1 & " And " & Kriter2 & " And " & Kriter3
If DCount("*", "HATIRLATMALAR", Kriter) > 0 Then
c = MsgBox("DİKKAT!...LİSTENİZDE...*" _
& SD1 & " *adında ki kayıt * " & SD2 & " * Tarihinde*" & SD3 & " * Saatinde GİRİLMİŞ *" _
& vbCr & vbCr & " DEVAM ETMEK İSTİYORMUSUNUZ...", vbYesNo + vbQuestion, "..***..DİKKAT..***..")
If c = vbNo Then Me.Undo: Exit Sub
Cevap = MsgBox("Emin misiniz", vbYesNo, "KONTROL")
If Cevap = vbNo Then
MsgBox "Kayıt Yapılmadı", vbOKOnly, "KAYIT YAPILMADI"
Me.Undo
Else
MsgBox "KAYIT YAPILDI", vbOKOnly, "KAYIT TAMAM"
End If
End If
End Sub