#13
(10/03/2009, 14:10)alpeki99 yazdı: If DCount("*", "HATIRLATMALAR", "AdiSoyadi='" & Me.AdiSoyadi & "' and Tarih=#"&01.01.2009& "# and Saat='" & Me.Saat & "'") > 0 Then
#14
#15
stLinkCriteria2 = "[Tarih]=" & "#" & SD2 & "#"
#16
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
#17
ya benim dediğim gibi düzelt ya da tdsharun hocamın dediği gibi düzelt her ikiside aynı şey ama ikisini aynı anda yapma sadece birisini.
#18
