Fórum VBA para exclusão de registro (access2010) ? #534575
15/10/2015
0
Tenho um Formulário que nele coloquei um botão para exclusão do registro com o código VBA que não funciona como eu preciso.
Alguem pode escrever para mim um código:
1) que antes de exluir me pergunte se é esta a inteção do usuário
2) que se eu confirmar ele execute a instrução
3) que se eu desistir ele não cumpra a exclusão
Grato.
Rodrigo Ribeiro
Curtir tópico
+ 0Post mais votado
17/10/2015
Private Sub cmdDelete_Click()
On Error GoTo Err_cmdDelete_Click
DoCmd.SetWarnings False
If MsgBox("Confirma", vbQuestion + vbYesNo + vbDefaultButton2, "Delete?") = vbYes Then
DoCmd.SetWarnings False
DoCmd.RunCommand acCmdDeleteRecord
DoCmd.SetWarnings True
End If
Exit_cmdDelete_Click:
DoCmd.SetWarnings True
Exit Sub
Err_cmdDelete_Click:
MsgBox Err.Description
Resume Exit_cmdDelete_Click
End Sub
Jothaz
Gostei + 1
Mais Posts
16/10/2015
Jothaz
Gostei + 0
16/10/2015
Rodrigo Ribeiro
O erro é : Erro em tempo de execução '2452':
Private Sub BtnExcluir_Click()
Dim rst As DAO.Recordset
If MsgBox("Deseja deltar este registro?" & vbCrLf & "Essa acao não pode ser desfeita?", vbYesNo + vbInformation, "Atenção:") = vbYes Then
Set rst = Me.Parent.Recordset
If Not rst.EOF Then
rst.Delete
rst.MoveNext
End If
Set rst = Nothing
End If
End Sub
Gostei + 0
17/10/2015
Rodrigo Ribeiro
.
.
Funcionou perfeitamente !!!
Pra quem tem uns anos que não programa em VBA voce é o cara !!
Sabe o tocador de viola que não sabe ler cifra e nem partitura mas toca de ouvido ? Pois é, este sou eu em Access. Gosto de fazer e usar, mas não tenho formação acadêmica.
Obrigado !!!
:-)
.
.
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)