Access - Referencia de control subform a control form

 
Vista:

Referencia de control subform a control form

Publicado por JORGEFL (38 intervenciones) el 09/01/2010 15:14:44
Estoy haciendo un reloj checador en donde tengo en la talba llamada ALTA EMPLEADOS con campos idEmpleado, nombre, usuario y contraseña en la que capture los datos correspondientes y con la que hice un formulario, otra tabla con la que hice un subformulario tambien tiene usuario y contraseña (en donde el empleado debe ingresar el usuario que debe coincidir con los datos previamente capturados en la tabla ALTA EMPLEADOS). Mi problema es, En VBA no logro hacer concidir estos datos con el siguiente código:

Campo usuario:
If Me![USUARIO].Value = [Form_FRM ALTA EMPLEADOS CMRPSC]!USUARIO Then
CONTRASEÑA.SetFocus
Else
nousuario = MsgBox("USUARIO NO ACEPTADO", vbOKOnly, "USUARIO ERRONEO")
[Id EMPLEADO].SetFocus
USUARIO = ""
End If

Campo contraseña:
If CONTRASEÑA.Value = [Form_FRM ALTA EMPLEADOS CMRPSC]!CONTRASEÑA Then
ENTRADA_HORA = Time
SITUACION.SetFocus
Else
nousuario = MsgBox("USUARIO O CONTRASEÑA NO ACEPTADA", vbOKOnly, "COORRIJA DATOS")
[Id EMPLEADO].SetFocus
USUARIO = ""
CONTRASEÑA = ""
End If

DESEO AYUDA...GRACIAS
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Referencia de control subform a control form

Publicado por José (55 intervenciones) el 14/01/2010 02:37:46
Hola,

No estoy muy familiarizado con esto pero a ver si te puedo aclarar.
Supongo que Me se refiere a tu subformulario y que está en el evento despues de actualizar.

Campo usuario:
If Me![USUARIO].Value = [Form_FRM ALTA EMPLEADOS CMRPSC]!USUARIO Then

Y reemplazaría esta linea por la siguiente.

If Me![USUARIO].Value = Parent![USUARIO] Then

CONTRASEÑA.SetFocus
Else
nousuario = MsgBox("USUARIO NO ACEPTADO", vbOKOnly, "USUARIO ERRONEO")
[Id EMPLEADO].SetFocus
USUARIO = ""
End If

Campo contraseña:

If CONTRASEÑA.Value = [Form_FRM ALTA EMPLEADOS CMRPSC]!CONTRASEÑA Then

Igualmente yo reemplazaría esta linea por la siguiente

If Me![CONTRASEÑA].Value = Parent![CONTRASEÑA] Then

ENTRADA_HORA = Time
SITUACION.SetFocus
Else
nousuario = MsgBox("USUARIO O CONTRASEÑA NO ACEPTADA", vbOKOnly, "COORRIJA DATOS")
[Id EMPLEADO].SetFocus
USUARIO = ""
CONTRASEÑA = ""
End If

Bien hasta aquí llego. espero no haberme enroyado demasiado

Un saludo

José
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Referencia de control subform a control form

Publicado por JORGEFL (9 intervenciones) el 05/06/2010 08:09:32
Perdón por la descortesía, me ausente un poco de LWP, sin embargo te agradesco la atención que has puesto en mi pregunta, la voy a probar y te cuento gracias.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar