Programación General > Bases de Datos

 Pasar Un Dato De Una Base De Datos Accesado En Un

(1/4) > >>

Soul_Keeper:
AYUDA!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

yo necesito ayuda por favor, como puedo pasar un dato que esta en una base de datos accesadas en una base de datos en u n formulario anterior , pasarlo a l siguiente... me explico:

1er formulario...
   pide un usuario y una clave, la busca en la base de datos, compara y da acceso..

2do
   formulario, menu principal, los botonos aparecen de acuerdo a los permisos del usuario,

pregunta:

   como paso el dato de permisos del usuario encontrado en el primer formulario para que en el segundo formulario se activen ciertos botones??

gracias

aqui va el codio del 1er formulario:


Dim flagcierre As Boolean

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If flagcierre = False Then
Cancel = 1
End If
End Sub

Private Sub miboton_Click()
flagcierre = True
End
End Sub

Private Sub Continuar_Click()
  SearchStr$ = Text1.Text
  datEmp1.Recordset.Index = "Usuario"
  datEmp1.Recordset.Seek "=", SearchStr$
 
   If datEmp1.Recordset.NoMatch Then
        MsgBox ("Usuario Errado"), , "Error de Nombre de usuario"
    End If
   
  SearchStr2$ = Text2.Text
  datEmp1.Recordset.Index = "Clave"
  datEmp1.Recordset.Seek "=", SearchStr2$
 
    If datEmp1.Recordset.NoMatch Then
        MsgBox ("Clave Errada"), , "Error de clave de usuario"
    End If
    MsgBox ("Bienvenido"), , "Bienvenido"
    Load Form2
    Form2.Show
    Form1.Hide
End Sub

Private Sub Salir_Click()
End
End Sub

Epa:
Buenas

Puedes hacer una funcion publica en el segundo formularios a la cual le pasas como parametro el nivel de acceso, y segun este habilitar o desabilitar elementos.

Por ejemplo

En el form2

--- Código: Text --- Public Sub SetAccesLevel(ByVal Level as byte)  Select case Level    Case 0      'Activar o desactivar    Case 1      'Activar o desactivar   '...  End SelectEnd Sub  
En el 1


--- Código: Text ---   Form2.Show  SetAccesLevel(Level) 'recuperas el dato y lo pones en level  Unload Me  
Espero te sirva

Saludos  :hola:

Soul_Keeper:
gracias, como esogo la columna para ponerle el dato, es decir tengo las comlumnas de
id empleado |  nombre | usuario | clave | tipo

donde tipo es de 0-2

0= administrador
1= cajero
2= vendedor

tonces al buscar y comprobar el nombre del usuario y clave, cpomo hago para escoger de ese mismo registro el dato que esta en columna?

gracias

Soul_Keeper:
que pongo en vez de level? com le debo agregar el valor?

Soul_Keeper:
como puedo recuperar el dato???

Navegación

[0] Índice de Mensajes

[#] Página Siguiente