Skip to main content

AccessTr.neT


son kullanma tarihi koşullu biçimlendirme ve koşullu filtre uygulaması

son kullanma tarihi koşullu biçimlendirme ve koşullu filtre uygulaması

Çözüldü #13
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.
Son Düzenleme: 06/09/2010, 21:42, Düzenleyen: filiz_lab.
Cevapla
Çözüldü #14
koddaki sorgulara [MALZEME GİRİŞ -ÇIKIŞ LİSTESİ].[ÇIKIŞ TARİHİ])>0 kriterini ekleyemez misin ?
Cevapla
Çözüldü #15
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
Cevapla
Çözüldü #16
[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.
Cevapla
Çözüldü #17
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.



+rep kod çalıştı.sabrınız ve yardımınız için çok teşekkür ederim. +rep
Cevapla
Çözüldü #18
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.
SÖZ VERİYORUM... USLU DURUCAM...
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task