[Resolvido]Como excluir itens especificos de uma tabela via SQL

Prezados Bom dia a todos.

Eis aqui de novo, quebrando a cabeça. Preciso excluir apenas dois campos em uma tabela (clientepgto), pois quando o cliente paga essa parcela, esse campos tem que serem eliminados dessa tabela, pois a mesma alimenta um formulário onde o usuário faz a consulta para ver quantas parcelas faltam. Acontece que quando "flega" a caixa sim/não do mesmo, o código corre certinho, mas não é excluído da tabela clientepgto. Tenho o seguinte código abaixo:

Private Sub Foipago_Click()
Dim strsql As String
Dim db1 As Database, rs1 As DAO.Recordset
Dim db2 As Database, rs2 As DAO.Recordset
If MsgBox("Confirma a Realização desse Pagamento?", vbYesNo + vbQuestion, "Serralheira Modelo") = vbYes Then
Set db1 = CurrentDb
Set db2 = CurrentDb
Set rs1 = db1.OpenRecordset("Bpgtocliente", dbOpenTable)
Set rs2 = db2.OpenRecordset("clientepgto", dbOpenTable)
With rs1
.AddNew
![Idorcamento] = Me.Idorcamento
![Idcliente] = Me.Idcliente
![Nome] = Me.Nome
![DtPgto] = Me.DtPgto
![VPgto] = Me.VPgto
.Update
strsql = "DELETE FROM clientepgto WHERE vgpto=vpgto;dtpgto=dtpgto"
CurrentDb.Execute strsql
End With
DoCmd.RunCommand acCmdRefresh
DoCmd.GoToRecord , , acNewRec
MsgBox "Pagamento confirmado !", vbOKOnly + vbInformation, "Serralheira Modelo"
End If
End Sub

Grato a todos.

Eu não entendi. Você quer excluir os campos ou apagar o conteúdo deles?

Olá Criquio, bom dia para ti.

Desejo apenas apagar o conteúdo dos mesmo.

vgpto=vpgto;dtpgto=dtpgto

Os campos em vermelho estão no rs1 ou no rs2? Os campos em verde estão no formulário ou tambem representados no rsx?

A título de informação: se ambos RS1 e RS2 fazem parte do mesmo banco, não precisa declarar dois DBs. Pode declarar apenas um e utilizar ele nos dois RSs.

Eita......

ambos rs se encontram no mesmo banco.

Vpgto e Dtpgto vem da tabela clientepgto, que após a confirmação do pagamento vai para a tabela Bpgtocliente, eliminando assim esses registros da tabela clientepgto.

Exemplo: se ele faz em 3 parcelas, 30dd + 60dd + 90dd...no dia tal ele fez o pagamento de x reais, eu entro no formulário, chamo o cliente através da combo...e ela me mostra os dias e valores, vou até o dia referido e através da caixa sim/não, dou por recebido o pagamento.

Esses dados saem da tabela clientepgto e vão para a tabela Bpgtocliente.

Criquio espero sinceramente ter sido claro...para você poder me ajudar.

Abraços.

Silvio é igualzinho à sua outra duvida.

E a instrução do DELETE está errada;

Então JPaulo, sem abusar, como fazer então: tenho 8 caixas sim/não que correspondem a 8 formas de pagamento. Cada uma tem duas caixas de textos ( dtpgto e vpgto). Veja abaixo:


entrada ou à vista
foipago ( caixa sim/não )
dtpgto ( data/hora)
vpgto ( unidade monetária)

30 DD
foipago1 ( caixa sim/não )
dtpgto1 ( data/hora)
vpgto1 ( unidade monetária)
..
..
..
210 DD
foipago8 ( caixa sim/não )
dtpgto8 ( data/hora)
vpgto8 ( unidade monetária)

Elas vem da tabela clientepgto


Como aplicar o DELETE * FROM clientepgto WHERE .....( aqui eu não sei mesmo) e mandá-los para a tabela Bpgtocliente, excluindo ou importando da tabla clientepgto, sei lá agora o termo a ser aplicado, um a um ?

Eu para ser ser sincero, não faço a menor das ideias....ainda estou a gatinhar em SQL...VBA já me viro muito bem.

Grato JPaulo.

Abraços.