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

    Comparar valores que tem no Form com valores da Tabela em Form Desvinculado

    mfmaiafilho
    mfmaiafilho
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 393
    Registrado : 02/08/2018

    Comparar valores que tem no Form com valores da Tabela em Form Desvinculado Empty Comparar valores que tem no Form com valores da Tabela em Form Desvinculado

    Mensagem  mfmaiafilho 31/5/2021, 22:17

    Boa tarde Srs.

    Peguei esse exemplo do JPaulo e tentei adaptar no form desvinculado, porém ele não funciona, ele apenas passa pelo controles e mas no final não insere nada na tabela de logs

    estou tentando fazer um logs de alterações.

    Código:
    Dim strcheck As Boolean
    Dim strSql As String
    Dim ctl As Control

    For Each ctl In Me.Controls
    Select Case ctl.ControlType
    Case acTextBox, acComboBox, acListBox, acOptionGroup, acCheckBox

    If ctl.Value <> ctl.OldValue Or IsNull(ctl.Value) And Len(ctl.OldValue) > 0 Or ctl.Value = "" And Len(ctl.OldValue) > 0 Or IsNull(ctl.OldValue) And Len(ctl.Value) > 0 Or ctl.OldValue = "" And Len(ctl.Value) > 0 Then
        strcheck = True
        DoCmd.SetWarnings False

        strSql = "INSERT INTO TBLLOG (USUARIO,DHLOG,FORM,TITULO,CAMPO,ANTERIOR,ATUAL,STATUS)" & _
        "VALUES('" & Forms!FrmMain!usuariologado & "', Now(),'" & Me.Form.Name & "','" & Me.Form.Caption & "','" & ctl.Name & "','" & ctl.OldValue & "','" & ctl.Value & "','" & "ALTERACAO" & "')"
        DoCmd.RunSQL strSql
       
        DoCmd.SetWarnings True
    Else
        Cancel = True
    End If
    End Select
    Next ctl
    mfmaiafilho
    mfmaiafilho
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 393
    Registrado : 02/08/2018

    Comparar valores que tem no Form com valores da Tabela em Form Desvinculado Empty Re: Comparar valores que tem no Form com valores da Tabela em Form Desvinculado

    Mensagem  mfmaiafilho 2/6/2021, 12:27

    UP....

      Data/hora atual: 18/9/2021, 17:47