Ir para conteúdo
Fórum Script Brasil
  • 0

Código para excluir registro em outra tabela


Gil Kléber

Pergunta

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?

Link para o comentário
Compartilhar em outros sites

3 respostass a esta questão

Posts Recomendados

  • 0

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

Link para o comentário
Compartilhar em outros sites

  • 0

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.

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...