Abrir Internet Explorer

[mauro_bernal_rios]

Este es otra consulta atípica.

1-Quisiera crear un acceso rápido como un botón en un formulario que me abra el internet explorer en una página determinada de internet (En este caso sería lanzar un sistema en una intranet).

2-¿Y es posible agregar este acceso en una tabla?
3-Y si lo anterior se puede,¿Se puede agregar este acceso directamente en el resultado de una consulta?


Desde ya muchas gracias...

[quimfv]

Tendrias que decirnos con que vas a crear el formulario donde pretendes poner ese boton.

Si puedes guardar direcciones http en un campo de una base de datos y recuperarlas con una consulta (yo lo haria con un campo con formato texto), luego dependerá de ti hacer que el resultado de la consulta sea considerado por la rutina que tengas detras del boton. Pero no te podemos ayudar si no nos dices que entorno de trabajo utilizas.

Quim

[mauro_bernal_rios]

Estoy trabajando con Microsoft Access 2003 y por supuesto vba for access.
Quisiera crear en un formulario de access un botón que me permite abrir un internet explorer con una ruta determinada.

[Taribo007]

Una opcion:

Application.FollowHyperlink "http://" & Ruta, , True

Ruta seria algo del tipo: "www.google.es"

Un saludo

[quimfv]

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