[Resolvido]Atualizar Campo

Bom Dia!

Necessito de uma ajuda para solucionar um problema de atualização de campos.

Tenho um formulário de Cadastro [Frm_Controle de Acessos] onde faço um busca de funcionário clicando no botão pesquisar, onde me abre uma tela, que seleciono o funcionário e ele me retorno 08 campos preenchidos (CNPJ, Cargo, Funcionários e outros), exceto 03, que deveria atualizar automaticamente ao receber a partir do CNPJ.

Já utilizei AfterUpdate, Dirty, já fiz um Reflesh no formulário e não consegui atualizar os campos a partir de outros campos.

Aguardo ajuda. Desde já agradeço.

Ja utilizou o .Recalc?

Fabio,

Boa Tarde!

Não funcionou. Teste tanto no current como no Dirty e também no AfterUpdate. Se eu lanço manual no campo funciona o afterupdate, porém, se ele vem de atualização de outro formulário não carregar os demais campos.

Código:

Private Sub txt_cnpj_AfterUpdate()
Me.Recalc
Me.txt_tel1 = Nz(DLookup("[Telefone 01]", "[Cadastro de Empresa]", "[CNPJ]='" & Me.txt_cnpj & "'"), "")
Me.txt_tel2 = Nz(DLookup("[Telefone 02]", "[Cadastro de Empresa]", "[CNPJ]='" & Me.txt_cnpj & "'"), "")

End Sub

Posta aqui pra darmos uma Olhada! E fala em qual formulario e o que fazer para obter o problema.

Fabio,

Segue o BD para vc dar uma olhada.

Acesse o formulário [Frm_Controle de Acessos] clique na lupa ao lado do campo Nº do Documento, abri uma tela de busca, selecione o primeiro, clique duas vezes sobre o nome, o valor retorna, porém, os campos telefone não atualizam pelo Afterupdate com base no CNPJ cadastrado em outra tabela.

Grato,

Mude o evento ao clicar 2x da cxListagem para:

Código:

Private Sub list_consulta_nome_DblClick(Cancel As Integer)
    If IsNull(list_consulta_nome) = True Then
        MsgBox "Selecione um Prestador de Serviço", vbCritical, "Erro"
        list_consulta_nome.SetFocus
    Else
        [Form_Frm_Controle de Acessos].txt_n_doc = list_consulta_nome.Column(1)
        [Form_Frm_Controle de Acessos].txt_tdoc = list_consulta_nome.Column(0)
        [Form_Frm_Controle de Acessos].txt_nome = list_consulta_nome.Column(2)
        [Form_Frm_Controle de Acessos].txt_cnpj = list_consulta_nome.Column(4)
        [Form_Frm_Controle de Acessos].txt_empresa = list_consulta_nome.Column(3)
        [Form_Frm_Controle de Acessos].txt_cargo = list_consulta_nome.Column(5)
        [Form_Frm_Controle de Acessos].Caminho_Foto = list_consulta_nome.Column(7)
        [Form_Frm_Controle de Acessos].txt_tel1 = Nz(DLookup("[Telefone 01]", "[Cadastro de Empresa]", "[CNPJ]='" & Me.list_consulta_nome.Column(4) & "'"), "")
        [Form_Frm_Controle de Acessos].txt_tel2 = Nz(DLookup("[Telefone 02]", "[Cadastro de Empresa]", "[CNPJ]='" & Me.list_consulta_nome.Column(4) & "'"), "")

        DoCmd.Close
    End If
End Sub


Observe que foi adicionado a pesquisa logo que corre o preenchimento dos campos!

Porque esta dando esse "Problema" que na verdade nao e um problema...

O evento Apos atualizar ocorre quando você entra no Campo e realiza uma alteração! Observe, tem que alterar o campo e somente ao sair dele é que é processado o evento. dessa forma quando vc envia os dados pro formulário esse evento NUNCA e processado, e por isso nao ocorre o preenchimento do telefone!

Mestre Fabio, Top demais...

Porém, a foto deixou de aparecer agora...rsrs

Não é que ela deixou de aparecer agora... Se você observar na sua caixa de listam você tem 6 Colunas (Inicia de 0 e vai até 5) então como e que vc esta aplicando o valor da coluna 7? E além do mais, no exemplo que me mandou o Campo Foto nem faz parta da caixa de listagem!

Fabio,

Desculpe o equivoco.

Agora arrumei, porém, a informação do caminho vai para a foto e ela não atualiza.

Segue o arquivo em anexo denovo.

Amigo, o erro é o mesmo dos outros campos!

Observe que você Apenas enviou o caminho da foto para o campo Caminho foto... Deve realizar o Carregamento da foto no campo "txt_Foto" que é o controle que exibira a foto...
[Form_Frm_Controle de Acessos]!txt_foto.Picture = [Form_Frm_Controle de Acessos].Caminho_Foto


Lembre-se que te falei na mensagem anterior... O evento apos atualizar so executa quando vc entra no campo e altera algo, em seguida sai. Esse e o momento em que ele e executado!

