Olá gostaria de saber se é possível executar código vba de uma tabela.
Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("SELECT ListaTabelas.Código, [Tipo] & '!' & [Tabela] & '!' & [Campo] AS VarCampos, ListaTabelas.Tipo, ListaTabelas.Tabela, ListaTabelas.Campo, ListaTabelas.Bloqueio1, ListaTabelas.Bloqueio2, ListaTabelas.Bloqueio3FROM ListaTabelas WHERE (((ListaTabelas.Tabela)='Administradora') AND ((ListaTabelas.Bloqueio1)=False) AND ((ListaTabelas.Bloqueio2)=False) AND ((ListaTabelas.Bloqueio3)=False));")
rs.MoveFirst
For i = 1 To rs.RecordCount
rs("VarCampos").Visible = True
'Forms!Administradora!ADM_Nome.visible = true (este seria o exemplo da escrita)
rs.MoveNext
Next
'A ideia aqui é controlar os campos visiveis de um formuolario pela consulta
'se alguem tiver uma ideia melhor que possa me ajudar
Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("SELECT ListaTabelas.Código, [Tipo] & '!' & [Tabela] & '!' & [Campo] AS VarCampos, ListaTabelas.Tipo, ListaTabelas.Tabela, ListaTabelas.Campo, ListaTabelas.Bloqueio1, ListaTabelas.Bloqueio2, ListaTabelas.Bloqueio3FROM ListaTabelas WHERE (((ListaTabelas.Tabela)='Administradora') AND ((ListaTabelas.Bloqueio1)=False) AND ((ListaTabelas.Bloqueio2)=False) AND ((ListaTabelas.Bloqueio3)=False));")
rs.MoveFirst
For i = 1 To rs.RecordCount
rs("VarCampos").Visible = True
'Forms!Administradora!ADM_Nome.visible = true (este seria o exemplo da escrita)
rs.MoveNext
Next
'A ideia aqui é controlar os campos visiveis de um formuolario pela consulta
'se alguem tiver uma ideia melhor que possa me ajudar