CREAR NAVEGADOR WEB CON ACCESS

Navegador Web desde Access

Pues bien como ya muchos sabemos Access también tiene con control Web Browser para visualizar paginas web, aunque este control carezca de muchas funcionalidades a las que estamos acostumbrados, cierto es también que nos aporta cierta factibilidad de uso desde un Sistema desarrollado en Access.

Veamos un Ejemplo:

Vamos a desarrollar un visor o navegador web en un formulario de Access.

Estos son los códigos de los controles:

Option Compare Database
Option Explicit

'Variables de Accion
Dim urlANTERIOR As String
Dim urlPOSTERIOR As String
Dim urlACTUAL As String


Private Sub CommandANTERIOR_Click()
    urlPOSTERIOR = urlACTUAL
    Me.TextURL = urlANTERIOR
    Me.WebBrowserPERSONAL.Object.Navigate urlANTERIOR
    Me.WebBrowserPERSONAL.Requery
    Me.CommandPOSTERIOR.Enabled = True
End Sub

Private Sub CommandIR_URL_Click()
    urlANTERIOR = urlACTUAL
    urlACTUAL = Me.TextURL
    Me.WebBrowserPERSONAL.Object.Navigate urlACTUAL
    Me.WebBrowserPERSONAL.Requery
    Me.CommandANTERIOR.Enabled = True
End Sub

Private Sub CommandPOSTERIOR_Click()
    urlANTERIOR = Me.TextURL
    Me.TextURL = urlPOSTERIOR
    Me.WebBrowserPERSONAL.Object.Navigate urlPOSTERIOR
    Me.WebBrowserPERSONAL.Requery
End Sub


Private Sub Form_Open(Cancel As Integer)
    Dim URL As String
    URL = "www.google.com"
    Me.TextURL = URL
    WebBrowserPERSONAL.Object.Navigate URL
    urlACTUAL = URL
End Sub

Aqui el Video de la Explicacion: