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]Criar botão adicionar valores em campos não associados

    Compartilhe

    danilo451
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 24
    Registrado : 18/04/2016

    [Resolvido]Criar botão adicionar valores em campos não associados

    Mensagem  danilo451 em 17/1/2018, 18:22

    Boa noite pessoal

    Fiz algumas pesquisas no forum mas não encontrei o que precisava por isso abri esse topico

    Preciso criar um botão adicionar que irá atribuir um valor de uma caixa de texto associada para outra caixa de texto não associada
    e depois preciso inserir outro valor diferente da pesquisa em outra caixa de texto não associada

    Ex:

    Private Sub btn_Adicionar_Click()

    Me.auxend1 = Me.txtendereco.Value
    Me.auxemp1 = Me.txtEmpresa.Value


    Me.auxend2 = Me.txtendereco.Value
    Me.auxemp2 = Me.txtEmpresa.Value


    Me.auxend3 = Me.txtendereco.Value
    Me.auxemp3 = Me.txtEmpresa.Value

    Me.btn_Adicionar.Enabled = False


    End Sub
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3904
    Registrado : 14/08/2013

    Re: [Resolvido]Criar botão adicionar valores em campos não associados

    Mensagem  FabioPaes em 24/1/2018, 07:43

    O comando é esse mesmo amigo, talvez se posar exemplo ou foto da tela possamos entender seu problema...


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    danilo451
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 24
    Registrado : 18/04/2016

    Criar botão adicionar valores em campos não associados

    Mensagem  danilo451 em 12/2/2018, 19:19

    Segue o link da foto de como seria o processo
    [Você precisa estar registrado e conectado para ver este link.]

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3632
    Registrado : 29/06/2012

    Re: [Resolvido]Criar botão adicionar valores em campos não associados

    Mensagem  Noobezinho em 13/2/2018, 05:30

    Danilo

    Deixe-me entender o que pretende, então pergunto:

    Tem uma caixa de combinação com o nome da empresa, mas de onde vem os nomes contidos nela?

    Por que dos campos repetidos no mesmo formulário?

    Explique, que talvez possamos dar uma ideia melhor.

    [ ]'s

    danilo451
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 24
    Registrado : 18/04/2016

    Criar botão adicionar valores em campos não associados

    Mensagem  danilo451 em 14/2/2018, 19:03

    Boa Noite,

    Vamos lá, existe uma caixa de texto chamado txtendereço e na frente tem um botão chamado btn_adicionar
    Quero digitar um endereço na txtendereço e clicar no btn_adicionar
    a função do botão seria adicionar em uma tabela criada chamada banco de dados e a caixa de texto txtendereço ela se
    limparia e ficaria pronta para o segundo endereço fazendo novamente todas as funções citadas acima

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3632
    Registrado : 29/06/2012

    Re: [Resolvido]Criar botão adicionar valores em campos não associados

    Mensagem  Noobezinho em 14/2/2018, 19:56



    Para não dar trabalho braçal com VBA, experimente fazer uma consulta reunindo as tabelas e use-a como Fonte de registro do formulário.

    Coloque os campos necessário dessas tabelas que receberão a empresa e endereço, nas caixa de textos pertinentes, evitando

    caixas de texto não acopladas.

    Então continue usando o mesmo código, no final do código que mostrou coloque um

    Docmd.RunCommand acCmdSaveRecord

    danilo451
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 24
    Registrado : 18/04/2016

    Criar botão adicionar valores em campos não associados

    Mensagem  danilo451 em 27/4/2018, 19:53

    Pessoal desculpe pela demora mas realizei o seguinte
    criei um botão adicionar e neles o seguinte código

    If MsgBox("Deseja Adicionar Mais um Endereço?", vbYesNo) = vbYes Then

    Dim db As Database
    Dim tb As Recordset
    Set db = CurrentDb
    Set tb = db.OpenRecordset("BancodeDados")
    tb.AddNew
    tb!Empresa = Forms!frm_Principal!auxempresa
    tb!Endereço = Forms!frm_Principal!txtendereco
    tb!Numero = Forms!frm_Principal!txtnumero
    tb!Bairro = Forms!frm_Principal!txtbairro
    tb!Cidade = Forms!frm_Principal!txtcidade
    tb!CEP = Forms!frm_Principal!txtcep
    tb!Estado = Forms!frm_Principal!txtestado
    tb!Data = Forms!frm_Principal!txtdata
    tb!Motorista = Forms!frm_Principal!txtmotorista
    tb!Carro = Forms!frm_Principal!txtauxcarro
    tb!KM_Inicial = Forms!frm_Principal!txtkmi
    tb!KM_Final = Forms!frm_Principal!txtkmf
    tb!Chamado = Forms!frm_Principal!txtchamado
    tb!Placa_do_Carro = Forms!frm_Principal!txtplaca
    tb!Combustivel = Forms!frm_Principal!auxcombustivel
    tb!Abastecido = Forms!frm_Principal!txtAbastecido
    tb.Update
    tb.Close
    Set db = Nothing

       DoCmd.Requery
       Me.txtdata = ""
       Me.txtkmf = ""
       Me.txtkmi = ""
       Me.txtmotorista = ""
       Me.txtplaca = ""
       Me.txtEmpresa = ""
       Me.txtendereco = ""
       Me.txtnumero = ""
       Me.txtbairro = ""
       Me.txtcidade = ""
       Me.txtestado = ""
       Me.txtcep = ""
       Me.auxempresa = ""
       Me.txtcarro = ""
       Me.txtchamado = ""
       Quadro125 = ""
       Me.txtAbastecido = ""
       Me.txtEmpresa.SetFocus

    Else

    Set db = CurrentDb
    Set tb = db.OpenRecordset("BancodeDados")
    tb.AddNew
    tb!Empresa = Forms!frm_Principal!auxempresa
    tb!Endereço = Forms!frm_Principal!txtendereco
    tb!Numero = Forms!frm_Principal!txtnumero
    tb!Bairro = Forms!frm_Principal!txtbairro
    tb!Cidade = Forms!frm_Principal!txtcidade
    tb!CEP = Forms!frm_Principal!txtcep
    tb!Estado = Forms!frm_Principal!txtestado
    tb!Data = Forms!frm_Principal!txtdata
    tb!Motorista = Forms!frm_Principal!txtmotorista
    tb!Carro = Forms!frm_Principal!txtauxcarro
    tb!KM_Inicial = Forms!frm_Principal!txtkmi
    tb!KM_Final = Forms!frm_Principal!txtkmf
    tb!Chamado = Forms!frm_Principal!txtchamado
    tb!Placa_do_Carro = Forms!frm_Principal!txtplaca
    tb!Combustivel = Forms!frm_Principal!auxcombustivel
    tb!Abastecido = Forms!frm_Principal!txtAbastecido
    tb.Update
    tb.Close
    Set db = Nothing

       DoCmd.Requery
       Me.txtdata = ""
       Me.txtkmf = ""
       Me.txtkmi = ""
       Me.txtmotorista = ""
       Me.txtplaca = ""
       Me.txtEmpresa = ""
       Me.txtendereco = ""
       Me.txtnumero = ""
       Me.txtbairro = ""
       Me.txtcidade = ""
       Me.txtestado = ""
       Me.txtcep = ""
       Me.auxempresa = ""
       Me.txtcarro = ""
       Me.txtchamado = ""
       Quadro125 = ""
       Me.txtAbastecido = ""
       Me.txtEmpresa.SetFocus
       
       Me.btn_Revisao.Enabled = True
       Me.btn_Adicionar.Enabled = False
       
    End If
    Agora se eu clicar em sim ele limpa os campos e adiciona em uma tabela diferente
    e se ele clicar em não ele limpa e adiciona o ultimo registro na tabela.

    Muito obrigado a todos
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3904
    Registrado : 14/08/2013

    Re: [Resolvido]Criar botão adicionar valores em campos não associados

    Mensagem  FabioPaes em 30/4/2018, 07:40

    Grato pelo retorno e até a próxima se Deus quiser!


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

      Data/hora atual: 20/7/2018, 09:48