[Resolvido]For Each com condição

Olá, ótima tarde a todos. Tenho vários campos no form e vários deles estão como locked=true. Preciso colocar uma condição dentro do for each onde só execute o for each caso o Control esteja com a condição locked=False. Segue abaixo o for each...

      For Each ctl In Me.Controls
     ' Percorre todos os tipos de controles
Select Case ctl.ControlType
Case acTextBox, acComboBox, acListBox, acOptionGroup, acCheckBox

       If ctl.Value <> ctl.OldValue Or (IsNull(ctl.Value) Or ctl.Value = "") Then
     'se algum valor foi alterado ou deletado, coloca a variável de chekar alterações como True
   strChekaDiferente = True
     'e registra na tabela do Log
          DoCmd.SetWarnings False
strSQL = "INSERT INTO tblLog (Utilizador, LogData, NomeForm, NomeCampo, ValorAntigo, ValorAtual, Status) Values('" & strUser & "', Now(),'" & Me.Form.Name & "','" & ctl.Name & "','" & ctl.OldValue & "','" & ctl.Value & "','" & "Registro Alterado" & "')"
DoCmd.RunSQL strSQL
           DoCmd.SetWarnings True
      'termina e volta a colocar a variável de chekar alterações como False
          strChekaDiferente = False
       Else
              Cancel = True
      End If

  End Select
 Next ctl

Olá Tchelo,

Seja bem-vindo o fórum.

Segue ajuste no procedimento:

Código:



    For Each ctl In Me.Controls
        ' Percorre todos os tipos de controles
        Select Case ctl.ControlType
            Case acTextBox, acComboBox, acListBox, acOptionGroup, acCheckBox
            '-- Verifica se o controle está bloqueado - by Alexandre Fim
            If ctl.Locked = True Then
            '-----------------------------------------------------------
                If ctl.Value <> ctl.OldValue Or (IsNull(ctl.Value) Or ctl.Value = "") Then
                    'se algum valor foi alterado ou deletado, coloca a variável de chekar alterações como True
                    strChekaDiferente = True
                    'e registra na tabela do Log
                    Call GravaLog
                    'termina e volta a colocar a variável de chekar alterações como False
                    strChekaDiferente = False
                Else
                    Cancel = True
                End If
            End If
        End Select
    Next ctl



Segue também o procedimento para gravação de log (apenas criei uma sub só para separar os processos e ficar mais legível...rss)

Código:


Public Sub GravaLog()
On Error GoTo trata_erro

    DoCmd.SetWarnings False
    strSQL = "INSERT INTO tblLog "
    strSQL = strSQL & " ("
    strSQL = strSQL & "  Utilizador"
    strSQL = strSQL & " ,LogData"
    strSQL = strSQL & " ,NomeForm"
    strSQL = strSQL & " ,NomeCampo"
    strSQL = strSQL & " ,ValorAntigo"
    strSQL = strSQL & " ,ValorAtual"
    strSQL = strSQL & " ,Status"
    strSQL = strSQL & " ) "
    strSQL = strSQL & " VALUES"
    strSQL = strSQL & " ("
    strSQL = strSQL & "  '" & strUser & "'"
    strSQL = strSQL & " ,'" & Now() & "'"
    strSQL = strSQL & " ,'" & Me.Form.Name & "'"
    strSQL = strSQL & " ,'" & ctl.Name & "'"
    strSQL = strSQL & " ,'" & ctl.OldValue & "'"
    strSQL = strSQL & " ,'" & ctl.Value & "'"
    strSQL = strSQL & " ,'Registro Alterado'"
    strSQL = strSQL & " )"
    DoCmd.RunSQL strSQL
    DoCmd.SetWarnings True
   
    Exit Sub
   
trata_erro:
    MsgBox "Erro ocorrido: " & Err.Number & " - " & Err.Description & "", vbCritical, "Erro"
    Exit Sub

End Sub



É isso.

Espero ter ajudado

Att,

Alexandre Fim

Muito obrigado e Parabéns !!!!!

Valeu Tchelo,

O fórum agradece.

Sucesso.

Att,

Alexandre Fim