(10/03/2009, 14:10)alpeki99 yazdı: If DCount("*", "HATIRLATMALAR", "AdiSoyadi='" & Me.AdiSoyadi & "' and Tarih=#"&01.01.2009& "# and Saat='" & Me.Saat & "'") > 0 Then
burada yazdığım şekilde düzelttiniz mi?
evet aynı celoy hocam öylede olmadı
hocam düzelttim ama satır komple kırmızı oldu
stLinkCriteria2 bölümünü şu şekilde değiştirip dener misiniz?
Kod:
stLinkCriteria2 = "[Tarih]=" & "#" & SD2 & "#"
hocam bu şekilde de olmadı
Kod:
Private Sub Saat_BeforeUpdate(Cancel As Integer)
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 & "'"
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
End Sub
Muhterem dediğimiz gibi düzeltmemişsin ki
Ahhhh örnek dosyasızlık ahh
hocam yukardaki yazdığınız kodu aynen sarı olan yere kopyaladım ama satır komple kırmızı oldu