MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Autocompletar um campo a partir de dado em lista de seleção

    Compartilhe

    mariofloripa
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 3
    Registrado : 10/08/2015

    Autocompletar um campo a partir de dado em lista de seleção

    Mensagem  mariofloripa em Ter 23 Out 2018, 21:40

    Boa tarde

    Estou criando um banco de dados e necessito de ajuda para preenchimento automático de campo.

    Tenho uma tabela com os campos NOME e CPF/CNPJ (resultante de consulta)

    Em outra tabela (acompanhamento de processos), criei um campo de seleção, onde seleciono o CPF/CNPJ (lista de seleção).

    Gostaria que, ao selecionar o CPF/CNPJ no formulário, em outro campo houvesse a inserção automática do nome correspondente ao valor selecionado.

    Alguém poderia me ajudar, em especial via criação de Macro, por gentileza?

    Muito obrigado
    avatar
    Sidney
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 331
    Registrado : 08/10/2012

    Re: Autocompletar um campo a partir de dado em lista de seleção

    Mensagem  Sidney em Ter 23 Out 2018, 21:52

    Mario boa Tarde!!

    Voce pode usar a função Dlookup, veja o exemplo;

    Código:
    Me.NOME= DLookup("NOME", "SuaTabela", "CPF/CNPJ=Forms!seuformulario!CPF/CNPJ")

    att, Sidney

    mariofloripa
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 3
    Registrado : 10/08/2015

    Autocompletar um campo a partir de dado em lista de seleção

    Mensagem  mariofloripa em Ter 23 Out 2018, 22:03

    Obrigado Sidney

    onde coloco essa linha?

    abaixo o VBA do form:

    Option Compare Database

    Private Sub CPF_CNPJ_BeforeUpdate(Cancel As Integer)

    End Sub

    Private Sub excluirrregistro_Click()
    On Error GoTo Err_excluirrregistro_Click


    DoCmd.RunCommand acCmdSelectRecord
    DoCmd.RunCommand acCmdDeleteRecord

    Exit_excluirrregistro_Click:
    Exit Sub

    Err_excluirrregistro_Click:
    MsgBox Err.Description
    Resume Exit_excluirrregistro_Click

    End Sub
    Private Sub atualizarformulario_Click()
    On Error GoTo Err_atualizarformulario_Click


    DoCmd.RunCommand acCmdRefresh

    Exit_atualizarformulario_Click:
    Exit Sub

    Err_atualizarformulario_Click:
    MsgBox Err.Description
    Resume Exit_atualizarformulario_Click

    End Sub
    Private Sub localizaregistro_Click()
    On Error GoTo Err_localizaregistro_Click


    Screen.PreviousControl.SetFocus
    DoCmd.RunCommand acCmdFind

    Exit_localizaregistro_Click:
    Exit Sub

    Err_localizaregistro_Click:
    MsgBox Err.Description
    Resume Exit_localizaregistro_Click

    End Sub
    Private Sub imprimircadastronotificacao_Click()
    On Error GoTo Err_imprimircadastronotificacao_Click

    Dim stDocName As String
    Dim MyForm As Form

    stDocName = "Cadastro Notificação"
    Set MyForm = Screen.ActiveForm
    DoCmd.SelectObject acTable, stDocName, True
    DoCmd.PrintOut
    DoCmd.SelectObject acForm, MyForm.Name, False

    Exit_imprimircadastronotificacao_Click:
    Exit Sub

    Err_imprimircadastronotificacao_Click:
    MsgBox Err.Description
    Resume Exit_imprimircadastronotificacao_Click

    End Sub
    Private Sub fecharformularionotificacao_Click()
    On Error GoTo Err_fecharformularionotificacao_Click


    If Me.Dirty Then Me.Dirty = False
    DoCmd.Close

    Exit_fecharformularionotificacao_Click:
    Exit Sub

    Err_fecharformularionotificacao_Click:
    MsgBox Err.Description
    Resume Exit_fecharformularionotificacao_Click

    End Sub
    Private Sub Comando29_Click()
    On Error GoTo Err_Comando29_Click


    Screen.PreviousControl.SetFocus
    DoCmd.RunCommand acCmdFind

    Exit_Comando29_Click:
    Exit Sub

    Err_Comando29_Click:
    MsgBox Err.Description
    Resume Exit_Comando29_Click

    End Sub
    Private Sub Adicionar_Notificacao_Click()
    On Error GoTo Err_Adicionar_Notificacao_Click


    DoCmd.GoToRecord , , acNewRec

    Exit_Adicionar_Notificacao_Click:
    Exit Sub

    Err_Adicionar_Notificacao_Click:
    MsgBox Err.Description
    Resume Exit_Adicionar_Notificacao_Click

    End Sub
    Private Sub Salvar_nova_notificacao_Click()
    On Error GoTo Err_Salvar_nova_notificacao_Click


    DoCmd.RunCommand acCmdSaveRecord

    Exit_Salvar_nova_notificacao_Click:
    Exit Sub

    Err_Salvar_nova_notificacao_Click:
    MsgBox Err.Description
    Resume Exit_Salvar_nova_notificacao_Click

    End Sub


    Desculpe se estou sendo muito vago...
    avatar
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 410
    Registrado : 22/11/2016

    Re: Autocompletar um campo a partir de dado em lista de seleção

    Mensagem  IvanJr. em Qua 24 Out 2018, 01:21

    Para acrescentar ao tópico, exemplo com macro
    Anexos
    exemplomacro.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (21 Kb) Baixado 9 vez(es)
    avatar
    Sidney
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 331
    Registrado : 08/10/2012

    Re: Autocompletar um campo a partir de dado em lista de seleção

    Mensagem  Sidney em Qua 24 Out 2018, 02:13

    Boa Noite!!

    aproveitando o arquivo do parceiro IvanJr, segue exemplo via VBA.

    att, Sidney
    Anexos
    exemplomacro.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (22 Kb) Baixado 10 vez(es)
    avatar
    vieirasoft
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    Re: Autocompletar um campo a partir de dado em lista de seleção

    Mensagem  vieirasoft em Qua 24 Out 2018, 16:00

    Se é uma lista de selecção no evento "Ao fazer click"

    Me.seucamponoform=Me.minhalista.Column(0)
    Me.seucampo1noform=Me.minhalista.Column(1)
    e por aí afora

    Exemplo:

    Me.txtCliente=Me.lista01.Column(0)
    Me.txtEndereço=Me.lista01.Column(1)

    o primeiro campo começa sempre em 0

    Também pode fazer:

    With Me.Lista01

    .txtCliente=Me.txtCliente
    .txrtEndereço=Me.txtEndereço
    End With

    O código fica mais compreensível


    fernandostcampos
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Inglaterra
    Mensagens : 3
    Registrado : 09/10/2016

    Atualizar dados do formulario ao atualizar um dado na caixa de combinação

    Mensagem  fernandostcampos em Qui 25 Out 2018, 22:09

    Olá boa noite,
    Eu estou iniciando no Access, café com leite. Por favor eu preciso no meu formulario usar algo semelhate a função ProcV do Excel. Ja vi alguns exemplos mas como eu disse SQL sainda esta muito confuso pra mim. Tempos atras um amigo meu me mostrou como fazer usando uma macro o que parecia ser a opção mais facil para atingir esse fim.
    Eu preciso que ao mudar a informação no campo da caixa de combinação que os meu dados mudem no resto do formulario e tbm preciso que um campo seja preenchido automaticamente.

    Eu tenho um campo que diz codigo de material. Já utilizei o Wizard pra criar uma caixa de combinação e buscar a informação na tabela "Produtos". Essa tabela contem duas colunas. Uma coluna é "Código do produto" mas não estou usando a númeração automatica e sim um código mair já pré defenido e a outra coluna tem "Descrição".
    Primeira coisa que quero fazer é que ao digitar ou inserir esse código de produto utilizando a caixa de combinação que apresentara a lista de cóidogos, eu preciso que isso me traga preenchido o campo descrição do produto no formulario. e posteriormente quero ter uma outra caixa que nºao seja pra preenchimento mas sim para pesquisa, do genero caixa de combinação porem a cada vez que eu digitar la ou apenas mudar o código listado que isso traga a linha relacionada aquele código para os campos do formulario buscando a informatição ja previamente registrada.

    Alguém pode me ajudar com isso.
    avatar
    vieirasoft
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    Re: Autocompletar um campo a partir de dado em lista de seleção

    Mensagem  vieirasoft em Qui 25 Out 2018, 22:52

    Veja se este pequeno exemplo que lhe fiz é de alguma ajuda. Usa duas tabelas. Dois Forms. No form 2 tem uma combobox. Abra um novo registo e seleccione um cliente na combo. Veja que os outros campos são automaticamente preenchidos.

    Explore o código SQL da combo nos dois eventos: Ao Entrar e ao fazer clique. Abraço

    https://www.dropbox.com/s/qv1p1r6pnhntax1/Exemplo.mdb?dl=0
    avatar
    vieirasoft
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    Re: Autocompletar um campo a partir de dado em lista de seleção

    Mensagem  vieirasoft em Dom 04 Nov 2018, 13:01

    Resolveu?

    mariofloripa
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 3
    Registrado : 10/08/2015

    Re: Autocompletar um campo a partir de dado em lista de seleção

    Mensagem  mariofloripa em Seg 05 Nov 2018, 19:25

    voltei de ferias hj e comecarei a analisar as mensagens de auxilio
    agradeço desde já a todos
    abs

      Data/hora atual: Sex 18 Jan 2019, 00:10