[Resolvido]Formulário e Subformulário sob o mesmo BD

Boa Tarde aos Amigos

Preciso da ajuda de voces, eu já ví um exemplo do que quero aqui mas não acho.

Quero um formulário aonde eu possa lançar temporáriamente dados, e na parte de baixo havera um subformulário do BD.

Após preencher os dados temporários um botão "ok" lançará os dados no BD e imediatamente apareceram no Subformulário.

Alguém pode me ajudar nisso?

Carlos Silveira

Algo como:

CurrentDb.Execute "INSERT INTO NomeDaTabela(Campo1DaTabela, Campo2DaTabela, Campo3DaTabela) VALUES('" & Me.Campo1DoForm & "', '" & Me.Campo2DoForm & "', '" & Me.Campo3DoForm & "')"

Me.NomeDoSubForm.Requery ' ou Me.NomeDoControleSubForm.SourceObject = "NomeDoSubForm"

criquio


Na mosca, só para variar....


Obrigado amigo.


Carlos Silveira

Grato. O fórum agradece pelo retorno.

Criquio

De uma olhada abaixo e vê se enxerga o porque o Valor do campo TtlCtrl não vai para o BD CtrlHora, já estou vesgo de olhar e não achar o que está errado.

Private Sub Confirma_Click()
Me.CustoQF1 = IDQuemF1.Column(2)

Me![TtlMin1] = Int(([HoraFim1] - [HoraIni1]) * 1441)

If [HoraFim1] < [HoraIni1] Then
Me![TtlMin1] = Int(([HoraFim1] - [HoraIni1]) * 1441) + 1441
End If
Me![TtlCtrl1] = [HoraFim1] - [HoraIni1]
If [HoraFim1] < [HoraIni1] Then
End If

Me.ValorTotal1 = ((TtlMin1 * CustoQF1) / 60)

CurrentDb.Execute "INSERT INTO CtrlHora(IDProjeto, DataDoServiço, HoraIni, HoraFim, TtlCtrl, TtlMin, Foq, IDQuemF, ValorTotal) VALUES('" & Me.IdProjeto & "', '" & Me.DataDoServiço1 & "', '" & Me.HoraIni1 & "','" & Me.HoraFim1 & "','" & Me.TtlCtrl1 & "','" & Me.TtlMin1 & "','" & Me.Foq1 & "','" & Me.IDQuemF1 & "','" & Me.ValorTotal1 & "')"

Me.TempProjeto.Requery ' ou Me.TempProjeto.SourceObject = "TempProjeto"
Refresh

Me.DataDoServiço1 = ""
Me.HoraIni1 = ""
Me.HoraFim1 = ""
Me.TtlCtrl1 = ""
Me.TtlMin1 = ""
Me.Foq1 = ""
Me.IDQuemF1 = ""
Me.ValorTotal1 = ""
Me.CustoQF1 = ""

Me.DataDoServiço1.SetFocus

End Sub