Mestre,

Devo ser muito lesado, inseri o seu código que continuou apresentando erro, e ainda tentei varia possibilidade para solucionar, porém, sem sucesso.

Agora esta dando um erro em tempo de execução '13': Tipos incompatíveis.

Segue o meu código depois de corrigido.

Código:

Private Sub list_consulta_nome_DblClick(Cancel As Integer)
    If IsNull(list_consulta_nome) = True Then
        MsgBox "Selecione um Prestador de Serviço", vbCritical, "Erro"
        list_consulta_nome.SetFocus
    Else
        [Form_Frm_Controle de Acessos].txt_n_doc = list_consulta_nome.Column(1)
        [Form_Frm_Controle de Acessos].txt_tdoc = list_consulta_nome.Column(0)
        [Form_Frm_Controle de Acessos].txt_nome = list_consulta_nome.Column(2)
        [Form_Frm_Controle de Acessos].txt_cnpj = list_consulta_nome.Column(4)
        [Form_Frm_Controle de Acessos].txt_empresa = list_consulta_nome.Column(3)
        [Form_Frm_Controle de Acessos].txt_cargo = list_consulta_nome.Column(5)
        [Form_Frm_Controle de Acessos].Caminho_Foto = list_consulta_nome.Column(7)
        [Form_Frm_Controle de Acessos].txt_tel1 = Nz(DLookup("[Telefone 01]", "[Cadastro de Empresa]", "[CNPJ]='" & Me.list_consulta_nome.Column(4) & "'"), "")
        [Form_Frm_Controle de Acessos].txt_tel2 = Nz(DLookup("[Telefone 02]", "[Cadastro de Empresa]", "[CNPJ]='" & Me.list_consulta_nome.Column(4) & "'"), "")
        [Form_Frm_Controle de Acessos]!txt_foto.Picture = [Form_Frm_Controle de Acessos].Caminho_Foto

        DoCmd.Close
    End If
End Sub


As instruções anteriores: Inclua alinha indicada a baixo da ultima linha do arquivo que me passou...

Ficando assim:

Código:

Private Sub list_consulta_nome_DblClick(Cancel As Integer)
    If IsNull(list_consulta_nome) = True Then
        MsgBox "Selecione um Prestador de Serviço", vbCritical, "Erro"
        list_consulta_nome.SetFocus
    Else
        [Form_Frm_Controle de Acessos].txt_n_doc = list_consulta_nome.Column(1)
        [Form_Frm_Controle de Acessos].txt_tdoc = list_consulta_nome.Column(0)
        [Form_Frm_Controle de Acessos].txt_nome = list_consulta_nome.Column(2)
        [Form_Frm_Controle de Acessos].txt_cnpj = list_consulta_nome.Column(4)
        [Form_Frm_Controle de Acessos].txt_empresa = list_consulta_nome.Column(3)
        [Form_Frm_Controle de Acessos].txt_cargo = list_consulta_nome.Column(5)
        [Form_Frm_Controle de Acessos].Caminho_Foto = list_consulta_nome.Column(7)
        [Form_Frm_Controle de Acessos].txt_tel1 = Nz(DLookup("[Telefone 01]", "[Cadastro de Empresa]", "[CNPJ]='" & Me.list_consulta_nome.Column(4) & "'"), "")
        [Form_Frm_Controle de Acessos].txt_tel2 = Nz(DLookup("[Telefone 02]", "[Cadastro de Empresa]", "[CNPJ]='" & Me.list_consulta_nome.Column(4) & "'"), "")
        [Form_Frm_Controle de Acessos].Caminho_Foto = Nz(DLookup("[LocalPastaObra]", "[Cadastro de Terceiro]", "[CNPJ]='" & Me.list_consulta_nome.Column(4) & "'"), "")
        [Form_Frm_Controle de Acessos]!txt_foto.Picture = [Form_Frm_Controle de Acessos].Caminho_Foto
        DoCmd.Close
    End If
End Sub

Fabio,

Deu certo a foto apareceu, porém, quando clico em outro nome a foto não muda sempre fica a mesma e reparei também, que o campo telefone acontece a mesma coisa.

Tentei até fazer o refresh dos campos e formulário e não funcionou.

Desde já agradeço pela ajuda.

Amigo, tem algo muito errado la com sua tabela de acesso...

Veja que tanto o "MAURICIO BRUNO" quanto a "MARIA JOSE" possuem o mesmo CNPJ... Sendo assim... Sempre e colocado o mesmo CNPJ e os outros dados tabem... Esse é o motivo amigo de sempre estar com os mesmos dados! Assim nunca dará certo!



Outra coisa, a forma correta de referencia e eviar dados para outro formulario é essa:

Forms![Frm_Controle de Acessos].txt_n_doc = list_consulta_nome.Column(1)
e não essa:
[Form_Frm_Controle de Acessos].txt_n_doc = list_consulta_nome.Column(1)

Deu Certo. Muito Obrigado