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


2 participantes

    [Resolvido]inserir dados na tabela

    avatar
    dori
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 173
    Registrado : 22/04/2016

    [Resolvido]inserir dados na tabela Empty [Resolvido]inserir dados na tabela

    Mensagem  dori 28/4/2018, 23:00

    Olá rapaziada, boa noite!

    Preciso de mais uma ajuda de vocês:
    Eu tenho num formulário uma caixa de combinação com vários nomes. "CboNome" com origem da linha uma lista de valores preenchido manualmente.
    Eu gostaria que ao selecionar um nome nessa combo ele fosse inserido no campo "Contribuinte" da tabela "TabContribuinte".
    Podem me ajudar por favor?

                         Grato pela colaboração!
    wellingtoneo
    wellingtoneo
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 294
    Registrado : 30/07/2012

    [Resolvido]inserir dados na tabela Empty Re: [Resolvido]inserir dados na tabela

    Mensagem  wellingtoneo 29/4/2018, 14:44

    Olá, se o campo [Contribuinte] estiver no formulário, basta passar o valor do cboNome para o controle... Ex: txt_Contribuinte "Caixa de texto no formulário com fonte de controle = Contribuinte", então:
    Me!txt_Contribuinte = Me!CboNome
    Caso não esteja, use uma consulta, mas lembre-se, a consulta irá inserir um novo registro na "TabContribuinte".

    No evento ao clicar do cboNome, inserir o código abaixo:

    If msgbox("Deseja inserir o nome selecionado na TabContribuinte?",vbYesNo,"Inserimento na TabContribuinte") = vbYes then
    currentdb.execute "INSERT INTO TabContribuinte (Contribuinte) VALUES ('" & Me!cboNome &"')"
    End if

    Bons estudos!
    avatar
    dori
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 173
    Registrado : 22/04/2016

    [Resolvido]inserir dados na tabela Empty Re: [Resolvido]inserir dados na tabela

    Mensagem  dori 29/4/2018, 18:12

    Perfeito!
    Muito obrigado.
    wellingtoneo
    wellingtoneo
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 294
    Registrado : 30/07/2012

    [Resolvido]inserir dados na tabela Empty Re: [Resolvido]inserir dados na tabela

    Mensagem  wellingtoneo 29/4/2018, 18:31

    Disponha!

    Conteúdo patrocinado


    [Resolvido]inserir dados na tabela Empty Re: [Resolvido]inserir dados na tabela

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 26/11/2024, 07:07