Hola!


tengo un formulario inicial en el cual el usuario tiene que meter nombre usuario+contraseña.


Lo que quiero hacer:


Guardar esos datos en unas variables y luego teniendo en cuenta esas variables habilitar o deshabilitar unos botones, segun el usuario que sea.


¿Donde puedo guardar esas variables?


Gracias!

Hola... La puedes declara como publicas en un modulo.

Código:

' Modulo 1
Public sUsuario As String
Public sContrase As String

Pero cada vez q cargas un formulario tendrias q comprobar q usuario es para permitir darle acceso. Y si es q fuerasmuchos usuarios los q tienes q acceden a tu aplicacion, o si es q te olvidastes ingresar unusuario.

Código:

Private Sub Form_Load()
 Select Case sUsuario
 Case "Usuario1"
  cmdNuevo.Enabled = True
  cmdModificar.Enabled = True
  cmdEliminar.Enabled = True
  cmdImprimir.Enabled = True
 Case "Usuario2"
  cmdNuevo.Enabled = False
  cmdModificar.Enabled = False
  cmdEliminar.Enabled = False
  cmdImprimir.Enabled = True
 End Select
End Sub

Pero yo te recomendaria q no guardes el nombre y contraseña, sino variables de las acciones q tendran permiso. ejm:

Código:

' Modulo 1
Public bNuevo As Boolean
Public bModificar As Boolean
Public bEliminar As Boolean
Public bImprimir As Boolean

Y en el formulario de inicio de seccion asignas esos valores dependiendo el usuario.

Código:

Private Sub Command1_Click()


' Primero haces la validacion del usuario.
 ' Si es q no es un usuario permitido muestras un mensaje
 ' Y si es un usuario valido asignas valores a las variables.


 Select Case txtUsuario.Text
 Case "Usuario1"
  bNuevo = True
  bModificar = True
  bEliminar = True
  bImprimir = True
 Case "Usuario2"
  bNuevo = False
  bModificar = False
  bEliminar = False
  bImprimir = True
 End Select
End Sub

Y cuando carges el formulario, estableces esos valores a cada boton, y no importar sin son 100 usuarios, esto funcionario para todos

Código:

Private Sub Form_Load()


cmdNuevo.Enabled = bNuevo
cmdModificar.Enabled = bModificar
cmdEliminar.Enabled = bEliminar
cmdImprimir.Enabled = bImprimir


End Sub

Bueno espero q te sirva mi sugerencia , pero seria mucho mas efectivo si es q tienes una base de datos con los usuario, y cada uno de sus permisos. Asi solo cargarias el registro del usuario y estableces las valores de la variable dependiendo el campo. ejm

Código:

Private Sub Command1_Click()


' Primero haces la validacion del usuario.
 ' Si es q no es un usuario permitido muestras un mensaje
 ' Y si es un usuario valido asignas valores a las variables.


' Claro esta q los campos nuevo,modificar, eliminar eimprimir,
 'tienen q ser campos Si/No
 With rsADO
  bNuevo =.Fields("Nuevo")
  bModificar = .Fields("Modificar")
  bEliminar = .Fields("Eliminar")
  bImprimir = .Fields("Imprimir")
 End With


End Sub

Espero q te aya podido ayudar


Isaac...Edited by: Isaac

¿k si me has ayudado?, me has resuelto todas mis dudas sobre este tema. Muchas Gracias!!!


Vaya pedazo de pagina web!Vaya pedazo de gente!


Gracias Isaac!