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
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


0