[Resolvido]Inserir 3 caixas de texto do formulário principal e 3 caixas de textos do SubForm em campo memorando de outra tabela

Prezados bom dia.

Necessito inserir em um campo memorando de uma tabela 4 caixas de texto e outras 3 caixas que estão no subformulário.

Estou tentando usar o seguinte código abaixo:

Private Sub bt_salvar_Click()
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
MsgBox "Receita... Salva!", vbInformation, Me.Caption

Dim db1 As Database, rs1 As DAO.Recordset
Set db1 = CurrentDb
Set rs1 = db1.OpenRecordset("tblhistorico")
With rs1
.AddNew
![Proprietario] = Me.Prop
![Nome] = Me.Nome
![Data] = Me.DataConsulta

![Historico] = Me.PesoAnimal & Me.Temp & vbCrLf & _
Me.receituario.Diagnostico & vbcrl & _
Forms![receituario]![DetReceita subformulário]!uso & vbcrl & _
Forms![receituario]![DetReceita subformulário]!medicamento & _
Forms![receituario]![DetReceita subformulário]!posologia
.Update
End With
End Sub

Ao depurar o código, o que está em vermelho me dá erro.

Esses  campos acima descrito no código são os  que necessito exportar para a tblhistorico.

Se alguém souber e puder me ajudar...agradeço.

Prezados, encontrei o erro em questão. Estava no nome da Me.receituario.Diagnostico que era apenas Diagnostico.

Porém, quando se tem mais de um registro no Forms![receituario]![DetReceita subformulário] não mostra. Mostra apenas um os demais.....

Alguém pode ajudar ?

Senhores, algum progresso fora conseguido, mas ainda não consigo dar o salto dentro do campo memorando, ainda não consigo fazer com que os dados do subformulário sejam incluídos em sua totalidade.

Segue a imagem de como está ficando o histórico e o código a qual eu estou a usar.

Código:

Private Sub bt_salvar_Click()
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
MsgBox "Receita... Salva!", vbInformation, Me.Caption

Dim db1 As Database, rs1 As DAO.Recordset
Set db1 = CurrentDb
Set rs1 = db1.OpenRecordset("tblhistorico")
With rs1
.AddNew
![Proprietario] = Me.Prop
![Nome] = Me.Nome
![Data] = Me.DataConsulta

![Historico] = "Diagnóstico: " & Me.Diagnostico & vbCrLf & _
               "Peso: " & Me.PesoAnimal & " Kgs" & "   Temp: " & Me.Temp & " º" & vbCrLf & _
"Uso: " & Forms![receituario]![DetReceita subformulário]!uso & vbCrLf & _
"Medicamento: " & Forms![receituario]![DetReceita subformulário]!medicamento & vbCrLf & _
"Posologia: " & Forms![receituario]![DetReceita subformulário]!posologia
.Update

End With

End Sub

Agradeço a quem se dispuser a me orientar e ajudar !

Abraços.

UP !!

Silvio se são todos os registros do subformulário,
faça um loop no RecordClone e atravéz do Intert Into,
vá inserindo os dados na outra tabela. Não esquecendo
de concatenar os campos que forem necessários.

Se não for bem isso que falei acima, poderia nos disponibilizar
parte do banco com maiores detalhes para nossa apreciação?

Marcelo Boa tarde....

Podes me fazer um exemplo por gentileza meu caro ??

Olá Silvio,
Seria isso, conforme exemplo anexo?

Olá, Silvio..
Como eu já havia feito exemplo,
mais uma opção para você.

Grande Marcelo.....boa tarde.

Vou analisar os dois e ver qual que mais se adapta a minha situação, daqui a alguns minutos vou postar o BD para você ver, caso..caso eu não consiga nada de concreto por aqui.

Agradeço a ti, antecipadamente.

Silvio

Marcelo, seguinte...

Vamos analisar o código abaixo...preciso mesmo de tua ajuda...


Dim strHist As String
Dim rs As DAO.Recordset

