[Resolvido]Código para copiar os dados do registro atual e inserir no Registro Novo, com capacidade de editá-los.

Bom dia, amigos do Forum.

Estou desenvolvendo o BD abaixo que servirá para fazer o Controle dos Pacientes Crônicos que usam medicamentos de uso contínuo. Gostaria de, ao clicar nos botões que estão dentro do CÍRCULO VERMELHO, que criam Novos Registros (de Condiçoes Crônicas e de Novos Medicamentos), os dados dos ultimo registro fossem copiados para o NOVO, com possibilidade de edição.
Abaixo envio uma imagem para explicar melhor e o BD.

Após muita luta consegui fazer o que eu queria usando o Código:

Me.NomeDoCampo.DefaultValue = "" & Me.NomeDoCampo & ""

Consegui resolver no SubFml_CondiçoesCronicos, porém no SubFml_Medicamentos em uso, que tem um outro subformulário (ItenDaReceita) que é um Formulário Continuo, não consigo usar esse código nem por reza brava...

Alguém por favor, pode me dar uma sugestão?

Mesmo com esse código não funcionou do jeito que eu queria...
O Access guarda a ultima informação, mesmo de outro paciente, e repete no proximo registro...
Deu Errado!

Olá, Marcelo.

Gostaria de que repetisse as condições cronicas "marcadas" (No subformulario da esquerda) e os medicamentos que usa, (SubFml da Direita, acima). As ações realizadas, NÃO.)

Bom dia, Marcelo.
No formulario continuo da direita (Medicamentos em uso), estou pensando em acrescentar uma "Caixa de Seleção" para marcar os medicamentos que quero "replicar" na proxima receita desse mesmo paciente... Mas não consigo encontrar os comando que deveria usar para quê , ao clicar no botao os registros marcados se repitam no proximo registro...

Conseguiu achar alguma solução, ou não consegui explicar direito?

Não, não! Acho que não ficou bem claro....
Na ComboBox  você escolhe o paciente... Ele já tem alguns dados, que aparecem nos SubFml (Condições Cronicas e Medicamentos Em Uso).
Quando Clico em NOVA AVALIAÇÂO o Paciente continua o mesmo, mas vou "reavaliá-lo novamente" e isso gera um Novo Registro na Tabela (Tbl_CondicoesCronicas). Vamos supor que ele era apenas Hipertenso. Agora, em nova avaliação, constatei que além de Hipertenso ele tem também Diabetes e é Fumante. Então ao Clicar no Botão NOVA AVALIAÇÂO eu quero que os campos "marcados" se repitam. No exemplo que dei vai repetir apenas Hipertensão, e vou acrescentar (marcar) Diabetes e Tabagismo. É um Novo Registro, pois é uma avaliação nova.

A mesma lógica para o SubFml Medicamentos Em Uso.
O paciente em questão está tomando 6 medicamentos, por exemplo. Agora será acrescentado um SETIMO medicamento. Ao Clicar no Btao Mudança na Prescrição, eu gostaria que criasse um Novo Registro na Tbl_ItensDaReceita, e que os SEIS MEDICAMENTOS que já estavam se repetissem, para que eu não precise digita-los todos novamente. Assim bastaria que eu acrescentasse o Novo.

Desculpe a intromissão mas veja se é isto. Faça esta alteração para você testar
no SubFml (Condições Cronicas ).
no botão NOVA AVALIAÇÂO substitua todo o código por este.


Para a parte de medicamento fica para uma segunda etapa.

Obs para realizar os testes eu mudei a forma de classificação deste sub frm para classificar crescente a data de avaliação
por isto coloquei no código para atualizar e ir para o ultimo registro.

Código:

'Scandinavo 15/12/21
Dim bd As dao.Database
Dim rstCC As dao.Recordset 'Tbl_CondicoesCronicas

Set bd = CurrentDb()
'abre a tabela para inserir os registros copiados
Set rstCC = bd.OpenRecordset("Tbl_CondicoesCronicas")

   rstCC.AddNew
