AccessTr.neT

tüm filtrelemeler çıkış tarihi boş olanlar için yapılacak. yani mantık şu: depomuzda kalan malzemelerin son kullanma tarihi en yakın olandan başlayarak kullanmak için kullanıcıya verileri sunmak.ki böylece son kullanma tarihi geçirilip zayi olmasın.çıkış tarihi yazılmış olan malzemeler depodan çıkıp kullanılmış malzeme oluyor.

koddaki sorgulara [MALZEME GİRİŞ -ÇIKIŞ LİSTESİ].[ÇIKIŞ TARİHİ])>0 kriterini ekleyemez misin ?

hocam yapamadım yaa..söz bu son ağrıtmıycam başını nasıl ekliycem o kodu.bana dizilimi bi gösteriver Allah aşkına..

Form.RecordSource = "SELECT [MALZEME GİRİŞ -ÇIKIŞ LİSTESİ].[SON KULLANMA TARİHİ], [MALZEME GİRİŞ -ÇIKIŞ LİSTESİ].[BARKOD NO], [MALZEME GİRİŞ -ÇIKIŞ LİSTESİ].[GELİŞ TARİHİ], [MALZEME GİRİŞ -ÇIKIŞ LİSTESİ].[MALZEME ADI], [MALZEME GİRİŞ -ÇIKIŞ LİSTESİ].[TEST SAYISI], [MALZEME GİRİŞ -ÇIKIŞ LİSTESİ].[ÇIKIŞ TARİHİ] FROM [MALZEME GİRİŞ -ÇIKIŞ LİSTESİ] WHERE ((([MALZEME GİRİŞ -ÇIKIŞ LİSTESİ].[SON KULLANMA TARİHİ])<Now())) ORDER BY [MALZEME GİRİŞ -ÇIKIŞ LİSTESİ].[SON KULLANMA TARİHİ];"


[MALZEME GİRİŞ -ÇIKIŞ LİSTESİ].[ÇIKIŞ TARİHİ])>0

