MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


    [Resolvido]Excluir registro no formulário contínuo

    avatar
    clrafael
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 04/12/2010

    [Resolvido]Excluir registro no formulário contínuo Empty [Resolvido]Excluir registro no formulário contínuo

    Mensagem  clrafael 2/9/2013, 21:10

    Saudações amigos,

    Inseri um botão excluir, na seção detalhe de um formulário contínuo, de modo que o botão se repete em cada registro.
    Porém, quando clico no botão e o foco está em outro registro, o access não traz o foco para o registro que desejo excluir, então acaba excluindo indevidamente.

    Como posso resolver isso? Já procurei bastante e não encontrei solução.


    Obrigado!
    avatar
    Convidado
    Convidado


    [Resolvido]Excluir registro no formulário contínuo Empty Re: [Resolvido]Excluir registro no formulário contínuo

    Mensagem  Convidado 2/9/2013, 21:23

    Tente este:

    On Error GoTo TrataErro

    Dim apaga As Integer
    Dim MsgErro
    apaga = MsgBox("Confirma excluir registro? Depois de excluir não será possível desfazer a ação !!!", vbYesNo + vbQuestion, "Excluir")
        Select Case apaga
            Case vbYes
                DoCmd.SetWarnings False
                DoCmd.RunCommand acCmdDeleteRecord
                DoCmd.SetWarnings True
            Case vbNo
        End Select

    Exit_TrataErro:
        DoCmd.Hourglass False
        DoCmd.Echo True
     Exit Sub
       
    TrataErro:
    If err.Number = 0 Then
        'Não é um erro
    Else
     DoCmd.Hourglass False
     DoCmd.Echo True
     MsgErro = "Erro # " & Str(err.Number) & " gerado na " & err.Source _
     & vbNewLine & vbNewLine & "Descrição: " & err.Description _
     & vbNewLine & vbNewLine & "Por favor contate o Administrador de Sistema."
     MsgBox MsgErro, vbMsgBoxHelpButton + vbCritical, "Erro", err.Helpfile, err.HelpContext
     Resume Exit_TrataErro

    Cumprimentos.


    Última edição por PILOTO em 31/10/2013, 08:20, editado 1 vez(es) (Motivo da edição : Tópico dado como resolvido por falta de resposta)

      Data/hora atual: 7/11/2024, 14:41