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

    [Resolvido]inserir dados na tabela

    Compartilhe

    dori
    Novato
    Novato

    Respeito às Regras 100%

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

    [Resolvido]inserir dados na tabela

    Mensagem  dori em Sab 28 Abr 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!
    avatar
    wellingtoneo
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Re: [Resolvido]inserir dados na tabela

    Mensagem  wellingtoneo em Dom 29 Abr 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!

    dori
    Novato
    Novato

    Respeito às Regras 100%

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

    Re: [Resolvido]inserir dados na tabela

    Mensagem  dori em Dom 29 Abr 2018, 18:12

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

    Respeito às Regras 100%

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

    Re: [Resolvido]inserir dados na tabela

    Mensagem  wellingtoneo em Dom 29 Abr 2018, 18:31

    Disponha!

      Data/hora atual: Qua 23 Maio 2018, 02:24