(ejercicio) Formulario de actualización en Access

Páginas:

        1   2  3   4   5

Comentarios:
Formulario de actualización de datos personales (tabla EMPLEADO_PERSONAL)
a) No debe permitir actualizar nombre ni apellido.
b) Lista desplegable para buscar un empleado.
c) Lista desplegable para mostrar ciudades (tabla ciudades) y actualizar.
c) Botón "Actualizar datos laborales" para guardar, cerrar el formulario y abrir formulario con datos laborales del empleado en cuestión. Se puede utilizar el código del procedimiento de evento de esta página ...
d) Dar formato al formulario y presentación a los campos tal y como muestra la imagen del formulario: sin botones de desplazamiento, sin selectores de registro, sin botones de ventana, etc...
e) Botón de salida del formulario...

Comentarios:
Formulario de actualización de datos laborales (tabla EMPLEADO_LABORAL) incluido grado y departamento
a) No debe permitir cambiar nombre y apellido.
b) Listas desplegables para actualizar departamento y grado
c) Botón "Ver datos personales" para cerrar el formulario y volver al formulario de datos personales.
d) Dar formato y presentación a los campos.
e) Botón de salida del formulario...

Eventos y subprocedimientos del formulario:

A tener en cuenta la optimización del formulario en página

Private Sub Form_Load()
  queempleado.Value = elregistro
  DoCmd.SearchForRecord acDataForm, "C-ACTUALIZA-EMPLEADOS", , 
     "[N_EMPLE]  =  " & elregistro
End Sub

Private Sub micomando_Click()
On Error GoTo Err_micomando_Click
   
    Dim fdestino, cartero As String
    Rem Dim elrecord As Recordset
    
    elregistro = [N_EMPLE]
    elnombre = [Nombre]
    elapellido = [Apellido]
   
    fdestino = "C-ACTUALIZA-EMPLEADOS-LABORAL"
    cartero = "N_emple =" & elregistro
    
    DoCmd.RunCommand acCmdSaveRecord
    DoCmd.Close
    DoCmd.OpenForm fdestino, , , cartero

Exit_micomando_Click:
    Exit Sub

Err_micomando_Click:
    MsgBox Err.Description
    Resume Exit_micomando_Click
End Sub

Private Sub queempleado_AfterUpdate()
  Dim elnum   As Long
  Me.FilterOn = False
  elnum = Me.queempleado.Value
  DoCmd.SearchForRecord acDataForm, "C-ACTUALIZA-EMPLEADOS", , "[N_EMPLE]  =  " & elnum
End Sub

(ejercicio) Formulario de actualización en Access