kodu aşağıdaki ile değiştir.

Private Sub Çerçeve43_AfterUpdate()

hareket = "LARMADEPO"

Select Case Çerçeve43

Case 1

Me.Listekutusu.RowSource = "SELECT t_hambezgönderilen.G_Anahtar, t_hambezgönderilen.giden_ürünadı, t_hambezgönderilen.giden_hambezmt, t_hambezgönderilen.giden_irsaliyeno, t_hambezgönderilen.giden_faturano, t_hambezgönderilen.giden_beztarihi, t_hambezgönderilen.giden_geldigiyer, t_hambezgönderilen.giden_sevkyeri, t_hambezgönderilen.giden_not, t_hambezgönderilen.giden_beztipi, t_hambezgönderilen.giden_kimlik," & _

"[giden_hambezmt] & '*' & [giden_irsaliyeno] & '*' & [giden_geldigiyer] & '*' & [giden_sevkyeri] & '*' & [giden_ürünadı] & '*' & [giden_not] & '*' & [giden_beztipi] & '*' & [giden_kimlik] & '*' & [giden_beztarihi] & '*' & [giden_faturano] AS Arama FROM t_hambezgönderilen WHERE (((t_hambezgönderilen.giden_geldigiyer)='" & hareket & "') AND (([hambezsipno] & '*' & [giden_hambezmt] & '*' & [giden_irsaliyeno] & '*'" & _

"& [giden_geldigiyer] & '*' & [giden_sevkyeri] & '*' & [giden_ürünadı] & '*' & [giden_not] & '*'&[giden_beztipi]&'*' & [giden_beztarihi] & '*' & [giden_faturano]) Like '*' & [Formlar]![t_hambezgönderilen]![Metin100] & '*')) ORDER BY t_hambezgönderilen.giden_beztarihi;"

Case 2

Me.Listekutusu.RowSource = "SELECT t_hambezgönderilen.G_Anahtar, t_hambezgönderilen.giden_ürünadı, t_hambezgönderilen.giden_hambezmt, t_hambezgönderilen.giden_irsaliyeno, t_hambezgönderilen.giden_faturano, t_hambezgönderilen.giden_beztarihi, t_hambezgönderilen.giden_geldigiyer, t_hambezgönderilen.giden_sevkyeri, t_hambezgönderilen.giden_not, t_hambezgönderilen.giden_beztipi, t_hambezgönderilen.giden_kimlik," & _

"[giden_hambezmt] & '*' & [giden_irsaliyeno] & '*' & [giden_geldigiyer] & '*' & [giden_sevkyeri] & '*' & [giden_ürünadı] & '*' & [giden_not] & '*' & [giden_beztipi] & '*' & [giden_kimlik] & '*' & [giden_beztarihi] & '*' & [giden_faturano] AS Arama FROM t_hambezgönderilen WHERE (((t_hambezgönderilen.giden_geldigiyer)<>'" & hareket & "') AND (([hambezsipno] & '*' & [giden_hambezmt] & '*' & [giden_irsaliyeno] & '*'" & _

"& [giden_geldigiyer] & '*' & [giden_sevkyeri] & '*' & [giden_ürünadı] & '*' & [giden_not] & '*'&[giden_beztipi]&'*' & [giden_beztarihi] & '*' & [giden_faturano]) Like '*' & [Formlar]![t_hambezgönderilen]![Metin100] & '*')) ORDER BY t_hambezgönderilen.giden_beztarihi;"

End Select

Me.Listekutusu.Requery

End Sub