(macro) Macro para botón en formulario Access

Páginas:

        1   2   3  4   5   6   7

Macro para un boton en formulario que cierra el formulario y abre otro poniendo el foco en el último registro que se visualizó en el primer formulario...
-----

Private Sub micomando_Click()
 On Error GoTo Err_micomando_Click
 Dim elregistro As Long
 Dim fdestino, cartero As String
 elregistro = [N_EMPLE]
 fdestino = "A-CONSULTA-EMPLEADOS-LABORAL"
 cartero = "N_emple =" & elregistro
 DoCmd.Close
 DoCmd.OpenForm fdestino, , , cartero
 Exit_micomando_Click:
 Exit Sub

 Err_micomando_Click:
   MsgBox Err.Description
   Resume Exit_micomando_Click
End Sub

(macro) Macro para botón en formulario Access