[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.