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


2 participantes

    [Resolvidos]Propriedade Sujo

    Dilson
    Dilson
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1743
    Registrado : 11/11/2009

    [Resolvidos]Propriedade Sujo Empty [Resolvidos]Propriedade Sujo

    Mensagem  Dilson 10/5/2010, 13:47

    Amigos,

    Quando um registro é salvo, o Microsoft Access define a propriedade Sujo como False. Quando um usuário faz alterações em um registro, essa propriedade é definida como true.

    Com estas linhas de programação no evento Antes de Atualizar:

    Private Sub Form_BeforeUpdate(Cancel As Integer)
    If Me.Form.Dirty = True Then
    DataUltAtual = now 'Data da Ultima Atualização
    TxtUsuarioQueAlterou = getUsuarioAtual
    End If
    End Sub


    Estou tentando O simples (como diz o JPaulo), mas não está dando certo.

    Era para somente quando algum campo fosse alterado, ele fizesse o registro da data da atualização e o nome do usuário logado.

    Este código acima tá funcionando, mas, de maneira errada.

    Só no fato de abrir e fechar o Form ele já registra os dados de atualização. Quando na verdade isso só deveria acontecer quando algum campo fosse alterado.


    Acho que não tô sabendo programar para controlar a Propriedade Sujo.

    Se alguém puder ajudar, agradeço antecipadamente.


    Última edição por Dilson em 8/8/2011, 19:47, editado 1 vez(es)
    avatar
    sergiosdl
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 143
    Registrado : 04/12/2009

    [Resolvidos]Propriedade Sujo Empty Re: [Resolvidos]Propriedade Sujo

    Mensagem  sergiosdl 15/5/2010, 22:27

    Eu uso assim, para quando o usuario alterar um registro (quando não é novo registro)

    Private Sub Form_Dirty(Cancel As Integer)
    If Not Me.NewRecord Then
    DataUltAtual = now 'Data da Ultima Atualização
    TxtUsuarioQueAlterou = getUsuarioAtual
    end if
    End Sub

    Abraços
    Dilson
    Dilson
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1743
    Registrado : 11/11/2009

    [Resolvidos]Propriedade Sujo Empty Re: [Resolvidos]Propriedade Sujo

    Mensagem  Dilson 18/5/2010, 00:24

    Sergio eu tava usando esse código e não tava dando certo.

    dei uma olhada no evento no atual e vi que era o código que tava lá rodando sem ser percebido e assim colocando a propriedade false para true. Coloquei me.undo no final do código e pronto! A propriedade sujo funcionou perefeitamente.

    Sergio, obrigado pela atenção.

    Conteúdo patrocinado


    [Resolvidos]Propriedade Sujo Empty Re: [Resolvidos]Propriedade Sujo

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 23/11/2024, 17:46