Tarih sorgusu

[akd]

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

 

[celoy]

Private Sub No_BeforeUpdate(Cancel As Integer)
Dim SID As String
Dim stLinkCriteria As String
SID = Me.[SUÇ NO].Value
stLinkCriteria = "[SUÇ NO]=" & "'" & SID & "'"
If DCount("[SUÇ NO]", "TÜMÜ", stLinkCriteria) > 0 Then
MsgBox SID & " Bu SUÇ NUMARASI Daha Önce Girilmiş." _
& vbCr & vbCr & "Lütfen Kayıtları Kontrol Ediniz.", vbInformation _
, "....M.BOLAT..."
Me.Undo
Else
Exit Sub
End If
End Sub

 

[akd]

Sayın celoy benimkide aynı ama eksik işleç diyor,
Private Sub Metin89_AfterUpdate()
Dim SID As String
Dim stLinkCriteria As String
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 _
, "AKD.YAZILIM..."
Me.Undo
Exit Sub
End If

 

[modalı]

Sayın AKD,

Başka zamanda size aynı cevanı vermiştim ama dikkat etmediniz. Şimdi özet olarak tekrar edeyim:

stLinkCriteria = "[Tarih]=" & "#" & SID & "#"
 
stLinkCriteria = "[Kelime]=" & "'" & SID & "'"
 
stLinkCriteria = "[Sayı]=" & SID

Şeklinde yazılır. Tabi tarih alanı ise tarihin formatını da değiştirmeniz gerekir. Bununla ilgili geçen hafta bir cevap vermiştim.

iyi çalışmlar

 

[akd]

Merhaba sayın Modalı
Herhalde gözümden kaçmıştır, Özür dilerim
Dediginizi yaptım RunTime Error (13) hatasını verdi, kod aşağıda
acaba nerede hata yapıyorum
Form üzerindeki tarih kutusu=Metin89
Tablo ismi =Kurlar
Tablodaki Tarih = Tarih
Private Sub Metin89_AfterUpdate()
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 _
, "AKD"
Me.Undo
Exit Sub
End If

End Sub

 

[yeni54]

sorguda kullanılacak tarih formatı

#aa/gg/yyyy#

şeklinde olmalı.

SID değişkenini string yapıp bu formata uyarlayın.

 

[akd]

Merhaba sayın yeni54,
Tarih formatı tablodakide formdaki aynı,
neden #aa/gg/yyyy#
olmalı ben mdb yi gönderdim,
bir zahmet bakarmısınız

 

[omerceri]

Leventm'den Excelde süzme konusunda cdbl fonksiyonunu kullanmıştı.
stLinkCriteria = "[Tarih]=" & CDbl(SID)

 

[modalı]

Sayın akd,

Tablo ve formdaki tarih formatı önemli değil. SQL dilinin bir formatı bu. Yani SQL yazılanın tarih olduğunu ## dan anlıyor ve içerisinde yazılanın mutlaka aa/gg/yyyy formatında olmalı. Daha geçen Salı günü değindim bu konuya.

http://www.excel.web.tr/showthread.php?p=194092#post194092

Herkese aynı cevabı değişik zamanlarda vermek beni sıkmaya başladı. İnsan en azından son mesajlara bir göz atar. Başlıkta gayet uygun bulunmayacak gibi değil.

 

[akd]

Çok Çok teşekkürler sayın modalı, sayın Yeni54,
Sorunumu çözdüm sayenizde,
İyi günler dilerim