UtterAccess.com
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    
 
   
BuzyG
post Dec 6 2017, 08:42 AM
Post#1



Posts: 419
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.

CODE
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    14th December 2019 - 06:21 PM