Sizin Vba kodunda yazdığınız :

strSQL = "SELECT * FROM TBLDOVIZ WHERE AKTIF=" & E & "  ORDER BY DOVIZKODU "

E ne anlama gelir? E isminde bir denetim var ve onun değerini kriter olarak vermeye çalıştığınız anlamına gelir. Oradaki E harfini tırnakların dışına değil içine yazmalısınız.

Nihayetinde kod şöyle olacak:

Select Case cbAktif

Case 1

    strSQL = "SELECT * FROM TBLDOVIZ WHERE AKTIF='E' ORDER BY DOVIZKODU "

     Liste10.RowSource = strSQL

     Liste10.Requery

     

Case 2

     strSQL = "SELECT * FROM TBLDOVIZ WHERE AKTIF='H' ORDER BY DOVIZKODU "

     Liste10.RowSource = strSQL

     Liste10.Requery

     

Case 3

     strSQL = "SELECT * FROM TBLDOVIZ ORDER BY DOVIZKODU "

     Liste10.RowSource = strSQL

     Liste10.Requery



End Select