Ama kod da da sorunlar vardı, daha sade ve anlaşılır oldu şimdi.
Mesela,
Kod:
Dim stLinkCriteria1, stLinkCriteria2, stLinkCriteria3 As String
stLinkCriteria1 = "[AdiSoyadi]=" & "'" & SD1 & "'"
stLinkCriteria2 = "[Tarih]=" & "#" & SD2 & "#"
stLinkCriteria3 = "[Saat]=" & "'" & SD3 & "'"
Kod:
[color=#FF4500]If DCount("*", "HATIRLATMALAR", "AdiSoyadi='" & Me.AdiSoyadi & "' and Tarih =#" & Me.Tarih & "# and Saat=#" & SD3 & "# > 0")[/color]
Çıkarmış olsa bile
Kod:
SD3 & "# > 0")
Kod:
SD3 & "#") > 0