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