+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: son kullanma tarihi koşullu biçimlendirme ve koşullu filtre uygulaması (/konu-son-kullanma-tarihi-kosullu-bicimlendirme-ve-kosullu-filtre-uygulamasi.html)
Cvp: son kullanma tarihi koşullu biçimlendirme ve koşullu filtre uygulaması - filiz_lab - 06/09/2010
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.
Cvp: son kullanma tarihi koşullu biçimlendirme ve koşullu filtre uygulaması - ozanakkaya - 06/09/2010
koddaki sorgulara [MALZEME GİRİŞ -ÇIKIŞ LİSTESİ].[ÇIKIŞ TARİHİ])>0 kriterini ekleyemez misin ?
Cvp: son kullanma tarihi koşullu biçimlendirme ve koşullu filtre uygulaması - filiz_lab - 06/09/2010
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
Cvp: son kullanma tarihi koşullu biçimlendirme ve koşullu filtre uygulaması - ozanakkaya - 06/09/2010
[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.
Cvp: son kullanma tarihi koşullu biçimlendirme ve koşullu filtre uygulaması - filiz_lab - 06/09/2010
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.
Cvp: son kullanma tarihi koşullu biçimlendirme ve koşullu filtre uygulaması - access_delisi - 07/09/2010
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.