Herkese kolay gelsin
Ekteki formda combobox da after update sonrasında Vba da yazdığım kod çalışmıyor.
Where komutunu çalıştıramadım. Koda bakıp düzeltebilirmisiniz. Yardımınız için şimdiden teşekkürler.
![Çözüldü](images/icons/cozuldu.png)
strSQL = "SELECT * FROM TBLDOVIZ WHERE AKTIF=" & E & " ORDER BY DOVIZKODU "
strSQL = "SELECT * FROM TBLDOVIZ WHERE AKTIF=" & E & " ORDER BY DOVIZKODU "
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