[Resolvido]Identificar a Tag

Olá pessoal tudo bem, recentemente tirei uma dúvidas com voces sobre o meu BD que estava com um probleminha de configuração, onde nele faltava acrescentar a Tag em um botão para tornar com a aparencia enabled = false. Pois bem, eu procurei em módulos e formulários e não achei onde esta explicito essa Tag"5" que no Maestro do Mestre Avelino se encontra, será que ela pode estar escrito de outra maneira. Como posso fazer para identifica-la no BD, e saber sobre suas caracteristicas, quando usar, de que maneira..Obrigado

Olá Pablo

Não irá encontrar explicitamente Tag=5 no código VBA
Veja o código:
Observe as linhas em verde.
========================================================================
Public Sub fncGetEnabled(control As IRibbonControl, ByRef enabled)
On Error GoTo trataerro

If nlogoff = False Then Exit Sub

Select Case control.Tag
Case Else
If DLookup("bloqueada", "tblpermissõesUsuários", "idfuncao = " & CLng(control.Tag) & " AND IdUsuario = " & login.id) = -1 Then
enabled = False
Else
enabled = True
End If
End Select
sair:
Exit Sub
trataerro:
Dialog.Box "Erro: " & err.Number & "\n" & err.Description, vbCritical, "Aviso"
Resume sair:
End Sub
============================
Agora abra a tblFunções e a tblPermissõesUsuários e veja que idFunção é o mesmo número para determinado formulário nas duas tabelas.

Então o código acima irá verificar na linha em verde se idFunção da tabela permissõesUsuarios é igual a tag da tabela UsysRibbons e aplicar se o controle deve ser ativo ou não.


Abraços

Obrigado amigo pela explicação, dei uma olhada nas duas tabelas e percebi a diferença entre cada IdFunção de cada usuário. Vou dar uma estudada melhor nesse assunto. Valeu pessoal.

Valeu pelo Retorno

Boa sorte!