merhaba,
benim kullandığım,
iki adet tarih alanı vardır zaten, ben birisine ILKTARIH, ikincisine SONTARIH yazdım.
metin kutusu isimlerini aynı yaparsan,
aşağıdaki kodu kopyalaman yeterli olur.
Visual Basic
If IsNull(Me.ILKTARIH) Then Me.ILKTARIH = Date
If IsNull(Me.SONTARIH) Then Me.SONTARIH = Date
If CDate(Me.ILKTARIH) > CDate(Me.SONTARIH) Then
RESPONSE = MsgBox("Son Tarih, İlk Tarihten Büyük Olmalıdır..", 48, "Hata!")
DoCmd.GoToControl "ILKTARIH"
Exit Sub
End If
ILKTAR = ">=#" & Month(Me.ILKTARIH) & " / " & Day(Me.ILKTARIH) & " / " & Year(Me.ILKTARIH) & "#"
SONTAR = "<=#" & Month(Me.SONTARIH) & " / " & Day(Me.SONTARIH) & " / " & Year(Me.SONTARIH) & "#"
sorgu içinde kullandığım alan da aşağıdadır. KIRMIZI alan.
tarih varsa tarihe göre yapar, tarih girmezsen tümünü görüntüler.
Me.Liste60.RowSource = "SELECT SIPARIS_LISTESI.ID, SIPARIS_LISTESI.SIPARISNO, SIPARIS_LISTESI.TARIH, SIPARIS_LISTESI.MUSTERI, SIPARIS_LISTESI.IRSALIYE_NO, SIPARIS_LISTESI.SIPNO, SIPARIS_LISTESI.EBAT, SIPARIS_LISTESI.DESEN_ADI, SIPARIS_LISTESI.CINSI, SIPARIS_LISTESI.RENK_NO, SIPARIS_LISTESI.RENK, SIPARIS_LISTESI.TOP_METRE, SIPARIS_LISTESI.KALAN_KG, SIPARIS_LISTESI.ACIKLAMA FROM SIPARIS_LISTESI
WHERE (SIPARIS_LISTESI.TARIH" & ILKTAR & ") And (SIPARIS_LISTESI.TARIH" & SONTAR & ")"
Me.Liste60.Requery