[Resolvido]Inclusão em duas tabelas.

Prezados, bom dia,

Com a ajuda dos amigos do fórum eu estou a usar o codigo abaixo para atualizar uma tabela chamada tblContasReceber.

CurrentDb.Execute "UPDATE tblContasReceber SET [ValorRecebido] = '" & Me.cboPG & "' Where ID = " & Me.ID & ""
CurrentDb.Execute "UPDATE tblContasReceber Set Pagamento = #" & cboDtCredito & "# Where NotaFiscal = '" & Me.NotaFiscal & "'"

Como faço para incluir estes mesmos registros em uma outra tabela chamada tblContasReceberPG.

Obs: Os campos da tabela tblContasReceberPG são os mesmos do UPDATE acima.

Boa tarde,
No título, informa que se trata de actualização
Na descrição, informe que se trata de inclusão.
Trata-se de ...

Desculpe o equivoco.

O correto seria inclusão mesmo!

Alterei o título do tópico. O colega só tinha alterado o título da mensagem.

Será
CurrentDb.Execute "INSERT INTO tblContasReceberPG SELECT * FROM tblContasReceber Where ID=" & Me.ID

Agradeço a alteração.

Veja,

Implementei o que foi proposto e ainda continua somente atualizando a primeira ttblContasReceber.

A inclusão não acontece na tblContasReceberPG.

'Atualizar registro da tabela tblContasReceber
CurrentDb.Execute "UPDATE tblContasReceber SET [ValorRecebido] = '" & Me.cboPG & "' Where ID = " & Me.ID & ""
CurrentDb.Execute "UPDATE tblContasReceber Set Pagamento = #" & cboDtCredito & "# Where NotaFiscal = '" & Me.NotaFiscal & "'"

'Incluir registro da tabela tblContasReceberPG
CurrentDb.Execute "INSERT INTO tblContasReceberPG SELECT * FROM tblContasReceber = '" & Me.cboPG & "' Where ID = " & Me.ID & ""
CurrentDb.Execute "INSERT INTO tblContasReceberPG SELECT * FROM tblContasReceber = #" & cboDtCredito & "# Where NotaFiscal = '" & Me.NotaFiscal & "'"

Encaminho anexo!

https://www.dropbox.com/s/q307451lkpik00u/Banco%20de%20Dados1.accdb?dl=0

Quem lhe disse para escrever tblContasReceber = '" & Me.cboPG & "' ?

Coloquei o código que informou, porém, não inseriu nenhum dado na tblContasReceberPG.
Somente atualizou o dado da tblContasReceber.
A expressão ficou assim:

'Atualizar registro da tabela tblContasReceber
CurrentDb.Execute "UPDATE tblContasReceber SET [ValorRecebido] = '" & Me.cboPG & "' Where ID = " & Me.ID & ""
CurrentDb.Execute "UPDATE tblContasReceber Set Pagamento = #" & cboDtCredito & "# Where NotaFiscal = '" & Me.NotaFiscal & "'"

'Incluir registro da tabela tblContasReceberPG
CurrentDb.Execute "INSERT INTO tblContasReceberPG SELECT * FROM tblContasReceber Where ID=" & Me.ID

Bom dia,
Pelo que descreveu, fiquei com a ideia que os campos das tabelas eram os mesmos, mas não.
coloque o cboDtCredito com máscara de introdução para dataabreviada
Para o botão:
Private Sub Pagar_Click()
On Error Resume Next
Dim strInput As String
Dim Resp As String

Resp = MsgBox("Deseja realizar o pagamento da Nota Fiscal selecionada?", vbYesNo, "Efetuar Pagamento")
If Resp = vbYes Then

If IsNull([cboPG]) Or IsNull([cboDtCredito]) Then

Resp = MsgBox("Você deve informar a data do Crédito e o Valor Pago.", vbCritical + vbQuestion, "Cancelado...")
Me.cboPG.SetFocus
Me.cboDtCredito.Visible = True
Me.cboPG.Visible = True

Else

'Atualizar registro da tabela tblContasReceber
CurrentDb.Execute "UPDATE tblContasReceber SET ValorRecebido=" & Me.cboPG & ", Pagamento= #" & Format(cboDtCredito, "mm-dd-yyyy") & "# Where ID = " & Me.ID
'Incluir registro da tabela tblContasReceberPG
CurrentDb.Execute "INSERT INTO tblContasReceberPG SELECT NotaFiscal,ValorRecebido,Pagamento FROM tblContasReceber Where ID = " & Me.ID & ""
Me.cboPG = Null
Me.cboDtCredito = Null
End If

End If

CancelEvent = True

End Sub

Alexandre Neves, bom dia,

Perfeito sua explicação amigo. Funcionou perfeitamente...

Grato,