X   Site Message
(Message will auto close in 2 seconds)

Welcome to UtterAccess! Please ( Login   or   Register )

Custom Search
> Copy The Current Internet Explorer URL To A Field, Any Versions    
post Dec 6 2017, 08:42 AM

Posts: 421
Joined: 20-September 12
From: Cornwall UK

Hello again folks. I'm hoping this one is straight forward.

I have internet Explorer 11 open and simply need to copy the current URL from the address bar, into a field, [DiscLink], on the current form. The Microsoft Internet controls Library is loaded.

Presently this is what I have, alas it does not work.

Private Sub btnGetURL_Click()

  Dim IE As SHDocVw.InternetExplorer
  Dim StrURL As String

  StrURL = IE.LocationURL
  Me![DiscLink] = StrURL

End Sub
Go to the top of the page

Posts in this topic

Custom Search

RSSSearch   Top   Lo-Fi    18th January 2020 - 06:11 AM