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