Wenas
,
tengo una BD en la cual tengo las siguientes tablas:
· Datos_PJ: Nombre_PJ, Contraseña.
· Equipos: Nombre_Equipo, Nombre_PJ (Relacionada con la tabla Datos_PJ).
· Jugadores: Nombre_Jugador, Ficha, Nombre_Equipo (Relacionada con la tabla Equipos).
La aplicación que estoy realizando hace lo siguiente:
En un formulario hay dos textbox en los que se introduce el usuario y la contraseña (Tabla Datos_PJ). Al encontrarlo en la BD, se abriría otro formulario, en el que aparecería en un label o textbox el Nombre_Equipo y en un listbox (Nombre_Jugador, Ficha). Pues bien, lo primero, es decir, el de validar el usuario, lo consigo, pero... no se como obtener el Nombre_Equipo que está relacionado con el usuario, y por lo tanto, tampoco puedo encontrar los jugadores, ya que está relacionado con el equipo.
El código que he utilizado es el siguiente:
--------------------------------------------------------------------------
Dim criterio_usuario_clave As Variant
Dim criterio_usuario As Variant
Dim criterio_equipo As Variant
Private Sub cmdok_Click()
If txtusuario.Text <> "" And txtclave.Text <> "" Then
criterio_usuario_clave = "Nombre_PJ ='" & txtusuario.Text & _
"' and Contraseña ='" & txtclave.Text & "' "
usuario = txtusuario.Text
bdusuario.Recordset.FindFirst criterio_usuario_clave
If bdusuario.Recordset.NoMatch = False Then 'ENCONTRAR USUARIO
criterio_usuario = "Nombre_PJ ='" & usuario & "' "
bdequipo.Recordset.FindFirst criterio_usuario1
If bdequipo.Recordset.NoMatch = False Then 'ENCONTRAR EQUIPO
AQUI NO SE QUE HACER!!
frmdatos.Show
Unload frmprincipal
Else
MsgBox "EL Usuario o su Contraseña no son validas"
End If
Else
MsgBox "Tienes que rellenar las casillas de Usuario y Contraseña"
txtusuario.Text = ""
txtclave.Text = ""
End If
End Sub
--------------------------------------------------------------------------
No encuentro manera...
Sal2...