Regras através de uma tabela....

Bom dia

De uma forma simples o pretendido será.
Ter uma tabela como a abaixo representada.




Depois através de algo similar ao procv, ele irá atribuir as regras.

Dim Formul is string
Dim Objeto is string
Dim Regra is string
Dim Estado is string

Aplica o procv à tabela ao objeto txt_487 e recolhe os seguintes dados
Formul = frm_456
Objeto = txt_487
Regra = Visible
Estado = True

Ficaria totalmente dinâmico.

IF txt_487 = "True" then
Formul.Objeto.Regra = Estado
else
Formul.Objeto.Regra = False
End If

Assim de uma forma simples, seria possível atribuir regras a todos os objetos presentes nos formulários.
Isto é possível em termos de VBA de forma simples?

Olá Nelio,

Sim, é possível criar regras em tabelas e aplicá-las via VBA.

Geralmente, esse tipo de regra se aplica muito bem na questão do perfil do usuário do sistema, habilitar/desabilitar acessos às funcionalidade (formulários/consultas e etc.), conforme abaixo:



Mas se você pretende criar regras em nível de controles (textbox, combobox, command button e etc.) dos formulários, pode ser uma rotina desnecessária, pois na na maioria dos sistemas comerciais existem rotinas para habilitar/desabilitar determinadas funcionalidades (cadastros em geral/rotinas de calculo/impressão de relatórios/exportação de dados e etc.) do sistema.

Já desenvolvi sistemas com regras bem minuciosas, a ponto de habilitar/desabilitar determinados controles de um formulário, porém, me deparei com um problema, onde 02 usuário possuíam o mesmo perfil de utilização mas diferentes acesso aos controles de determinados formulários. Ou seja, tive que criar um outro perfil para o usuário por causa desses detalhes.

É isso

Espero ter ajudado.

Att,

Alexandre Fim