'estes s?o campos que voce quer copiar
   rstCC!Id_Paciente = Me!Id_Paciente
   rstCC!DataCondCron = Me!DataCondCron
   rstCC!DataCondCron = Date 'data atual
   rstCC!Hipertensao = Me!Hipertensao
   rstCC!Diabetes = Me!Diabetes
   rstCC!Tabagismo = Me!Tabagismo
   rstCC!TranstMentalComum = Me!TranstMentalComum
   rstCC!TrantMentalT?pico = Me!TrantMentalT?pico
   rstCC!Asma_DPOC = Me!Asma_DPOC
   rstCC!Dislipidemia = Me!Dislipidemia
   rstCC!Acamado = Me!Acamado
   rstCC!Cardiopatia = Me!Cardiopatia
   rstCC!SequelaAVE = Me!SequelaAVE
   rstCC!ProblNeurologicos = Me!ProblNeurologicos
   rstCC!Etilismo = Me!Etilismo
   rstCC!Tireoide = Me!Tireoide
   rstCC!AvalNutricional = Me!AvalNutricional
   rstCC!Idoso_IVCF20 = Me!Idoso_IVCF20
   rstCC.Update

  MsgBox "Registros replicados!", vbInformation, "Replica??o!"
  Me.Form.Requery 'atualiza o subfrm
  DoCmd.GoToRecord , , acLast ' vai para o ultimo registro

Set rstCC = Nothing

Fiz o segundo código com a opção de selecionar quais medicamentos que sera copiado


https://www.dropbox.com/s/nt8m9fjevoyqi5k/Cronicos.zip?dl=0

Obrigado por suas sugestões, Scandinavo.

Essa sua segunda opção ficou bastante interessante!
Já estou pensando em acrescentar outros recursos no aplicativo e provavelmente aproveitarei sua ideia. Vou estudá-la melhor.

Valeu, companheiro!

Um abraço.

Valeu, Marcelo David.

Sua solução caiu como uma luva para o que eu preciso.

Mais uma vez você me ajudou. Pena que meus conhecimentos em VBA são tão rasos que não posso te retribuir.

Muito obrigado, e um grande abraço.


Walter

Bom dia, Scandinavo.

Enviei uma mensagem privada pra você, pois não sabia que após marcar como "Resolvido" aqui nas mensagens poderia continuar o assunto...

Estou tentando implementar a sugestão que você deu para REPLICAR os medicamentos na proxima receita, mas algumas vezes eles NÃO são replicados, e não entendi porque e o que tenho que fazer. Pode dar uma olhada pra mim, por favor?

Seria bom trabalhar em cima do sistema que você esta tentando aplicar o código.
Você inseriu o campo para marcar quais medicamentos serão replicados?

disponibiliza ele novamente.

Sim. Inseri o Campo (Caixa de Seleção) "Replicar" e na Tbl também o campo Sim/Não.

Mas nas modificações que você me enviou acima, tentei modificar algumas receitas e algumas os medicamentos "marcados" são replicados, outros não. Não entendi porque.

Esqueci de anexar o BD...

Você criou um campo na Tbl_ItensDaReceita chamado: "Replicar". Ele "guarda" a informação (0 ou -1) da Caixa de texto de mesmo nome. Assim, se escolho alguns dos medicamentos para Replicar, ele continua marcado na Tabela... Será que não é isso que está dando erro? Se tivesse como colocar uma rotina ou código que limpe esses campos da tabela, após usa-los... Ou, talvez, deixar o Campo "Replicar" do formulario desacoplado da tabela, apenas para ser usado e apagado... O que voce acha?

"ele continua marcado na Tabela... Será que não é isso que está dando erro? "
Acredito que não

Fiz varios teste e não encontrei problemas.
alguem que fez o download do arquivo deu algum erro?


fiz uma alteração no codigo que faz a verificação se algum medicamento foi marcado antes de executar para duplicar



https://www.dropbox.com/s/rm3qgxz2oguti9v/Scandinavo.zip?dl=0