Duplicar Lançamentos

Olá
Tenho um form de Lançamentos (créditos / descontos) onde são realizados mensalmente. Acontece que percebi que todo mês são inseridos praticamente os mesmas coisas
Pergunta: Teria como duplicar lançamento do mês anterior acrescentando somente a data do mês corrente. Apesar dos lançamentos serem repetidos, preciso manter o histórico mês a mês

No aguardo

Boa tarde,

Veja esse tópico, pode lhe dar uma "luz" talvez.


https://www.maximoaccess.com/t40741-gerar-numeracao-automatica-via-recordset

Olá Ismael

Infelizmente não resolve, acessei o link e baixei exemplo, neste caso só consegue selecionar o mês e duplicar 1 item

No meu caso existe um lançamento com vários itens atrelado a uma determinada data do mês Ex: 10/04/2022

Gostaria que, por exemplo, através de um botão (duplicar) Duplicaria todos os itens deste lançamento, gerado um novo lançamento com nova data Ex: 10/05/2022 ou data atual

ver link da msg anterior

Olá

Deixa eu ser mais sucinto.
Em resumo é o seguinte: tenho uma consulta com todos os lançamentos realizados no mês. Precisaria clonar todos para o mês seguinte e ao clonar já inserir no campo TXTDATALANC a nova data desejada. mas precisaria que fosse através deum botão (CLONAR) no formulario

Bom dia Vanderlei,

Na verdade pelo o que entendi a sua dúvida é igual ao meu projeto, onde quero duplicar dados do mês anterior para o mês seguinte só alterando alguns dados como a data e novo mês, então o exemplo anexo acho que vai te atender.

O exemplo tive ajuda do @JPaulo, para conseguir fazer e agora apenas adaptei para atender o que eu queria, e consequentemente tentar lhe ajudar também.

No exemplo tem o mês em que você já tem os dados, e vamos supor que você queira duplicar para o Mês subsequente, então só escolhe a nova data que você quer.

Bom dia Ismael

É isso mesmo que estou precisando, mas no seu projeto o campo de pesquisa e o mes. No meu caso eu preciso selecionar uma data, tipo 10/04/2022, ai ao clicar no botão GERAR, esta ocorrendo erro, eu acredito que seja por isso. mas nãos sei como resolver.
Depois de substituir os campos ficou assim: mas na hora de GERAR da erro de parametros

Set RS = CurrentDb.OpenRecordset("Select NomeExame,CodSusExame,Credito,Desconto,DataExame,Observacao,Data_Orc From CadPacClone WHERE DataRef='" & Me.DataRef.Value & "'")

Tente assim,

Aqui testei e funcionou perfeito.

Set RS = CurrentDb.OpenRecordset("Select NomeExame,CodSusExame,Credito,Desconto,DataExame,Observacao,Data_Orc From CadPacClone WHERE DataRef=#" & Format(Me.DataRef, "mm/dd/yyyy") & "#")

Boa noite

Ismael,

Você poderia me ajudar também com o código do insert ?

CurrentDb.Execute "INSERT INTO CadPacClone(CodGeral,NomeExame,CodSusExame,Credito,Desconto,DataExame,Observacao) VALUES (?????)"

Campo, tipo
CodGeral, Autonum
NomeExame, texto
codsusexame, texto
credito, moeda
desconto, moeda
dataexame, data
observacao, texto

preciso estudar mais este quesito.

Você pode tentar algo como isso, lembrando que os values, devem se o nome dos campos do formulário, onde todos os nomes dos campos que forem números deve estar somente com as aspas duplas, e campos do tipo texto, entre aspas simples e duplas.


CurrentDb.Execute "INSERT INTO CadPacClone(CodGeral,NomeExame,CodSusExame,Credito,Desconto,DataExame,Observacao) VALUES (" & CodGeral & ",'" & _
NomeExame & "','" & _
codsusexame & "','" & credito & "','" & desconto & "','" & dataexame & "','" & dataexame & "','" & observacao & "')"

Olá Ismael

Infelizmente continua dando erro, pensei, talvez eu não esteja passando as informações corretas.
Para você não ficar tentando tirar as duvidas no escuro, resolvi postar aqui as partes envolvidas.

Boa tarde,

Pelo que vi CadPacClone, não é uma tabela e sim uma consulta, muito por isso está dando erro, você precisa ver em qual tabela quer salvar o INSERT que estará a fazer.

Ola,
bom dia

Você tinha razão quanto à tabela errada.

Me ajuda a encontrar o erro de agora.

Só que agora tenho a impressão que ele clona o primeiro item da data selecionada, mas deveria clonar todos os itens correspondente a data

Bom dia,

Dá uma olhada

Set RS = CurrentDb.OpenRecordset("Select NomeExame,CodSusExame,Credito,Desconto,DataExame,Observacao From CadPacClone WHERE dataexame=#" & Format(Me.dataexame, "mm/dd/yyyy") & "#")

'Aqui você está abrindo o com o recordset a consulta

e está insertando na tabela TABELAEXAMEGERAL

'Aqui você precisa referenciar a tabela e não a consulta, penso eu

 I = Val(Nz(DMax("[CodGeral]", "CadPacClone"), 0)

Boa Noite Ismael

Também não deu Ismael, fiz a mudança e não alterou em nada.

Acho que vou desistir, pois estou testando neste exemplo, se conseguisse rodar, pretendia tentar implantar no meu projeto, que tem uma necessidade semelhante, mas se não consegui rodar aqui, também não vou conseguir implementar no projeto original

Vamos continuar tentando. A tabela que vai carregar o recordset e vai insertar posterior é a mesma?

Oi Ismael

ja tente tirar o CadPacClonee inserir a TabelaExameGeral entre outra e não deu certo