Intento de formulario mini dinamico en ACCESS!

[Taribo007]

Puedes tener los controles que necesites para cada tipo de usuario, y mostrar u ocultar controles en funcion del tipo de usuario que entre. Y para facilitar esta tarea, te vendrá muy bien nombrar los controles de manera adecuada, por ejemplo:

Privado:1
Interno:2
Publico:3

Supongo que habra controles comunes a los tres, estos nombralos como quieras. Para el resto, podemos ponerle el nombre que sea pero acabado con Din (de dinamico) y el numeor de cada tipo de usuario.

Ejemplo de nombre de control privado: TxtNombreDin1
Ejemplo de nombre de control interno: TxtNombreDin2
Ejemplo de nombre de control Publico: TxtNombreDin3

Luego, en algun momento (cuando hayas validadi el usuario), puedes recorrer la coleccion controls del formulario, para mostrar u ocultar controles en funcion del usuario, alago asi:

Public Sub MostrarOcultarControles(TipoUsuario As Integer)
Dim ctr As Control

For Each ctr In Me.Controls
If Mid(ctr.Name, Len(ctr.Name) - 3, 3) = "Din" Then
ctr.Visible = Right(ctr.Name, 1) = TipoUsuario
End If
Next ctr
End Sub


Un saludo