MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


5 participantes

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

    avatar
    mariofloripa
    Novato
    Novato


    Respeito às regras : 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 Empty Autocompletar um campo a partir de dado em lista de seleção

    Mensagem  mariofloripa 23/10/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
    Sidney
    Sidney
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Sidney 23/10/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
    avatar
    mariofloripa
    Novato
    Novato


    Respeito às regras : 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 Empty Autocompletar um campo a partir de dado em lista de seleção

    Mensagem  mariofloripa 23/10/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...
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  DamascenoJr. 24/10/2018, 01:21

    Para acrescentar ao tópico, exemplo com macro
    Anexos
    Autocompletar um campo a partir de dado em lista de seleção Attachmentexemplomacro.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (21 Kb) Baixado 21 vez(es)

    haton gosta desta mensagem

    Sidney
    Sidney
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Sidney 24/10/2018, 02:13

    Boa Noite!!

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

    att, Sidney
    Anexos
    Autocompletar um campo a partir de dado em lista de seleção Attachmentexemplomacro.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (22 Kb) Baixado 23 vez(es)
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  vieirasoft 24/10/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

    avatar
    fernandostcampos
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    Autocompletar um campo a partir de dado em lista de seleção Empty Atualizar dados do formulario ao atualizar um dado na caixa de combinação

    Mensagem  fernandostcampos 25/10/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.
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  vieirasoft 25/10/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
    vieirasoft
    vieirasoft
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  vieirasoft 4/11/2018, 13:01

    Resolveu?

    mariofloripa gosta desta mensagem

    avatar
    mariofloripa
    Novato
    Novato


    Respeito às regras : 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 Empty Re: Autocompletar um campo a partir de dado em lista de seleção

    Mensagem  mariofloripa 5/11/2018, 19:25

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

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 18:11