[Resolvido]Texto de um Label conforme seleção de uma Checkbox

Bom dia!
Estou criando um Form para limitar acessos ao usuário e estou com a seguinte dificuldade:

No Form ele possui as as Opções de Navegar, Adicionar, Atualizar, Excluir e Relatório conforme imagem abaixo



Na opção Form_Current e AfterUpDate de cada Checkbox inseri este código

Código:


If Me.ImpExp_nav = 0 Then
    Me.Rótulo415.Caption = "Não"
    Me.Rótulo415.ForeColor = 255
Else
    Me.Rótulo415.Caption = "Sim"
    Me.Rótulo415.ForeColor = 16711680
End If

Problema: vou ter que inserir o código acima para cada Checkbox, restando assim 45 eventos bem como para o atual do form para que ele mude o label de acordo com a seleção.

Tem com enxugar isso criando uma única função de modo a evitar essa quantidade de linhas de código?

Renomeie os rótulos pegando o nome da check que fica mais fácil. Por exemplo: lblImpExp_nav.
Dessa forma, você pode usar variáveis em uma função que vai analisar cada checkbox e formatar o rótulo lblNomeDaCheck. Algo assim:

Private Function FormataLabel()
   Dim lblCheck As Control
      For Each lblCheck In Me.Controls
         If lblCheck.ControlType = acCheckBox Then
            If lblCheck.Value = 0 Then
               Me("lbl" & lblCheck).Caption = "Não"
               Me("lbl" & lblCheck).ForeColor = 255
            else
               Me("lbl" & lblCheck).Caption = "Sim"
               Me("lbl" & lblCheck).ForeColor = 6711680
            End If
         End If
      Next lblCheck
End Function

No seu evento, chame:

Call FormataLabel

Vou testar e dou um retorno.

Ocorreu o Seguinte Erro:

Erro em tempo de execução '2465':

O......não pode localizar o campo 'lbl0' referido em sua expressão.

ao depurar:

Private Function FormataLabel()
Dim lblCheck As Control
For Each lblCheck In Me.Controls
If lblCheck.ControlType = acCheckBox Then
If lblCheck.Value = 0 Then
Me("lbl" & lblCheck).Caption = "Não" (lblCheck = 0)
Me("lbl" & lblCheck).ForeColor = 255
Else
Me("lbl" & lblCheck).Caption = "Sim"
Me("lbl" & lblCheck).ForeColor = 6711680
End If
End If
Next lblCheck
End Function

A variável lblCheck está recebendo um valor zero

Pelo que entendi essa variável deveria receber o nome da Checkbox concatenando com "lbl" formando assim o nome do label.
Estou Correto?

O que acontece é que você está usando grupo de objetos. Se possível, poste um exemplo resumido do bd, seguindo a dica da minha assinatura ↓

Não estou conseguindo anexar o arquivo.

acusa o seguinte erro:
Não é possível enviar o arquivo : o espaço total de armazenamento foi ultrapassado. (Espaço restante : 19 Kb)

o anexo de exemplo tem somente 37 KB

Existe outra forma de enviar o anexo.

Pode enviar para o meu email que eu coloco aqui

sergiovieirasoft@gmail.com

Acabei de enviar o email.

Obrigado.

Então aqui está

http://dl.dropbox.com/u/8157744/BD_exemplo.zip

Só faltou uma coisinha na função que eu me equivoquei. Segue a alteração:

Private Function FormataLabel()
    Dim lblCheck As Control
        For Each lblCheck In Me.Controls
            If lblCheck.ControlType = acCheckBox Then
                    If lblCheck.Value = 0 Then
                    Me("lbl" & lblCheck.Name).Caption = "Não"
                    Me("lbl" & lblCheck.Name).ForeColor = 255
                Else
                    Me("lbl" & lblCheck.Name).Caption = "Sim"
                    Me("lbl" & lblCheck.Name).ForeColor = 6711680
                End If
            End If
        Next lblCheck
End Function

Se o seu Access for 2007 ou 2010, poderá chamar a função uma única vez no evento "Ao pintar" do formulário, sem a necessidade de repetir em cada checkbox.

Muito Obrigado.

Está executando como eu desejava.

Sua ajuda ampliou mais meus conhecimentos.

Mais um resolvido, Obrigado.

Valeu. Estamos aí para compartilhar o conhecimento.