Allback'in eklediği örnekteki butonun tıklandığında olayındaki kodu aşağıdaki ile değiştirerek il ve sokak olarak kullanabilirsiniz.

Dim appIE As Object

Dim sURL As String



Set appIE = CreateObject("InternetExplorer.Application")



sURL = "https://www.google.com/maps/?q= " & Me.il & "+" & Me.sokak



With appIE

    .Navigate sURL

    .Visible = True

End With



Set appIE = Nothing