Prezados, bom dia / boa tarde / boa noite.
Estou enfrentando uma certa dificuldade para inserir dois campos em uma subtabela.
Um é um campo texto e o outro valor moeda.
Tentei 3 tipos de inserção, mas apenas a chave primária é que está indo.
Abaixo as 3 rotinas.
'---------------------------------------------------------------------------------------------------------------------------
'aqui faço a inserção do descritivo na tblSubBanho
'---------------------------------------------------------------------------------------------------------------------------
'primeira rotina
CurrentDb.Execute "INSERT INTO TblSubBanho ( Idbanho, DescricaoServico, ValorServico ) values idbanho, '& Pgto Vale BT em C.Débito &', ValorPago FROM Tblbanho WHERE Idbanho=" & Me!Idbanho & ";", dbFailOnError
'---------------------------------------------------------------------------------------------------------------------------
'segunda rotina
' Dim db5 As Database, rs5 As Recordset
' Set db5 = CurrentDb()
' Set rs5 = db5.OpenRecordset("tblSubBanho")
' With rs5
' .AddNew
' ![Idbanho] = Me.Idbanho
' ![DescricaoServico] = "Pgto Vale BT em C.Débito" .......preciso inserir
' ![ValorServico] = Me.ValorPago .......preciso inserir
' rs5.Update
' End With
'---------------------------------------------------------------------------------------------------------------------------
'terceira rotina
'aqui faço a inserção do descritivo na tblSubBanho
' Dim db6 As Database, rs6 As Recordset
' Set db6 = CurrentDb()
' Set rs6 = db5.OpenRecordset("tblSubBanho", dbOpenDynaset)
' rs6.FindFirst "idbanho = " & Me!Idbanho
' rs6.Edit
' rs6("descricaoservico") = "Pgto Vale BT em C.Débito" .......preciso inserir
' rs6("ValorServico") = Me.ValorPago .......preciso inserir
' rs6.Update
Sincera e francamente, não sei onde estou a errar.
Conto com a ajuda dos colegas.
[]'s
Estou enfrentando uma certa dificuldade para inserir dois campos em uma subtabela.
Um é um campo texto e o outro valor moeda.
Tentei 3 tipos de inserção, mas apenas a chave primária é que está indo.
Abaixo as 3 rotinas.
'---------------------------------------------------------------------------------------------------------------------------
'aqui faço a inserção do descritivo na tblSubBanho
'---------------------------------------------------------------------------------------------------------------------------
'primeira rotina
CurrentDb.Execute "INSERT INTO TblSubBanho ( Idbanho, DescricaoServico, ValorServico ) values idbanho, '& Pgto Vale BT em C.Débito &', ValorPago FROM Tblbanho WHERE Idbanho=" & Me!Idbanho & ";", dbFailOnError
'---------------------------------------------------------------------------------------------------------------------------
'segunda rotina
' Dim db5 As Database, rs5 As Recordset
' Set db5 = CurrentDb()
' Set rs5 = db5.OpenRecordset("tblSubBanho")
' With rs5
' .AddNew
' ![Idbanho] = Me.Idbanho
' ![DescricaoServico] = "Pgto Vale BT em C.Débito" .......preciso inserir
' ![ValorServico] = Me.ValorPago .......preciso inserir
' rs5.Update
' End With
'---------------------------------------------------------------------------------------------------------------------------
'terceira rotina
'aqui faço a inserção do descritivo na tblSubBanho
' Dim db6 As Database, rs6 As Recordset
' Set db6 = CurrentDb()
' Set rs6 = db5.OpenRecordset("tblSubBanho", dbOpenDynaset)
' rs6.FindFirst "idbanho = " & Me!Idbanho
' rs6.Edit
' rs6("descricaoservico") = "Pgto Vale BT em C.Débito" .......preciso inserir
' rs6("ValorServico") = Me.ValorPago .......preciso inserir
' rs6.Update
Sincera e francamente, não sei onde estou a errar.
Conto com a ajuda dos colegas.
[]'s