Tenho uma busca de cep, que é ativada ao clicar no botão de pesquisa de cep, ai abre a tabela onde tem todos os cep, o formulario de pesquisa tem um txtpesquisa, dois optionbutton "CEP" e "RUA", e o datagrid onde mostra o cep e a rua, a conexão é feita pelo adodc, então ja tras todos os cep que estao na tabela, eu queria o seguinte se clicar no optionbutton do CEP ao digitar o no txtpesquisa ir filtrando o codigo automatico e se clicar no button Rua ao digitar a rua ia filtrando a rua.Tentei assim:

On Error GoTo trata_erro
Adodc1.Recordset.Filter = "RUA like '" & txtbusca.Text & "%'"
trata_erro:
With Err
If .Number <> 0 Then
.Number = 0
End If
End With
End Sub
como que eu faço o controle pelos optionbutton?Clicou em cep vai digitando o nr vai buscando, clicou em rua, vai digitando a rua e vai buscando....

Ta um pouco confuso mas vou tentar escrever o que entendi...

 

If OptRua.Value = 1 then

   SQL = "Select * from Tabela where Rua like '*" & txt & "*'"

else

   SQL = "Select * from Tabela where CEP like '*" & txt & "*'"

end if

Adodc1.Recordset.Filter SQL

FIZ MAS NÃO FILTROU......SEGUINTE SE O OPTCEP ESTIVER MARCADO ENTÃO O TXTPESQUISA AO DIGITAR QUALQUER COISA NO CAMPO VAI FILTRAR O CEP, E O MESMO COM O OPTRUA....

Só corrigindo uma coisinha do código

 

fiz assim:

Private Sub txtbusca_Change()
If optcep.Value = True Then
   sql = "Select * from cep where Rua like '*" & txtbusca.Text & "*'"
Else
   sql = "Select * from cep where CEP like '*" & txtbusca.Text & "*'"
End If
Adodc1.Recordset.Filter = sql
deu o seguinte erro:

 

Run-time error "3001":

Os argumentos incorretos, estao fora do intervalo aceitavel ou estao em conflito.