Abrir asistente de "Insertar Hipervínculo" en ACCESS con VBA
Tengo una necesidad algo especial, pues necesito un código VBA para que abra el asistente para "insertar hipervínculo" de office al dar enfoque a un campo de un formulario. Agradezco su colaboración a este respecto.
1 respuesta
Respuesta de Jacinto Trillo Jareño
2
Oscar:Supongo que ésta pregunta es una repetición de la que te acabo de contestar, con la referencia>>
Abrir asistente "Insertar Hipervínculo" de Office en ACCESS con VBA
Mis saludos >> Jacinto
Oscar: Para completar el código que te sugería en la otra respuesta y suponiendo que tu cuadro de Texto y campo de la Tabla se llaman HiperV
Private Sub HyperV_GotFocus()
On Error GoTo HyperV_GotFocus_TratamientoErrores
DoCmd.RunCommand acCmdInsertHyperlink
DoCmd.Save , ""
HyperV_GotFocus_Salir:
On Error GoTo 0
Exit Sub
HyperV_GotFocus_TratamientoErrores:
If Err.Number = 2501 Then Exit Sub
MsgBox "Error " & Err.Number & " en Funcion.: HyperV_GotFocus de Modulo: XxxYyyZzz (" & Err.Description & ")", vbCritical + vbOKOnly, "ATENCION"
Resume HyperV_GotFocus_Salir
End SubMis saludos >> Jacinto
