[Resolvido]Grava varias tarefas de uma vez só.

Olá

Preciso de um favor da vossa parte aqui com a APP !

Ao abrir o frm1 , este form abre o frm2 , aqui escolhemos as varias tarefas efetuadas , e no final a ideia era gravar no subform que esta no frm1 (tlbOcorrencias).

Só que o pretendido seria que o gravar cria-se uma linha / registo na tabela , uma linha / registo para as varias tarefas... para além disso levasse  ( Me.Hora_Data.Value = Now ) em cada registo.

Obrigado

Deixo exemplo em bd anexada.

Obrigado
Um bem hajam

bom dia

no evento clique do botão gravar no form2.

Dim strSql As String, rstTemp As DAO.Recordset

strSql = "Select * from tblOcorrencia "
Set rstTemp = CurrentDb.OpenRecordset(strSql, dbOpenDynaset)
rstTemp.AddNew
rstTemp("DataHora") = Date 'configurar na tabela o campo como somente data
rstTemp("Ocorrencia") = txtRespostaPentear + "/" + txtRespostaSecar + "/" + txtRespostaCortar + "/" + txtRespostaBuco ' isso se o proposito for juntar essas informações no campo do banco de dados que só tem 1 campo.
rstTemp.update
rstTemp.close

MsgBox "Informações salvas com sucesso.", vbOKOnly + vbInformation, "Atenção!"
docmd.close
forms!frm1!frm3.requery

marque as referencias da imagem em anexo.

Amigo

Antes de mais obrigado... mas . . . Só grava a data . . .

se quiseres data e hora. altere "Date" por "Now()", no codigo que passei.

Certo

O problema é que nao regista a ocorrencia !!! e se colocar assim

rstTemp("Ocorrencia") = txtRespostaPentear + txtRespostaSecar

Regista na mesma linha : IDOcorrencias DataHora Ocorrencia
7 15-01-2021 PENTER: SIMSecar: NÃO

O objetivo era ter duas linhas de registo uma para Pentear : SIM e outra par Secar : NÃO . . .

Obrigado

Dim strSql As String, rstTemp As DAO.Recordset

strSql = "Select * from tblOcorrencia "
Set rstTemp = CurrentDb.OpenRecordset(strSql, dbOpenDynaset)
if (txtrespostapentear <> "") then
rstTemp.AddNew
rstTemp("DataHora") = Date 'configurar na tabela o campo como somente data
rstTemp("Ocorrencia") = txtRespostaPentear
rstTemp.update
'rstTemp.close
end if

if (txtrespostasecar <> "") then
rstTemp.AddNew
rstTemp("DataHora") = Date 'configurar na tabela o campo como somente data
rstTemp("Ocorrencia") = txtRespostaSecar
rstTemp.update
'rstTemp.close
end if

if (txtrespostacortar <> "") then
rstTemp.AddNew
rstTemp("DataHora") = Date 'configurar na tabela o campo como somente data
rstTemp("Ocorrencia") = txtRespostaCortar
rstTemp.update
'rstTemp.close
end if

if (txtrespostabuco <>"") then
rstTemp.AddNew
rstTemp("DataHora") = Date 'configurar na tabela o campo como somente data
rstTemp("Ocorrencia") =txtRespostaBuco
rstTemp.update
'rstTemp.close
end if

rstTemp.close
MsgBox "Informações salvas com sucesso.", vbOKOnly + vbInformation, "Atenção!"
docmd.close
forms!frm1!frm3.requery

Obrigado, muito obrigado. Resolvido... Obrigado mesmo. Abraço

Um bem haja !