strSQLCmb = Replace(strSQLCmb, "%", "*") '<--eklendi ekleyerek denediniz mi
69. mesajda yer alan dosyadaki kodu aşağıdaki gibi düzenleyerek dener misiniz?

Sub CmbDldr()

On Error Resume Next

    X = ActiveControl.SelStart

    ActiveControl.Value = ActiveControl.Text

    ActiveControl.SelStart = X

Err.Clear

     strSQLCmb = " where Not IsNull(id)"

     

     If Len(Nz(cmboAdArama.Value, "")) > 0 Then strSQLCmb = strSQLCmb & " and Ad like '*" & cmboAdArama.Value & "*'"

     If Len(Nz(cmboSoyadArama.Value, "")) > 0 Then strSQLCmb = strSQLCmb & " and Soyad like '*" & cmboSoyadArama.Value & "*'"

     If Len(Nz(cmboYasArama.Value, "")) > 0 Then strSQLCmb = strSQLCmb & " and Yas like '*" & cmboYasArama.Value & "*'"



strSQLCmb = Replace(strSQLCmb, "%", "*") '<--eklendi

    cmboAdArama.RowSource = "select distinct ad from Tablo1 " & strSQLCmb

    cmboSoyadArama.RowSource = "select  distinct Soyad  from Tablo1 " & strSQLCmb

    cmboYasArama.RowSource = "select  distinct Yas  from Tablo1 " & strSQLCmb

    

End Sub