MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    Só salva se quiser

    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10605
    Registrado : 04/11/2009

    Só salva se quiser Empty Só salva se quiser

    Mensagem  JPaulo em 16/5/2012, 17:37

    Num modulo novo, cole e salve:

    Public Function VerificaAlteracoes(frm As Form) As Integer
    'By JPaulo ® Maximo Access
    Dim ctl As Control
    ' A propriedade Dirty é True se o registro for alterado.
    If frm.Dirty Then
    ' Mensagem de pedir confirmação
    If MsgBox("Detectada alteração de dados... " & vbCrLf & "Deseja salvar ? ", vbYesNo + vbQuestion, "Alerta") = vbNo Then
    'se a resposta for não, desfaz as alterações
    frm.Undo
    Else
    'se for sim, salva as alterações
    DoCmd.Save acDefault
    End If
    End If
    End Function


    Private Sub Form_BeforeUpdate(Cancel As Integer)
    'chamada da função no formulário
    Call VerificaAlteracoes(Me)
    End Sub


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    Só salva se quiser Folder_announce_new Utilize o Sistema de Busca do Fórum...
    Só salva se quiser Folder_announce_new 102 Códigos VBA Gratuitos...
    Só salva se quiser Folder_announce_new Instruções SQL como utilizar...

      Data/hora atual: 25/11/2020, 12:59