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

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

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

Segue o link da foto de como seria o processo
http://prntscr.com/idwcke

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

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

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

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

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