Código para excluir registro em outra tabela

[Gil Kléber]

Olá pessoal. Ainda estou engatinhando no VBA, e me deparei com a seguinte situação:

Tenho a tabela PARCELAS, com os campos:

idParcela

valorParcela

dtVencParcela

pago (S/N)

e a tabela PAGAMENTO

idPagamento

idParcela

dtPago

vlpago

a tabela PARCELAS é base pra um subformulário que se encontra no form GERAR PARCELAS. Quando clico no Botao Gerar, aparecem as parcelas automaticamente em modo folha de dados. Quero criar um evento no campo PAGO, pra se for igua a TRUE, ele me perguntar se quero realmente excluir o registro de pagamento (que se encontra na tabela pagamentos)

Imagino que deveria usar algo como:

Dim db as recordset, rs as recordser

set db as "nome da tabela", depois verificar os código (idPagamento=forms![xxxxx]!{idpagamento]

se sim, execute DELETE.. algumo assim. mas não sei como

podem me ajudar?

[Alexandre Neves]

Apesar da questão não estar muito perceptível, não deve excluir nenhum registo quando ficar paga a parcela, antes, deve acrescentar a data de pagamento para futuro histórico do cliente/processo

[Gil Kléber]

Consegui, mas eu gostaria que quando clicar na caixa de verificação PAGO e ela estiver com valor TRUE, o access perguntasse se eu realmente desejaria excluir o registro de pagamento. Se sim, prossegue pra excluir, se não, não esclui e MANTEM a caixa de verificação PAGO como TRUE. Da tudo certo, só que quando clico em NÃO, ele não exclui o registro (até aí tudo bem), mas a caixa PAGO fica como NOT TRUE.

Tentei fazer da seguinte forma, mas não sei nada de VBA, então...

Private Sub pagoVerificador_Click()

If Me.pagoVerificador = True Then

DoCmd.OpenForm "frmPagarBoleto", acNormal, "", "", , acDialog

Else

If MsgBox("Tem certeza de que deseja excluir o registro de pagamento desta parcela?", vbYesNo, "Confirmar exclusão!") = vbYes Then

Dim DB As DAO.Database

Set DB = CurrentDb()

DB.Execute "DELETE * FROM tblPagamentos WHERE idBoleto = " & Forms![frmEmitirBoleto]![frmsubEmitirBoleto].Form![idBoleto]

Set DB = Nothing

MsgBox "O registro de pagamento foi excluído"

Else

MsgBox "Nenhum registro foi excluido"

Set DB = CurrentDb()

Set RS = DB.OpenRecordset("tblDadosBoleto")

RS.Edit

RS("pagoVerificador") = True

Set DB = Nothing

RS.Close

DoCmd.RunCommand acCmdRefresh

End If

End If

End Sub

Alexandre, sim. Tem o campo de data de pagamento. Eu quis apenas resumir a questão.

Obrigado

[MrMALJ]

Na propriedade de evento após atualizar do campo sim/não faça um código assim?

dim msg as variant

msg=msgbox("Confirma exlusão?",vbyesno)

if msg=vbyes then

..........

end if

Bom é isso ai, nos dê o retorno, se bem que sistemas que controlam parcelas não costumam apagar esses registros apenas dão baixa conforme o colega Alexandre já mencionou anteriormente.