[Resolvido]Pesquisa CEP

Bom Dia


Estou desenvolvendo um BD e nele eu tenho um cadastro de Cliente no qual eu coloquei uma pesquisa de CEP.
Quando eu clico em pesquisar CEP ele abre o Form CadastroCEP, após encontrar o CEP desejado eu clico sobre ele e novamente ele retorno para o cadastro de Clientes.
Porém o meu problema é o seguinte.

Quando ele retorno ele trás o CEP desejado, porém os outros campos não são atualizados, exceto quando eu clico no campo CEP e redigito o ultmo numero. daí sim os outros campos são automaticamente preenchidos.


Desde já agradeço.

So com esses detalhes terei que ir na suposiçao...

Provavelmente nesse campo CEP vc tem algum preenchimento feito pelo evento apos atualizar... O que não é compreendido quando se envia o Valor para o Campo...

Solução: Da mesma forma como envia o CEP do formulário de consulta, para o Formulário de Cadastro cliente... Deve enviar todos os outros Dados para os outros campos...

Segue os detalhes.

No meu form_CAD_CLIENTES no campo txt_cep eu tenho os seguinte eventos.

Após atualizar

Código:

Private Sub txt_cep_AfterUpdate()
If IsNull(Me.txt_cep) Or Me.txt_cep.Value = "" Then
Me.Recordset
Exit Sub
Else
Me.txt_cep = txt_cep.Column(0)
Me.txt_endereco = txt_cep.Column(1)
Me.txt_cidade = txt_cep.Column(3)
Me.txt_uf = txt_cep.Column(4)
Me.txt_bairro = txt_cep.Column(2)
End If
End Sub

Se não estiver na lista

Código:

Private Sub txt_cep_NotInList(NewData As String, Response As Integer)
If MsgBox("O CEP '" & NewData & "'" & vbCrLf & " no qual você digitou não esta Cadastrado :  " & vbCrLf & "Deseja Cadastra-lo?", 32 + vbYesNo, "Informando") = 6 Then

  DoCmd.OpenForm "FRM_CAD_CEP", , , , acFormAdd, acDialog, NewData

  ' A execução deste código fica interrompida aqui até o fechamento do formulário FrmEnderecos.

        Response = acDataErrAdded

    Else

        Response = acDataErrContinue

    End If

End Sub
'------------------------------------------------------------
' BtnEditarCep_Click
'
'------------------------------------------------------------
Private Sub BtnEditarCep_Click()
On Error GoTo BtnEditarCep_Click_Err

    If (IsNull(txt_cep) = True) Then
        Beep
        Exit Sub
    End If
    TempVars.Add "CEP_NOVO", txt_cep
    DoCmd.OpenForm "FRM_CAD_CEP", acNormal, "", "[CEP]=[TempVars]![CEP_NOVO]", , acNormal
    If (Forms!FRM_CAD_CEP!Cep <> TempVars!CEP_NOVO) Then
        DoCmd.GoToRecord , "", acNewRec
    End If
    If (CurrentProject.IsTrusted) Then
        Forms!FRM_CAD_CEP!Cep = TempVars!CEP_NOVO
    End If
    TempVars.Remove "[TempVars]![CEP]"


BtnEditarCep_Click_Exit:
    Exit Sub

BtnEditarCep_Click_Err:
    MsgBox Error$
    Resume BtnEditarCep_Click_Exit

End Sub

o campo que recebe o cep ele é uma CAIXA DE LISTAGEM.

Monta essa parte e posta aqui pra dar uma olhada!

Segue em Anexo a parte do meu BD.

No formulário FRM_CAD_CLIENTES, clicando em localizar o CEP no desenho e depois basta digitar um endereço e clicar sobre o mesmo no subform, ele automaticamente fecha o form_pesquiza_Cep e abre o FRM_CAD_CLIENTE.


Segue o meu BD para Teste.

Retorna CEP

Veja que mudei apenas para Endereço, Cidade e Bairro... Faça pros outros campos e Formularios... se tiverem:

No Evento Ao clicar do Seu Campo ENDERECO Do SubFrmLocalizarCEP coloque:

Private Sub ENDERECO_Click()
Dim CepLocalizado As Long
Dim EnderecoLocalizado, BairroLocalizado, CidadeLocalizada As String ' Mudei aqui

CepLocalizado = Me!CEP
EnderecoLocalizado = Me.ENDERECO ' Mudei aqui
BairroLocalizado = Me.BAIRRO ' Mudei aqui
CidadeLocalizada = Me.CIDADE ' Mudei aqui

If FormLoad("FRM_CAD_CLIENTES") Then
DoCmd.Close
Form_FRM_CAD_CLIENTES.txt_cep = CepLocalizado
Form_FRM_CAD_CLIENTES.txt_endereco = EnderecoLocalizado ' Mudei aqui
Form_FRM_CAD_CLIENTES.txt_bairro = BairroLocalizado ' Mudei aqui
Form_FRM_CAD_CLIENTES.txt_cidade = CidadeLocalizada ' Mudei aqui
Form_FRM_CAD_CLIENTES.txt_cep.SetFocus
Form_FRM_CAD_CLIENTES.txt_numero.SetFocus
Call BuscaCep(Form_FRM_CAD_CLIENTES)

ElseIf FormLoad("FRM_CAD_FUNCIONARIO") Then
DoCmd.Close
Form_FRM_CAD_FUNCIONARIO.txt_cep = CepLocalizado
Form_FRM_CAD_FUNCIONARIO.txt_numero.SetFocus
'Call BuscaCep(Form_FRM_CAD_FUNCIONARIO)

ElseIf FormLoad("FRM_CAD_FORNECEDORES") Then
DoCmd.Close
Form_FRM_CAD_FORNECEDORES.txt_cep = CepLocalizado
Form_FRM_CAD_FORNECEDORES.txt_numero.SetFocus
'Call BuscaCep(Form_FRM_CAD_FORNECEDORES)

ElseIf FormLoad("FRM_CAD_EMITENTE") Then
DoCmd.Close
Form_FRM_CAD_EMITENTE.txt_cep = CepLocalizado
Form_FRM_CAD_EMITENTE.txt_numero.SetFocus


End If
End Sub

Muito Obrigado

Deu certinho.