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


    Função Testa Campos com Data de Alteração

    avatar
    m_araujo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 95
    Registrado : 15/11/2012

    Função Testa Campos com Data de Alteração  Empty Função Testa Campos com Data de Alteração

    Mensagem  m_araujo em 19/4/2016, 14:34

    Bom dia!

    Caros colegas tenho um função chamada testa campos ela esta funcionando tranquilamente, porem em alguns formulários eu tenho um campo de DataAlteracao que informa a data e hora que o cadastro sofreu alteração
    como faço para adaptar essa função nesses formulários, que não são em todos.
    e todos os formulários eu chamo a função.


    Código:

    Public Function testaCampos(frm As Form) ', Optional intVal As Integer)
        'Testar preechimento de campos (para formulário não contínuo)
        Const conDigMinima = "1", conDigExigida = "2"
       
        For I = 0 To frm.Form.Count - 1
            If frm.Form(I).Tag = conDigMinima Then
                If IsNull(frm.Form(I)) Or Len(frm.Form(I)) < 12 Then
                    testaCampos = False
                    If frm.Form(I).Enabled = True And frm.Form(I).Locked = False Then frm.Form(I).SetFocus
                    MsgBox "O preenchimento do campo seguinte está incorreto!", vbCritical, msgTitulo
                    'MsgBox "O preenchimento do campo " & UCase(frm.Form(i).Controls(0).Caption) & _
                            " está incorreto!", vbCritical, msgTitulo
                    'If intVal = 1 Then testaCampos = UCase(frm.Form(i).Controls(0).Caption)
                    Exit Function
                End If
            ElseIf frm.Form(I).Tag = conDigExigida Then
                If IsNull(frm.Form(I)) Then
                    testaCampos = False
                    MsgBox "O preenchimento do campo seguinte está incorreto!", vbCritical, msgTitulo
                    'MsgBox "O preenchimento do campo " & UCase(frm.Form(i).Controls(0).Caption) & _
                            " está incorreto!", vbCritical, msgTitulo
                    If frm.Form(I).Enabled = True And frm.Form(I).Locked = False Then frm.Form(I).SetFocus
                    'If intVal = 1 Then testaCampos = UCase(frm.Form(i).Controls(0).Caption)
                    Exit Function
                End If
            End If
        Next I
        testaCampos = True

    Grato!

    Marcelo Ferreira
    crysostomo
    crysostomo
    Super Avançado
    Super Avançado

    Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 813
    Registrado : 23/01/2018

    Função Testa Campos com Data de Alteração  Empty Re: Função Testa Campos com Data de Alteração

    Mensagem  crysostomo em 20/1/2019, 15:51

    Eu criei um arquivo Porem ele registra qual usuário e qual data sofreu alteração. Coloque login quando alterar .
    ..
    crysostomo
    crysostomo
    Super Avançado
    Super Avançado

    Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 813
    Registrado : 23/01/2018

    Função Testa Campos com Data de Alteração  Empty Re: Função Testa Campos com Data de Alteração

    Mensagem  crysostomo em 20/1/2019, 15:52

    Coloque um login para quando for fazer alteração.

    Conteúdo patrocinado

    Função Testa Campos com Data de Alteração  Empty Re: Função Testa Campos com Data de Alteração

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 24/7/2019, 10:04