Tenho um formulario de cadastro onde tem um campo de cep, hoje eu faço a consulta do cep clicando em um botao de pesquisa ou usando uma tecla de atalho que ao clicar abre o formulario de pesquisa, tem a funcao sql que faz a busca por cep ou rua:
'formulario de pesquisa cep:
Private Sub txtbusca_Change()
On Error GoTo trata_erro
If optcep.Value = True Then
sql = "CEP like '" & txtbusca.Text & "%'"
Else
sql = "RUA like '" & txtbusca.Text & "%'"
End If
Adodc1.Recordset.Filter = sql
e a funcão no formulario PesquisaCep para preencher o formulario depois de efetuar a busca e encontrar o endereço:
'formulario de pesquisa cep:
Private Sub BotaoOk_Click()
On Error Resume Next
Load frmPesquisaCep
frmCadCliente.txtRua.Text = dtgrdcep.Columns(1)
frmCadCliente.txtCep.Text = dtgrdcep.Columns(2)
frmCadCliente.txtCidade.Text = dtgrdcep.Columns(3)
Unload frmPesquisaCep
Eu queria fazer o seguinte, caso a pessoa ja saiba o numero do cep, ao digitar no formulario do cadastro, fazer o preenchimento dos campos (rua,cep,cidade....) como é feito no botaoOK do formulario de pesquisa cep, sem ter que abrir o formulario de busca e nem ter que procuar e depois dar clicar no botao Ok.....
Acho que no botão lostfocus do campo txtcep, colocar uma função que busca e ja preenche e se não encontrar dar a mensagem de que o cep esta invalido, daria certo...como fazer?????
