De la ayuda de Access 2000
Código:
Ejemplo de la propiedad Hyperlink
El procedimiento CrearHipervínculo del ejemplo siguiente establece las
propiedades de hipervínculo para un botón de comando, una etiqueta o un
control de imagen a los valores de dirección y subdirección pasados al
procedimiento. El valor de la dirección es un argumento opcional, porque un
hipervínculo a un objeto de la base de datos actual utiliza sólo el valor
de la subdirección. Para probar este ejemplo, cree un formulario
con dos controles de cuadro de texto (txtDirección y txtSubDirección)
y un botón de comando (cmdSeguirVínculo) y péguelos
en la sección Declaraciones del módulo del formulario:
Private Sub cmdSeguirVínculo_Click()
CrearHipervínculo Me!cmdSeguirVínculo, Me!txtSubDirección, _
Me!txtDirección
End Sub
Sub CrearHipervínculo(ctlSeleccionado As Control, _
cadSubDirección As String, Optional cadDirección As String)
Dim hlk As Hyperlink
Select Case ctlSeleccionado.ControlType
Case acLabel, acImage, acCommandButton
Set hlk = ctlSeleccionado.Hyperlink
With hlk
If Not IsMissing(cadDirección) Then
.Address = cadDirección
Else
.Address = ""
End If
.SubAddress = cadSubDirección
.Follow
.Address = ""
.SubAddress = ""
End With
Case Else
MsgBox "El control '" & ctlSeleccionado.Name _
& "' no admite hipervínculos."
End Select
End Sub
Creo que modificando este ejemplo puedes conseguirlo, la forma de obtener la dirección guardada en una tabla se puede hacer de muchas formas, por ejemplo sutituyendo el cuadro de texto que te proponen
txtDirección por un Cuadro combinado que muestre las direcciones guardadas en una tabla.
Espero que te sirva.
(La solución de Taribo007
es más simple y elegante, la escribio mientras yo escribia la mia... hay que ser más rápido
)
Quim