Merhaba arkadaşlar,
Tarih sorgulaması yapacatım bir türlü olmuyor,
Gözümden kaçan nedir acaba ?
Dim SID As Date
Dim stLinkCriteria As Date
SID = Me.[Metin89].Value
stLinkCriteria = "[Tarih]=" & "'" & SID & "'"
If DCount("[Tarih]", "Kurlar", stLinkCriteria) > 0 Then
MsgBox SID & " Bu Tarihli Kayıt Daha Önce Girilmiş." _
& vbCr & vbCr & "Lütfen Kayıtları Kontrol Ediniz.", vbInformation
Me.Undo
Exit Sub
End If
Tarih sorgulaması yapacatım bir türlü olmuyor,
Gözümden kaçan nedir acaba ?
Dim SID As Date
Dim stLinkCriteria As Date
SID = Me.[Metin89].Value
stLinkCriteria = "[Tarih]=" & "'" & SID & "'"
If DCount("[Tarih]", "Kurlar", stLinkCriteria) > 0 Then
MsgBox SID & " Bu Tarihli Kayıt Daha Önce Girilmiş." _
& vbCr & vbCr & "Lütfen Kayıtları Kontrol Ediniz.", vbInformation
Me.Undo
Exit Sub
End If