SoloCodigo

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

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

como puedo recuperar el dato???

ya tengo la busqueda del usuaro y la clave , entonces mi pregunta es que instruccion uso para poder sacar de ese registro del campo tipo el valor que hay alli?

voy a intentarlo,

donde graba el dato una variable diferente???


mil gracias,

una pregunta si quiero mandar varios datos de un formulario a otro , hago este mismo proceso para cada dato?

gracias

la intruccion

Select tipo from TU_TABLA where usuario = txtUsuario.text and clave = txtClave.text

me dice que necesita un case, en que parte le pongo el case ahi??

si lo pongo antes de tipo me dice que en from se esperaba un fin de instruccion

una pregunta si quiero mandar varios datos de un formulario a otro , hago este mismo proceso para cada dato?

gracias

esa es una solucion de mandar todos lo parametros en una llamada a un procedimiento o tambien podrias usar algun modulo que tenga esas variables, asi podras usar esa variable desde cualquier formulario.


BYTE.

oye otra cosa, en otro proyecto tengo un formulrio de agregar productos a un inventario, pero al gregar uno sirve, pero al agregar el segundo, este sobreescribe el primero como hago...

el codigo que tengo es este

Private Sub cmdAgregar_Click()
  mensaje$ = "Introduzca un nuevo registro y pulse el botón flecha izquierda."
    reply = MsgBox(mensaje$, vbOKCancel, "Añadir Registro")
     If reply = vbOK Then
        Text1.SetFocus
        datInv1.Recordset.AddNew
End If
End Sub

Private Sub Command4_Click()
End
End Sub


gracias

oyeme puse el codigo como string y todo pero no se que debo hacer como hago para que me buscque con el comando sql?? porfavor!!!!




me guie de otro foro que encontre pero no se ocmo poner el comando sql a funcionar.porfa