Clip From Web To & From Access

  • Thread starter Thread starter IC_Clearly
  • Start date Start date
I

IC_Clearly

I have an Access program (2K) that I want to be able to clip information
from a particular web site and paste into a form in Access. I also want to
do the reverse. Is there a utility or program that does this??

Thanks.

IC
 
-----Original Message-----
I have an Access program (2K) that I want to be able to clip information
from a particular web site and paste into a form in Access. I also want to
do the reverse. Is there a utility or program that does this??

Thanks.

IC
Click to expand...
I don't know if this is the direction you're looking for
but this code behind a Command Button on a form that
contains a text field PatentNumber (text in table) brings
up a specific patent from the U.S. Patent web site. The
name of the Command Button is cmdFollowLink

Private Sub cmdFollowLink_Click()
Dim strAddress As String, strAddress0 As String
strAddress0 = Me.PatentNumber
strAddress = "http://164.195.100.11/netacgi/nph-Parser?
Sect1=PTO1&Sect2=HITOFF&d=PALL&p=1&u=/netahtml/srchnum.htm&
r=1&f=G&l=50&s1='" & strAddress0 & "' .WKU.&OS=PN/" &
strAddress0 & "&RS=PN/" & strAddress0

CreateHyperlink Me!cmdFollowLink, strAddress
End Sub

Sub CreateHyperlink(ctlSelected As Control, strAddress As
String)
Dim hlk As Hyperlink
Select Case ctlSelected.ControlType
Case acLabel, acImage, acCommandButton
Set hlk = ctlSelected.Hyperlink
With hlk
If Not IsMissing(strAddress) Then
.Address = strAddress
Else
.Address = ""

End If
.Follow
.Address = ""
End With
Case Else
MsgBox "The control '" & ctlSelected.Name & "'
does not support hyperlinks."
End Select

DoCmd.Close acForm, ("frmSelectWebPatent"), acSaveNo
End Sub

Roxie Aho
roxiea at usinternet.com
 
Back
Top