(macro) Botón de comando para llamar a un formulario en Access

Páginas:

        1   2   3  4   5   6   7

El siguiente botón de comando llamado altalaboral ejecuta este procemiento de evento cuando se hace click sobre él:
Se inician las variables (Public) públicas (elregistro, elnombre, elapellido con los valores introducidos en el formulario. Se cierra el formulario actual (DoCmd.Close) y se abre el formulario (DoCmd.OpenForm fdestino) de la variable fdestino
----


Private Sub altalaboral_Click()
On Error GoTo Err_altalaboral_Click
  Dim fdestino As String
  elregistro = [N_EMPLE]
  elnombre = [Nombre]
  elapellido = [Apellido]
  fdestino = "B-ALTAS-EMPLEADOS-LABORAL"
  DoCmd.Close
  DoCmd.OpenForm fdestino
Exit_altalaboral_Click:
  Exit Sub
Err_altalaboral_Click:
  MsgBox Err.Description
  Resume Exit_altalaboral_Click
End Sub

----
nota: se deben declarar variables públicas en el módulo
Public elregistro As Long
Public elnombre, elapellido As String

(macro) Botón de comando para llamar a un formulario en Access