[java]Select Case Açılan_Kutu23
Case "Tarih Artan"
Form.RecordSource = "SELECT [MALZEME GİRİŞ -ÇIKIŞ LİSTESİ].[SON KULLANMA TARİHİ], [MALZEME GİRİŞ -ÇIKIŞ LİSTESİ].[BARKOD NO], [MALZEME GİRİŞ -ÇIKIŞ LİSTESİ].[GELİŞ TARİHİ], [MALZEME GİRİŞ -ÇIKIŞ LİSTESİ].[MALZEME ADI], [MALZEME GİRİŞ -ÇIKIŞ LİSTESİ].[TEST SAYISI], [MALZEME GİRİŞ -ÇIKIŞ LİSTESİ].[ÇIKIŞ TARİHİ] FROM [MALZEME GİRİŞ -ÇIKIŞ LİSTESİ] WHERE ((([MALZEME GİRİŞ -ÇIKIŞ LİSTESİ].[SON KULLANMA TARİHİ]) > 0) And ((IsNull([ÇIKIŞ TARİHİ]))=-1)) ORDER BY [MALZEME GİRİŞ -ÇIKIŞ LİSTESİ].[SON KULLANMA TARİHİ];"
Case "Tarih Azalan"
Form.RecordSource = "SELECT [MALZEME GİRİŞ -ÇIKIŞ LİSTESİ].[SON KULLANMA TARİHİ], [MALZEME GİRİŞ -ÇIKIŞ LİSTESİ].[BARKOD NO], [MALZEME GİRİŞ -ÇIKIŞ LİSTESİ].[GELİŞ TARİHİ], [MALZEME GİRİŞ -ÇIKIŞ LİSTESİ].[MALZEME ADI], [MALZEME GİRİŞ -ÇIKIŞ LİSTESİ].[TEST SAYISI], [MALZEME GİRİŞ -ÇIKIŞ LİSTESİ].[ÇIKIŞ TARİHİ] FROM [MALZEME GİRİŞ -ÇIKIŞ LİSTESİ] WHERE ((([MALZEME GİRİŞ -ÇIKIŞ LİSTESİ].[SON KULLANMA TARİHİ])>0) And ((IsNull([ÇIKIŞ TARİHİ]))=-1)) ORDER BY [MALZEME GİRİŞ -ÇIKIŞ LİSTESİ].[SON KULLANMA TARİHİ] DESC;"
Case "son kullanma tarihi < bugün"
Form.RecordSource = "SELECT [MALZEME GİRİŞ -ÇIKIŞ LİSTESİ].[SON KULLANMA TARİHİ], [MALZEME GİRİŞ -ÇIKIŞ LİSTESİ].[BARKOD NO], [MALZEME GİRİŞ -ÇIKIŞ LİSTESİ].[GELİŞ TARİHİ], [MALZEME GİRİŞ -ÇIKIŞ LİSTESİ].[MALZEME ADI], [MALZEME GİRİŞ -ÇIKIŞ LİSTESİ].[TEST SAYISI], [MALZEME GİRİŞ -ÇIKIŞ LİSTESİ].[ÇIKIŞ TARİHİ] FROM [MALZEME GİRİŞ -ÇIKIŞ LİSTESİ] WHERE ((([MALZEME GİRİŞ -ÇIKIŞ LİSTESİ].[SON KULLANMA TARİHİ])<Now()) And ((IsNull([ÇIKIŞ TARİHİ]))=-1)) ORDER BY [MALZEME GİRİŞ -ÇIKIŞ LİSTESİ].[SON KULLANMA TARİHİ];"
Case "son kullanma tarihi-30<bugün"
Form.RecordSource = "SELECT [MALZEME GİRİŞ -ÇIKIŞ LİSTESİ].[SON KULLANMA TARİHİ], [MALZEME GİRİŞ -ÇIKIŞ LİSTESİ].[BARKOD NO], [MALZEME GİRİŞ -ÇIKIŞ LİSTESİ].[GELİŞ TARİHİ], [MALZEME GİRİŞ -ÇIKIŞ LİSTESİ].[MALZEME ADI], [MALZEME GİRİŞ -ÇIKIŞ LİSTESİ].[TEST SAYISI], [MALZEME GİRİŞ -ÇIKIŞ LİSTESİ].[ÇIKIŞ TARİHİ] FROM [MALZEME GİRİŞ -ÇIKIŞ LİSTESİ] WHERE (([SON KULLANMA TARİHİ]-30<Now()) And ((IsNull([ÇIKIŞ TARİHİ]))=-1)) ORDER BY [MALZEME GİRİŞ -ÇIKIŞ LİSTESİ].[SON KULLANMA TARİHİ];"
Case "son kullanma tarihi -90< bugün"
Form.RecordSource = "SELECT [MALZEME GİRİŞ -ÇIKIŞ LİSTESİ].[SON KULLANMA TARİHİ], [MALZEME GİRİŞ -ÇIKIŞ LİSTESİ].[BARKOD NO], [MALZEME GİRİŞ -ÇIKIŞ LİSTESİ].[GELİŞ TARİHİ], [MALZEME GİRİŞ -ÇIKIŞ LİSTESİ].[MALZEME ADI], [MALZEME GİRİŞ -ÇIKIŞ LİSTESİ].[TEST SAYISI], [MALZEME GİRİŞ -ÇIKIŞ LİSTESİ].[ÇIKIŞ TARİHİ] FROM [MALZEME GİRİŞ -ÇIKIŞ LİSTESİ] WHERE (([SON KULLANMA TARİHİ]-90<Now()) And ((IsNull([ÇIKIŞ TARİHİ]))=-1)) ORDER BY [MALZEME GİRİŞ -ÇIKIŞ LİSTESİ].[SON KULLANMA TARİHİ];"
Case Else
Exit Sub
End Select
End Sub[/java]

Üstteki kodu kullanın.

