MaximoAccess

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

Obrigado

Administração do MaximoAccess

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


    [Resolvido]Mensagem de Confirmação

    rodolfoserra
    rodolfoserra
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 67
    Registrado : 20/02/2013

    [Resolvido]Mensagem de  Confirmação Empty Mensagem de Confirmação

    Mensagem  rodolfoserra em 2/3/2013, 09:51

    Bom Dia.

    Tenho um Problema que não consigo Resolver.

    Eu criei um botão para apagar um registo e queria que ao selecionar o botão aparace-se uma mensagem de Confirmação "Tem a certeza que Deseja Eliminar o registo" com 2 botões de Sim ou Não.

    Se alguém me puder ajudar agradecia.
    Rui Maciel
    Rui Maciel
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 298
    Registrado : 11/09/2012

    [Resolvido]Mensagem de  Confirmação Empty Re: [Resolvido]Mensagem de Confirmação

    Mensagem  Rui Maciel em 2/3/2013, 10:12

    Bom dia Rodolfo
    Qualquer coisa como:

    Private Sub seubotão_Click()
    On Error GoTo 1
    If MsgBox("Deseja realmente excluir este registo?" & Trim(Me.campo1.Value) & " - " & Trim(Me.campo2.Value) & "?", vbYesNo + vbCritical + vbDefaultButton1, "ATENÇÃO") = vbYes Then
    DoCmd.SetWarnings True
    DoCmd.RunCommand acCmdDeleteRecord
    DoCmd.SetWarnings False
    Else
    MsgBox "Cancelado pelo utilizador!", vbOKOnly + vbCritical + vbDefaultButton1, "ATENÇÃO"
    End If
    Exit_seubotão_Click:
    Exit Sub
    1:
    MsgBox Err.Description
    End Sub

    É só adaptar.

    Abraço,
    Rui


    Última edição por ruimaciel em 2/3/2013, 13:22, editado 2 vez(es)
    Lupércio
    Lupércio
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1133
    Registrado : 07/05/2011

    [Resolvido]Mensagem de  Confirmação Empty Re: [Resolvido]Mensagem de Confirmação

    Mensagem  Lupércio em 2/3/2013, 12:07

    Boas!

    Private Sub SeuBotão_Click()
    If IsNull(Me.Código) Then
    MsgBox "Não há dados para exclusão!", vbInformation, "Atenção!"
    DoCmd.CancelEvent
    Else

    DoCmd.SetWarnings False
    On Error Resume Next
    Dim X As Integer
    X = MsgBox("Deseja excluir o veiculo selecionado?", 20, "Rodolfo!")
    If X = 6 Then
    DoCmd.RunCommand acCmdDeleteRecord
    DoCmd.SetWarnings True
    End If
    End If
    End Sub
    Rui Maciel
    Rui Maciel
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 298
    Registrado : 11/09/2012

    [Resolvido]Mensagem de  Confirmação Empty Re: [Resolvido]Mensagem de Confirmação

    Mensagem  Rui Maciel em 7/3/2013, 22:11

    Resolveu Rodolfo?
    rodolfoserra
    rodolfoserra
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 67
    Registrado : 20/02/2013

    [Resolvido]Mensagem de  Confirmação Empty Re: [Resolvido]Mensagem de Confirmação

    Mensagem  rodolfoserra em 9/3/2013, 19:24

    Já está

    Muito obrigado
    Rui Maciel
    Rui Maciel
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 298
    Registrado : 11/09/2012

    [Resolvido]Mensagem de  Confirmação Empty Re: [Resolvido]Mensagem de Confirmação

    Mensagem  Rui Maciel em 9/3/2013, 20:42

    Boa noite Rodolfo, faltou o resolvido e o clicar na mãozinha.
    Abraço,
    Rui

    Conteúdo patrocinado

    [Resolvido]Mensagem de  Confirmação Empty Re: [Resolvido]Mensagem de Confirmação

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/8/2019, 20:48