Bom dia
De uma forma simples o pretendido será.
Ter uma tabela como a abaixo representada.
![Regras através de uma tabela.... Tabela11](https://i.servimg.com/u/f41/20/52/11/17/tabela11.jpg)
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?
De uma forma simples o pretendido será.
Ter uma tabela como a abaixo representada.
![Regras através de uma tabela.... Tabela11](https://i.servimg.com/u/f41/20/52/11/17/tabela11.jpg)
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?