Dim SD1, SD2, SD3, c As String
Dim stLinkCriteria1, stLinkCriteria2, stLinkCriteria3 As String
SD1 = Me.AdiSoyadi.Value
SD2 = Me.Tarih.Value
SD3 = Me.Saat.Value
stLinkCriteria1 = "[AdiSoyadi]=" & "'" & SD1 & "'"
stLinkCriteria2 = "[Tarih]=" & "#" & SD2 & "#"
stLinkCriteria3 = "[Saat]=" & "'" & SD3 & "'"
'Ayrıntı.BackColor = 16764057
'FormÜstbilgisi.BackColor = 255
'FormAltbilgisi.BackColor = 255
If DCount("*", "HATIRLATMALAR", "AdiSoyadi='" & Me.AdiSoyadi & "' and Tarih='" & Me.Tarih & "' and Saat='" & Me.Saat & "'") > 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 Undo: Exit Sub
If c = vbYes Then
Cevap = MsgBox("Emin misiniz", vbYesNo, "KONTROL")
If Cevap <> 6 Then
MsgBox "Kayıt Yapılmadı", vbOKOnly, "KAYIT YAPILMADI"
Undo
ElseIf vbNo Then
MsgBox "KAYIT YAPILDI", vbOKOnly, "KAYIT TAMAM"
End If
End If
End If
TAMAM ANCAK TABLODA BULUNAN tARİH VE sAAT ALANLARINI mETİN OLARAK AYARLAYACAKSIN YANİ TARİH?SAAT YAPMIYACAKSIN
