[Resolvido]Adicionar Novo Registro com Dados do Anterior

Ola

Como Inserir em um form um um NOVO REGISTRO, trazendo alguns dados do registro anterior

Grato

Boa tarde Vanderlei,

Consegue detalhar um pouco mais, ou colocar parte do BD aqui.

Todavia, segue um exemplo, que no meu caso, utilizo para pra trazer a última km de uma determinada placa, ou seja, toda vez que eu atualizo a placa, trás a km anterior para o campo km_inicial.

[Km_Inicial] = DMax("[KM_Final]", "Tbl_Lançamentos", "[Placa]='" & [CBOPlaca] & "'")

Isso é só um exemplo, como disse.

É o seguinte, as vezes o paciente paga parcelado o procedimento, temos que dar os recibos de acordo com as datas de pagamento, já que os impostos também são recolhidos, mês a mês.
Minha intenção é ao clicar no botão NOVO, o sistema me traga os dados do ultimo digitado, para este paciente e de a possibilidade de inserir somente o VALOR e a nova  DATA DO RECIBO

Veja ai

https://www.maximoaccess.com/t37612-resolvidocopiar-formulario-e-sub-formulario

Vanderlei,

Pelo o que entendi, você quer que traga o último registro, de determinado Paciente. Então fiz um exemplo, onde ao selecionar o paciente, já carrega as informações do último registro, e você altera, somente o necessário. Isso se consegui entender o que você queria.

Olá Ismael

Até que vc entendeu sim, só que eu não me expressei bem. Da forma como fez o exemplo, eu teria que selecionar um paciente na combo, mas eu trabalho com um form e subform
e quando eu entro no recibo ja mé traz os dados do form.

O form me traz NUMPAC (Chave auto), nome, cpf

No subform eu cadastro os dados para o recibo:

NomeRecibo, CPFRecibo, Quantia, ReciboReferente, DataRecibo

Ao clicar no botão novo no Subform, me traga os dados do registro anterior para que possa alterar somente a Valor e DataRecibo

Será que consegui passar ?

Boa tarde Vanderlei,

Se entendi o seu propósito pode tentar o seguinte:

No Botão "Novo Registo" do SubForm adicione o seguinte código

Código:

Me!NomeRecibo.Tag = Me!NomeRecibo
Me!CPFRecibo.Tag = Me!CPFRecibo
Me!Quantia.Tag = Me!Quantia
Me!ReciboReferente.Tag = Me!ReciboReferente
Me!DataRecibo.Tag = Me!DataRecibo

(Não esquecer que no caso de existirem campos nulos terá que tratar primeiro esses nulos para não dar erro)

Adicione um novo Botão para "Colar" e coloque o código:

Código:

Me!NomeRecibo = Me!NomeRecibo.Tag
Me!CPFRecibo = Me!CPFRecibo.Tag
Me!Quantia = Me!Quantia.Tag
Me!ReciboReferente = Me!ReciboReferente.Tag
Me!DataRecibo = Me!DataRecibo.Tag

Boa sorte

Olá

Até que "funciona" só que me traz os dados de outro registro e não do registro em questão no subform.

Sem contar que eu não sei de onde ele ta pegando os dados para copiar o novo registro do subform

É inserido sempre os mesmo dados independente da mudança do do registro no form.

Em Tempo:

Fuçando mais um pouco, descobri que:
Se clicar no botão novo com seu código (com tags) não acontece nada.
Mas se se clicar em um  botão NOVO, normal, até abre novo registro, clicando no botão copia (com tags) é inserido dados incorretos no subform

Mas se clicando no botão novo com códigos tags (não acontece nada), depois clico no botão novo normal (criar novo reg no subform) e em seguida no botão copiar (com tags), funciona correto


Teria a ver com tags ?

Olá

Não sei se é o mais correto, mas o importante que resolveu

Acrescentei ao final do seu código o comando para abrir novo registro, assim ele cria um registro em branco, ficando disponível para dados novos realmente ou clicando no botão duplicar, inseri dados do registro anterior


Me!NomeRecibo.Tag = Me!NomeRecibo
Me!CPFRecibo.Tag = Me!CPFRecibo
Me!Quantia.Tag = Me!Quantia
Me!ReciboReferente.Tag = Me!ReciboReferente
Me!DataRecibo.Tag = Me!DataRecibo

DoCmd.GoToRecord , , acNewRec

Valew pela ajuda