If IsNull(Me.MUSTERI) Then mus = "[SIPARIS_LISTESI].MUSTERI" Else mus = "'" & Me.MUSTERI & "'" 'açılan kutu alanları bunlar olsun. me.MUSTERI olan kısımları mus adı altında tanımladım
If IsNull(Me.PARTINO) Then pno = "[PARTILENENLER].PARTI_NO" Else pno = Me.PARTINO ' bunlarda aynı mesela bu PARTI_NO, pno diye tanımladım.
If IsNull(Me.MSIPNO) Then MSIP = "[SIPARIS_LISTESI].SIPNO" Else MSIP = "'" & Me.MSIPNO & "'" 'bu msıpno MSIP diye tanımladım.
If IsNull(Me.RENKNO) Then RNO = "[SIPARIS_LISTESI].RENK_NO" Else RNO = "'" & Me.RENKNO & "'" ' renkno
'tarih sanırım iki tane olacak, birisi ilk tarih birisi son tarih olduğunu varsay metinkutuları da ILKTARIH, SONTARİH gibi
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) & "#"
Me.Liste0.RowSource = "SELECT SIPARIS_LISTESI.MUSTERI, PARTILENENLER.PARTI_NO, SIPARIS_LISTESI.SIPNO, SIPARIS_LISTESI.RENK_NO, SIPARIS_LISTESI.RENK, SIPARIS_LISTESI.CINSI, PARTILENENLER.PAR_KG, PARTILENENLER_DURUM.TERMIN, PARTILENENLER_DURUM.DURUM_ZAMANI, [DURUM_ZAMANI]-[TERMIN] AS GEÇEN_SÜRE FROM (SIPARIS_LISTESI INNER JOIN PARTILENENLER ON SIPARIS_LISTESI.SIPARISNO = PARTILENENLER.SIPARIS_NO) INNER JOIN PARTILENENLER_DURUM ON PARTILENENLER.PARTI_NO = PARTILENENLER_DURUM.PARTI_NO WHERE (PARTILENENLER_DURUM.TARIH" & ILKTAR & ") And (PARTILENENLER_DURUM.TARIH" & SONTAR & ") AND (SIPARIS_LISTESI.MUSTERI=" & mus & ") AND (PARTILENENLER.PARTI_NO=" & pno & ") AND (SIPARIS_LISTESI.RENK_NO= " & RNO & " ) AND (SIPARIS_LISTESI.SIPNO= " & MSIP & " ) AND (PARTILENENLER_DURUM.DURUMU='Sevk Edildi') ORDER BY PARTILENENLER.PARTI_NO"
Me.Liste0.Requery
End Sub
bahsettiğm gibi kullanabilirsin.
yukarıdaki
mus, pno, msıp,RNO ları açılan kutulara tanımla,
denemeni tavsiye ederim,
örnek dosyadan da yararlanabilir.
GÜNLÜK SATIŞ İZLEME FORMU
ben böyle kullanıyorum.
kırtasiye stok takip prg.rar
(Dosya Boyutu: 190,46 KB | İndirme Sayısı: 3)
husem, proud to be a member of AccessTr.neT since 08-03-2009.