Select Case Açılan_Kutu23
Case "Tarih Artan"
Form.RecordSource = "SELECT [MALZEME GİRİŞ -ÇIKIŞ LİSTESİ].[SON KULLANMA TARİHİ], [MALZEME GİRİŞ -ÇIKIŞ LİSTESİ].[BARKOD NO], [MALZEME GİRİŞ -ÇIKIŞ LİSTESİ].[GELİŞ TARİHİ], [MALZEME GİRİŞ -ÇIKIŞ LİSTESİ].[MALZEME ADI], [MALZEME GİRİŞ -ÇIKIŞ LİSTESİ].[TEST SAYISI], [MALZEME GİRİŞ -ÇIKIŞ LİSTESİ].[ÇIKIŞ TARİHİ] FROM [MALZEME GİRİŞ -ÇIKIŞ LİSTESİ] WHERE ((([MALZEME GİRİŞ -ÇIKIŞ LİSTESİ].[SON KULLANMA TARİHİ]) > 0) And ((IsNull([ÇIKIŞ TARİHİ]))=-1)) ORDER BY [MALZEME GİRİŞ -ÇIKIŞ LİSTESİ].[SON KULLANMA TARİHİ];"
Case "Tarih Azalan"
Form.RecordSource = "SELECT [MALZEME GİRİŞ -ÇIKIŞ LİSTESİ].[SON KULLANMA TARİHİ], [MALZEME GİRİŞ -ÇIKIŞ LİSTESİ].[BARKOD NO], [MALZEME GİRİŞ -ÇIKIŞ LİSTESİ].[GELİŞ TARİHİ], [MALZEME GİRİŞ -ÇIKIŞ LİSTESİ].[MALZEME ADI], [MALZEME GİRİŞ -ÇIKIŞ LİSTESİ].[TEST SAYISI], [MALZEME GİRİŞ -ÇIKIŞ LİSTESİ].[ÇIKIŞ TARİHİ] FROM [MALZEME GİRİŞ -ÇIKIŞ LİSTESİ] WHERE ((([MALZEME GİRİŞ -ÇIKIŞ LİSTESİ].[SON KULLANMA TARİHİ])>0) And ((IsNull([ÇIKIŞ TARİHİ]))=-1)) ORDER BY [MALZEME GİRİŞ -ÇIKIŞ LİSTESİ].[SON KULLANMA TARİHİ] DESC;"
Case "son kullanma tarihi < bugün"
Form.RecordSource = "SELECT [MALZEME GİRİŞ -ÇIKIŞ LİSTESİ].[SON KULLANMA TARİHİ], [MALZEME GİRİŞ -ÇIKIŞ LİSTESİ].[BARKOD NO], [MALZEME GİRİŞ -ÇIKIŞ LİSTESİ].[GELİŞ TARİHİ], [MALZEME GİRİŞ -ÇIKIŞ LİSTESİ].[MALZEME ADI], [MALZEME GİRİŞ -ÇIKIŞ LİSTESİ].[TEST SAYISI], [MALZEME GİRİŞ -ÇIKIŞ LİSTESİ].[ÇIKIŞ TARİHİ] FROM [MALZEME GİRİŞ -ÇIKIŞ LİSTESİ] WHERE ((([MALZEME GİRİŞ -ÇIKIŞ LİSTESİ].[SON KULLANMA TARİHİ])<Now()) And ((IsNull([ÇIKIŞ TARİHİ]))=-1)) ORDER BY [MALZEME GİRİŞ -ÇIKIŞ LİSTESİ].[SON KULLANMA TARİHİ];"
Case "son kullanma tarihi-30<bugün"
Form.RecordSource = "SELECT [MALZEME GİRİŞ -ÇIKIŞ LİSTESİ].[SON KULLANMA TARİHİ], [MALZEME GİRİŞ -ÇIKIŞ LİSTESİ].[BARKOD NO], [MALZEME GİRİŞ -ÇIKIŞ LİSTESİ].[GELİŞ TARİHİ], [MALZEME GİRİŞ -ÇIKIŞ LİSTESİ].[MALZEME ADI], [MALZEME GİRİŞ -ÇIKIŞ LİSTESİ].[TEST SAYISI], [MALZEME GİRİŞ -ÇIKIŞ LİSTESİ].[ÇIKIŞ TARİHİ] FROM [MALZEME GİRİŞ -ÇIKIŞ LİSTESİ] WHERE (([SON KULLANMA TARİHİ]-30<Now()) And ((IsNull([ÇIKIŞ TARİHİ]))=-1)) ORDER BY [MALZEME GİRİŞ -ÇIKIŞ LİSTESİ].[SON KULLANMA TARİHİ];"
Case "son kullanma tarihi -90< bugün"
Form.RecordSource = "SELECT [MALZEME GİRİŞ -ÇIKIŞ LİSTESİ].[SON KULLANMA TARİHİ], [MALZEME GİRİŞ -ÇIKIŞ LİSTESİ].[BARKOD NO], [MALZEME GİRİŞ -ÇIKIŞ LİSTESİ].[GELİŞ TARİHİ], [MALZEME GİRİŞ -ÇIKIŞ LİSTESİ].[MALZEME ADI], [MALZEME GİRİŞ -ÇIKIŞ LİSTESİ].[TEST SAYISI], [MALZEME GİRİŞ -ÇIKIŞ LİSTESİ].[ÇIKIŞ TARİHİ] FROM [MALZEME GİRİŞ -ÇIKIŞ LİSTESİ] WHERE (([SON KULLANMA TARİHİ]-90<Now()) And ((IsNull([ÇIKIŞ TARİHİ]))=-1)) ORDER BY [MALZEME GİRİŞ -ÇIKIŞ LİSTESİ].[SON KULLANMA TARİHİ];"
Case Else
Exit Sub
End Select
End Sub
bu kodu kullanın.



kod çalıştı.sabrınız ve yardımınız için çok teşekkür ederim.

sayın admin, yazdığınız kodu görünce dudağım uçukladı. Tebrikler. Bu soru ancak bu şekilde temiz çözülürdü. Aynısını kendi formumada ekleyeceğim, benimde tarihe göre sorgu eklemem gerekiyor.