Set rs = Me.DetReceita_subformulário.Form.RecordsetClone 'Clono o recorset do subform
rs.MoveFirst 'Para evitar erros, posiciono o ponteiro do recordset no primeiro registro
strHist = "Data Receita " & Me.DataConsulta 'Começo a montar o histórico de adição informando a data de cadastro

Do Until rs.EOF 'Percorro todos os registro do recordset do subformu
'Continuo montando o histórico, agora com os dados do RecordsetClone do subformulário observando as devidas concatenações
strHist = strHist & " - Uso: " & rs!uso & " - Medicamento: " & rs!Medicamento & " Posologia: " & rs!posologia

rs.MoveNext
Loop

rs.Close 'Fecho a conexao com recordset
Set rs = Nothing 'apagado o rs da memória

CurrentDb.Execute "INSERT INTO consulta (trat ) Values('" & strHist & "') "
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
MsgBox "Receita... Salva!", vbInformation, Me.Caption

Dim db1 As Database, rs1 As DAO.Recordset
Set db1 = CurrentDb
Set rs1 = db1.OpenRecordset("consulta")
With rs1
.AddNew
![IdCaesCons] = Me.Idcaesrec
![Data] = Me.DataConsulta
![Diagnostico] = Me.Diagnostico
![Temp] = Me.Temp
![Peso] = Me.PesoAnimal


A parte em destaque, eu necessito acrescentar também, mas estão no formulário pai...do mais meu caro...funfa legal a tua função.

.Update

End With

End Sub

Segue anexo Marcelo o sistema.

a- user: admim
b- senha: silvio00
c- Cadastro de proprietários / animal
d- escolha um qualquer.
e- receituário.
f- coloque a data.
g- escreva qualquer coisa em diagnostico, temp e peso do animal
h- qualquer coisa em uso...medicamento..posologia
f- salve e feche
g- clicar em histórico e você vai entender melhor.....

Silvio meu amigo

Sou meio noob !

como eu escolho (letra d) se não tenho como escolher?

Abraços

Noob

Boa noite. .....
vá em localizar.

Como disse

Não tem nada a escolher

Verifique o arquivo que anexou.

Dei uma olhada aqui em seu projeto e não compreendi bem...
O Código em vermelho tem qual finalidade?
O histórico deve ser apresentado quando clicamos em
"histórico"? Mas por lá também é para dar para editar/acrescentar
histórico manualmente?

No aguardo.

Bom dia Marcelo, bom dia Noob...

Agradeço a ambos pela força ora dispensada a mim.

O que está em vermelho é o que precisa aparecer no histórico do animal.

Quando realizamos uma consulta médica, deverá constar:
a- o diagnóstico
b- a temperatura
c- o peso
d- os medicamentos ora ministrados para o animal.

Isso tudo ao salvar a receita médica esses dados deverão ser imputados no histórico do mesmo.

Todavia, também poderá ser apenas uma simples anotação, usando o cadastro de proprietário / animal, selecionando o animal do proprietário.

****refeito e aperfeiçoado o roteiro de inserção de dados*****
a- user: admim
b- senha: silvio00
c- Clicar em cadastro de proprietários / animal
d- Clicar em localizar, em proprietário, insira o " * " e verá os mesmos, clicar em qualquer um deles.
e- Abaixo do nome do animal, clicar em  receituário.
f- Coloque a data, o preenchimento de dados de proprietário e animal será inserida automaticamente.
g- Escreva qualquer coisa em diagnostico, temp e peso do animal
h- Escreva qualquer coisa em uso...medicamento..posologia
f- Salve e feche
g- Volte para o menu.
h- No mesmo nome do animal que você fez a receita, clicar em histórico.

i- informações necessárias para esse histórico:
1- diagnóstico.
2- temp.
3- peso.
4- os medicamentos usados.

Em tempo, o que está em vermelho ( txtbox) nas telas tem a seguinte nomenclatura:
a- entidade oculta/escondida/invisível.
b- número do sistema ( chave primária/numeração automática ) com fim de informar ao usuário final.

Bom dia silvio,
poderia disponibilizar o aplicativo novamente pois
ele já não está mais la. Estou no serviço e onde ontem
eu baixei em casa, portanto aqui não tenho uma cópia.

