copiar registro de um campo de formulário para outro formulario

Boa noite,

Sou novo no forum, gostaria de criar um botão que permita copiar o último registro cadastrado em um formulário e colá-lo em um outro formulário. O objetivo é que não seja necessário digitar toda hora o mesmo número de registro que utilizo nos dois formulário

Olá, seja bem vindo ao fórum!

Você quer apenas copiar o código? Ou todos os campos do registro? Se for apenas o código, tente colocar algo assim no duplo clique do campo do código por exemplo:

Forms!NomeDoFormulário!NomeDoCampo = Me.CampoDoCódigo

Se for todo o registro, talvez esteja fazendo algo mal porque não há a necessidade de se repeti-los.

É somente o ultimo código lançado. Tentei fazer uma consulta de acréscimo. Acredito que se colocar no campo "critério" para inserir o último registro resolveria. Só que não sei como definir este tipo de critério

Tentou da forma que passei acima?

Tentei mas não deu certo. Se souber o critério para Ultimo Registro creio que vai resolver

Bom dia Helber,

Tenta o seguinte:

Forms!NomeDoFormulário!NomeDoCampo = DLast("NomeDoCampo","NomeDaTabela")

Dever resolver.

Nivaldo.

Pegando uma carona..rsr.
Nivaldo, esse código copia para o outro campo ou apenas o exibe ao abrir o registro no formulário? Também preciso de algo parecido mas preciso que seja copiado para outra tabela. Existe um formulário baseado nela.

Olá Juliano,

O código não salva/atualiza o registro, só exibe o valor.

Para salvar atualizar teríamos que incrementar o código.

Fiz um teste aqui colocando em um botão e salvou normal (dentro da propria tabela).

Nivaldo.

Oi Nivaldo, mais uma caroneira aqui no topico. Nem sei se deveria perguntar no assunto formularios.
Tenho um form que tem uma informacao assim: numa determinada data anterior eu digito num campo, p.ex.:
Fumo : 10 cigarros p/dia.. Este formulario eh um subform inserido num controle guia.
Gostaria que esta informacao fosse mostrada quando eu entrasse em outro formulario apenas para comparacao com outro campo cuja informacao eh atualizada. Por exemplo: parou de fumar
Ja usei o codigo que vc informou tipo form!frmxxx.campoxxx = me.campo xxx. Nao funcionou. O interessante eh que isto soh acontece com novo registro. Jah usei ao sair o requery, refresh, ao atualizar, etc. Mas se eu vou para uma outra aba que tem outro subform e volto, de repente as informacoes sao atualizadas. Para mim eh um misterio.
Vc pode ajudar?

Bom dia Neide,

O caminho para obter seria algo do tipo:

No vento Ao Abrir do formulário:

Me.CampoParaComparar = Forms!Formulário!SubFormulário!NomeControle (Desde que o teu formulario com controle guia esteja aberto).

Isso seria somente para exibir/comparar o valor.

Más você comentou que quando sai e entra novamente na aba o registro é atualizado, seria interessante você fornecer mais detalhes para ver se conseguimos te ajudar. Ou se puder faz um pequeno exemplo do teu bd e disponibiliza.

Nivaldo.

Bom dia Nivaldo, já fiz algo parecido mas inserindo um subformulário relacionado. Funcionou mas o formulário ficou mais pesado pra abrir.
Quando preciso exibir um valor que está na primeira guia do formulário em outra guia, copio o campo e faço uma referência. Também funciona, mas copiar para um campo na tabela tem sido a dor de cabeça maior.

Boa noite Juliano,

O código abaixo serve para salvar um registro (novo) em qualquer tabela:

Dim db As DAO.Database
Dim rst As DAO.recordset
Set db = CurrentDB()
Set rst = db.OpenRecordset("TuaTabela", dbOpenTable)
rst.AddNew
rst!TeuCampo1 = teuValor1
rst!TeuCampo2 = TeuValor2
rst.Update
rst.Close
Set rst = Nothing

Normalmente uso formulários desvinculados para inserir novos registros.

