Kayıt Tarihi: 06.05.2013
Toplam 192 konu açtı.
Toplam 756 yorum yaptı.
Toplam
34
puanı bulunmakta.
Mevcut Office Sürümü:
Office 2003,
Beğeniler: 18 / 14
yardımızı için teşekkür ederim,
ben de ayrıca EK_ISLEM metin kutusunden seçim yapıldığında filtreleme yapabilmesi için eklemeye çalıştım ama başaramadım,
tablodaki adı: EK_ISLEM_ADI
formdaki açılan kutu adı: EK_ISLEM
bide eğer ek işlem varsa= sorgu
ek işlem yoksa=farklı sorgu
yaptım.
ama EK_ISLEM açılan kutusundan seçim yaptığımda kayıt göstermiyr. acaba parantezleri mi yanlış yapıyorum anlayamadım.[/code]
[code=vba]Sub ARA()
Dim Ctl As Control, Komut, Hane As String
For Each Ctl In Me.Controls
If Ctl.Tag = "BosDolu" Then
If Me.Controls(Ctl.Name).Value <> "" Then
Hane = Mid(Ctl.Name, 1, 1)
Komut = Komut & "(([" & IIf(Hane = "P", "PARTILENENLER.PARTI_NO", IIf(Hane = "M", "MUSTERI", IIf(Hane = "R", "RENK_NO", IIf(Hane = "C", "CINSI", IIf(Hane = "D", "DURUMU", IIf(Hane = "J", "EK_ISLEM_ADI", IIf(Hane = "T", "SIPNO", "RENK"))))))) & "])=" & IIf(Hane = "P", [PARTINO], IIf(Hane = "M", "'" & [MUSTERI] & "'", IIf(Hane = "R", "'" & [RENKNO] & "'", IIf(Hane = "C", "'" & [CINSIMAMUL] & "'", IIf(Hane = "D", "'" & [DURUMU] & "'", IIf(Hane = "J", "'" & [EK_ISLEM] & "'", IIf(Hane = "T", "'" & [TeklifNO] & "'", IIf(Hane = "S", "'" & [SUZRENK] & "'", "")))))))) & ") And "
End If
End If
Next Ctl
If Komut <> "" Then Komut = Mid(Komut, 1, Len(Komut) - 5) Else Komut = ""
If Me.EK = 0 Then Me.Liste0.RowSource = "SELECT SIPARIS_LISTESI.MUSTERI, PARTILENENLER.PARTI_NO, PARTILENENLER_DURUM.TARIH, SIPARIS_LISTESI.SIPNO, SIPARIS_LISTESI.RENK_NO, SIPARIS_LISTESI.RENK, SIPARIS_LISTESI.CINSI, SIPARIS_LISTESI.EBAT, PARTILENENLER.PAR_KG, PARTILENENLER_DURUM.MAK_NO, PARTILENENLER_DURUM.MAK_SIRA_NO, PARTILENENLER_DURUM.DURUMU, PARTILENENLER_DURUM.DURUM_ZAMANI 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.DURUMU)<>'Sevk Edildi') AND (([PAR_KG]-[SEVK_KG])<>0) " & IIf(Komut <> "", " And " & Komut, Null) & ")"
If Me.EK = 1 Then Me.Liste0.RowSource = "SELECT SIPARIS_LISTESI.MUSTERI, PARTILENENLER.PARTI_NO, PARTILENENLER_DURUM.TARIH, SIPARIS_LISTESI.SIPNO, SIPARIS_LISTESI.RENK_NO, SIPARIS_LISTESI.RENK, SIPARIS_LISTESI.EBAT, PARTILENENLER.PAR_KG, PARTILENENLER_DURUM.MAK_NO, PARTILENENLER_DURUM.DURUMU, PARTILENENLER_DURUM.DURUM_ZAMANI, EK_ISLEMLER.EK_ISLEM_ADI FROM EK_ISLEMLER RIGHT JOIN ((SIPARIS_LISTESI INNER JOIN PARTILENENLER ON SIPARIS_LISTESI.SIPARISNO = PARTILENENLER.SIPARIS_NO) LEFT JOIN PARTILENENLER_DURUM ON PARTILENENLER.PARTI_NO = PARTILENENLER_DURUM.PARTI_NO) ON EK_ISLEMLER.SIPARIS_NO = SIPARIS_LISTESI.SIPARISNO WHERE (((PARTILENENLER_DURUM.DURUMU)<>'Sevk Edildi') AND (([PAR_KG] - [SEVK_KG]) <> 0) " & IIf(Komut <> "", " And " & Komut, Null) & ")"
Me.Liste0.Requery
End Sub
