Bom dia, se possível gostaria do auxílio dos profissionais, tentei de várias maneiras, mas não consegui corrigir o erro.
Este mesmo código funciona bem em outro formulário, mas aqui da este erro
Private Sub BtAlterar_Click()
strsql = "UPDATE T_Cartão set dt = '" & TxDt & "', SubCta='" & TxSc & "',Cta = '" & TxCt & "', Descrição='" & TxDe & "',"
strsql = strsql & "parc = '" & TxPa & "', km='" & TxKm & "',lt = '" & TxLt & "', vlr='" & TxVl & "',pgto='" & TxPg & "' where id = " & txId '
CurrentDb.Execute strsql
MsgBox "Registro alterado....", vbInformation, "Aviso"
Me.Refresh
End Sub
Erro em tempo de execução 3061
Parâmetros insuficiente eram esperados 2
Este mesmo código funciona bem em outro formulário, mas aqui da este erro
Private Sub BtAlterar_Click()
strsql = "UPDATE T_Cartão set dt = '" & TxDt & "', SubCta='" & TxSc & "',Cta = '" & TxCt & "', Descrição='" & TxDe & "',"
strsql = strsql & "parc = '" & TxPa & "', km='" & TxKm & "',lt = '" & TxLt & "', vlr='" & TxVl & "',pgto='" & TxPg & "' where id = " & txId '
CurrentDb.Execute strsql
MsgBox "Registro alterado....", vbInformation, "Aviso"
Me.Refresh
End Sub
Erro em tempo de execução 3061
Parâmetros insuficiente eram esperados 2