Para atualizar poderia se usar sql no vba ou:

Dim db As DAO.Database
Dim rst As DAO.recordset
Set db = CurrentDB()
Set rst = db.OpenRecordset("TuaTabela", dbOpenTable)
rst.Edit
rst!TeuCampo1 = teuValor1
rst!TeuCampo2 = TeuValor2
rst.Update


Nivaldo.

Oi Nivaldo, vc tem razao. Eh melhor eu fazer um modelo para exemplificar minha duvida. O bendito campo soh atualiza mesmo quando eu saiu da aba e viu para outra que tem tambem um subform. Jah usei o codigo num campo nao acoplado, e outras tentativas infrutiferas. Amanha envio o exemplo. Obrigada e boa noite pra todos. Neideb

Oi Nivaldo, obrigado pelos códigos. Só uma pergunta: eles são inseridos em qual evento? No "após atualizar", "ao entrar"?...
Vou analisar e mando um retorno.
Obrigadão!

Olá Juliano,

Pode ser em qualquer evento (botão de comando ou controle).
Geralmente uso em botão (Salvar) quando vou inserir novos registros. Más dependendo de sua necessidade pode ser em qualquer controle/evento.


Nivaldo.

Obrigado! Vou analisar e retorno.

Ola Nivaldo, aqui estou eu novamente.
Conforme escrevi antes estou anexando uma amostra do meu projeto para ver se vc consegue identificar onde estou errando.
É uma loucura!
1. Vc clica em Visita de Pacientes e vai aparecer um form com os dados do paciente. Clica duas vezes no nome do paciente
2. Vc clica em Ultima (btn superior a esquerda) e vai aparecer um form com os dados da consulta
3. vc clica na aba Anamnese e preenche os campos Bebida, Fumo e Drogas, clica em Sim ou Não e escreve qualquer coisa;
4. Vc clica na aba Nutrição/Adicção e veja que os campos Bebida, Fumo e Drogas que deveria trazer os dados da anamnese da primeira consulta está em branco.
5. Vc clica em uma caixa de opção Alimentos, por exemplo em Frutas Sim e o campo Bebida atualiza e assim por diante.
6. Se vc apaga as informações que estão nos campos de Anamnese e volta para o form Nutrição/Adicção o que foi escrito anteriormente permanece lá. Vc clica em qualquer caixa de opção da Alimentos e atualiza.
poderia ver o que eu posso fazer para melhorar isto?
Se possivel, pode criar uma nova consulta e ver o que acontece tb.
Obrigadissima.

Bom dia Neide,

Baixei o arquivo e a noite lhe dou uma posição.

Nivaldo.

Obrigada Nivaldo.
Aguardo...

Oi Nivaldo, imagino que vc nao tenha podido olhar o programa. Vou exclui o exemplo atual e manha envio um novo com algumas alteracoes. Serah melhor encerrar este topico e abrir um novo?
Obrigada pelo retorno.
Neide

Ola Nivaldo e outros,
Descobri que no FrmNutricao só aparecem os campos que quero mostrar do FrmAnamnese quando eu preencho qualquer campo no FrmNutricao.
Entendi que é porque ainda não criei registro na tabela. Acontece que quando eu volto para o FrmAnamnese e altero dados de algum campo, como FUMO: parou, etc. e volto para o FrmNutricao, onde o registro já existe, eu preciso clicar em algum campo para os dados atualizados do FrmAnamnese aparecerem. Penso que se o registro já existe bastaria salvar a alteração para aparecer no FrmNutricao.
Estudei em vários exemplos e ainda não consegui entender o porque que isto acontece...
Se alguém quizer dar uma olhada e puder me ajudar, agradeço muito.

Olá Neide,

Mil desculpas pelo abandono, más imprevistos acontecem todo tempo.

Dá uma olhada no exemplo em anexo e me retorne para tirar suas dúvidas.

O que fiz foi usar o Requery no evento Após Atualizar de cada campo do FrmAnamnese.

Qualquer dúvida é só falar.

