(ejercicio) Formulario de consulta en Access ~
Formulario de consulta cuyo origen del registro es la tabla EMPLEADO_PERSONAL...
Dos Sub con los eventos Form_Load() y al hace Click en el botón de comando Ver datos laborales...
Private Sub Form_Load()
Rem alcargar consulta empleado personal
Dim fdestino, cartero As String
mimodulo.elregistro = [N_EMPLE]
DoCmd.OpenForm "A-CONSULTA-EMPLEADOS", , , [N_EMPLE] > 0
DoCmd.SearchForRecord acDataForm,
"A-CONSULTA-EMPLEADOS", , "[N_EMPLE] = " & mimodulo.elregistro
End Sub
Private Sub micomando_Click()
On Error GoTo Err_micomando_Click
Dim varX As Variant
Dim fdestino, cartero, elnombre, elapellido As String
Dim elregistro As Long
mimodulo.elregistro = [N_EMPLE]
mimodulo.elnombre = [Nombre]
mimodulo.elapellido = [Apellido]
Rem comprobar si N_EMPLE existe en la tabla empleado_laboral...
varX = DLookup("[N_EMPLE]", "empleado_laboral",
"[N_EMPLE] = " & [N_EMPLE])
Rem si N_EMPLE IsNull debemos ir al formulario de altas labora...
If IsNull(varX) Then
DoCmd.Close
DoCmd.OpenForm "B-ALTAS-EMPLEADOS-LABORAL",
acNormal, "", "", acAdd, acNormal
Else
fdestino = "A-CONSULTA-EMPLEADOS-LABORAL"
cartero = "N_emple =" & mimodulo.elregistro
Rem DoCmd.RunCommand acCmdSaveRecord
DoCmd.Close
DoCmd.OpenForm fdestino, , , cartero
End If
Exit_micomando_Click:
Exit Sub
Err_micomando_Click:
MsgBox Err.Description
Resume Exit_micomando_Click
End Sub
Diseño del Formulario de consulta de datos laborales cuyo origen del registro es una consulta con EMPLEADO_PERSONAL y LABORAL...
Se realizan cálculos con campos de texto independientes con las expresiones que se ven en la imagen...
(ejercicio) Formulario de consulta en Access ~