VBA para exclusão de registro (access2010) ?
Olá Pessoal !
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.
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
Curtidas 0
Melhor post
Jothaz
17/10/2015
Já uns anos que não programo em VBA, mas tenta assim:
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
GOSTEI 1
Mais Respostas
Jothaz
15/10/2015
Post o que você já fez.
GOSTEI 0
Rodrigo Ribeiro
15/10/2015
Estou usando a instrução abaixo, mas está dando erro na linha " Set rst = Me.Parent.Recordset "
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
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
Rodrigo Ribeiro
15/10/2015
Jothaz
.
.
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 !!!
:-)
.
.
.
.
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