Nivaldo.

Olah Nivaldo, mais uma vez vc me salvou de um nó.
Coloquei o requery nos campos e quando entro no outro formulário e registro alguma coisa os campos do outro formulário aparecem. É isso mesmo que eu preciso. Agora vou rever os códigos dos formulários porque o que deve ter de "refresh" e "requery" desnecessários não dá para imaginar rsrs
Agradeço de coração mais uma lição. Não vou esquecer mais.
Não se preocupe com o "abandono". Vc e todos do Forum prestam um serviço muito importante para nós, aprendizes e interessados em fazer um bom trabalho.
Obrigada mais uma vez e até a próxima.
Neide

Fico feliz por ter ajudado.

Obrigado pelo retorno.


Nivaldo.

Bom dia Nivaldo. Me esclarece essas duas linhas que marquei no código. O que vem a ser TeuValor1 e TeuValor2?
Se for um valor fixo como vou determina-lo se o campo que quero copiar é um campo de texto, portanto, texto digitado pelo usuário?

Dim db As DAO.Database
Dim rst As DAO.recordset
Set db = CurrentDB()
Set rst = db.OpenRecordset("TuaTabela", dbOpenTable)
rst.AddNew
rst!TeuCampo1 = teuValor1
rst!TeuCampo2 = TeuValor2
rst.Update
rst.Close
Set rst = Nothing

Obrigado!

Olá Juliano,

A linha rst!TeuCampo1 = TeuValor1 corresponde a:

TeuCampo1 - é o nome do campo da tua tabela (Set rst = db.OpenRecordset("TuaTabela", dbOpenTable))

TeuValor1 - é o nome do campo no formulário (formulário que você está usando para inserir/salvar o registro na tabela)

Nivaldo.

Bom dia Nivaldo. Obrigado pelo retorno.
O campo do formulário que quero colar os dados é um subformulário, o qual é baseado em outra tabela, relacionada com a do formulário principal. Tenho um campo descr (descrição) no formulário (tbl_ControleOS) e quero copiar para o campo descr1 (tbl_Faturamento) no subformulário.
Como ficaria no código?

Boa noite Juliano,

Ficaria assim:

Dim db As DAO.Database
Dim rst As DAO.recordset
Set db = CurrentDB()
Set rst = db.OpenRecordset("tbl_Faturamento", dbOpenTable)
rst.AddNew
rst!descr1 = Me.descr
rst.Update
rst.Close
Set rst = Nothing

Más lembre-se que o código acima acrescenta um registro na tabela faturamento. Vai preencher somente o campo descr faltando informar os outros campos (caso tenha).

Se o que você quer é aproveitar a informação do campo no formulário principal e passar para o campo do subformulário o caminho é outro.

Se for isso, dá uma olhada no exemplo anexo na mensagem nº 22 deste tópico e pode ficar a vontade para tirar suas dúvidas.

Nivaldo.

Obrigado Nivaldo. Vou tentar aqui e mando um retorno.

Bom dia Nivaldo.
Não deu certo. Dá uma mensagem de erro (Erro em tempo de execução 3219 Operação inválida) de tabela (Tbl Faturamento) não encontrada. Desta vez não é o campo Descrição mas o campo AEP e preciso copiar da tabela principal (Tbl_ControleOS) para a tabela Faturamento.
Inseri o código no campo AEP da Tbl_ControleOS no formulário de cadastro. Nele tem um subformulário com o campo AEP da tabela Faturamento.
Nâo copiou.
Segue uma figura no anexo.

Olá Juliano,

Desculpe a demora em responder.

Manda um pequeno exemplo do teu bd que vai ficar mais facil de você pegar o caminho.

Nivaldo.

Olá, segue o sistema para dar uma olhada. O servidor é Uploaded.
Obrigado

http://ul.to/37h2hqd1

Tópico movido para a sala correta.
Boa noite a todos.

Bom dia Juliano,

Dá uma olhada no arquivo em anexo e qualquer dúvida ou informação é só falar.

Nivaldo.