No aguardo.

Silvio

Enviando teu aplicativo modificado.

Veja se é isso.

Abraços

Noob

Noob, quase isso...quase mesmo...falou apenas inserir os dados dos medicamentos que foram passados. Estamos quase lá !!!!

Pois então, Silvio

Não coloquei os medicamentos.

Acredito que esses campos acima do histórico no formulário consulta. com exceção da data, ficarão invisíveis.
Veja que falta o campo dos medicamentos para podermos colocá-lo no histórico.
Então deixei para você acrescentar uma caixa de texto com o nome de medicamentos e "pegar" os dados
da tabela DetReceita, creio, pra essa caixa de texto.
Uma vez que essa caixa de texto esteja com os dados, ou seja, funfando, adicione ela no código pra ser adicionado no histórico.
Nas duas linha de códigos que tem:

Me.Trat.Value = Me.mData & vbCrLf & Me.Diagnostico & vbCrLf & "Temperatura: " & Me.Temp & vbCrLf & "Peso: " & Me.Peso & vbCrLf & "Medicamentos ministrados : " & Me.Medicamentos

Noob

Nob.....não é bem assim, que eu pensei....gostaria mesmo que tudo ficasse dentro do campo trat. que são os campos..
a- o diagnóstico
b- a temperatura
c- o peso
d- os medicamentos ora ministrados para o animal.

Tudo isso dentro do campo memorando mesmo, para facilitar e otimizar a vida do Méd. Veterinário. Pois esses profissionais não tem tanta afinidade com o teclado e quanto menos eles digitarem melhor vai ser. Eu vou fazer um pequeno vídeo explicando melhor como gostaria que ficasse, e vou postar ele aqui.

Abraços.

Mas é exatamente isso que estou dizendo, meu amigo, tanto que essa linha:

Me.Trat.Value = Me.mData & vbCrLf & Me.Diagnostico & vbCrLf & "Temperatura: " & Me.Temp & vbCrLf & "Peso: " & Me.Peso & vbCrLf & "Medicamentos ministrados : " & Me.Medicamentos

É justamente para popular o campo memorando  me.trat.

Ou seja, tudo que disse no post anterior  é exatamente isso, veja que não tenho como adicionar os medicamentos, por isso disse que tem que criar uma caixa de texto para "pegar" os  medicamentos da tabela e então adicionar no histórico

As caixas de texto fora do campo histórico,  deve ficar invisíveis, ficando a vista para
o veterinário, somente o histórico.

Aproveito para enviar o manual do meu sistema veterinário  de nome SisPet, talvez te ajude na elaboração do teu sistema.
Esse programa foi elaborado a pedido de alguns veterinários que queriam uma aplicativo mais simples.
Criei esse programa com o Access 97, e meus clientes o usam até hoje, agora atualizado para o Acc 2007.

Manual Sispet

Abraço

Noob

Me desculpe Nob, mas não estou mesmo captando o que você quer dizer, desculpe a minha grande falta de conhecimento.  Em alguma coisas eu compreendo, mas nessa sinceramente, eu estou apanhando.

Eis o link da explicação

Silvio

Já sabia de tudo isso.

Bem como não estávamos nos entendendo, resolvi mexer um pouco no exemplo.

Mudei o Histórico para a tabela Caes , (HistRec) assim eu posso adicionar o histórico incluindo os medicamentos.
O que estava "pegando", é o fato da tabela  detReceituario ter um registro para cada medicamento.
Utilizei o código do botão salvar do  receituário e modifiquei o formulário Histórico.
Aconselho deixar esse formulário somente para leitura, modificações somente através do formulário principal , certo?
Bem, estude as modificações, e claro, aprimore a teu gosto.  

Obs. Verifique os pop up dos formularios, eu tirei pra poder trabalhar e não retornei

Abraços

Noob

Sem palavras para lhe agradecer....Nob, valeu mesmo. Aprendi mais uma.

Abraços fraternais a si.

Ótimo Silvio

Grande abraço e

Boa sorte

Noob