Passing a variable from Access to a webpage

  • Thread starter Thread starter DP
  • Start date Start date
D

DP

This will likely strike you all as crazy, but I might as well ask.

Is there any way to pass a string variable from within Access to open a
webpage with an embedded applet?

The string from Access is simple enough - it would equate to a URL with an
image, say:

http://www.unc.edu/svag/7317/7/7-7/7-1.tif

I need to get this string value into an applet parameter on webpage:

<param name="filename" value = "http://www.unc.edu/svag/7317/7/7-7/7-1.tif">

Is this at all possible?

Thank you, David Pike
 
:
Is there any way to pass a string variable from within Access to open a
webpage with an embedded applet?

The string from Access is simple enough - it would equate to a URL with an
image, say:

http://www.unc.edu/svag/7317/7/7-7/7-1.tif

I need to get this string value into an applet parameter on webpage:

<param name="filename" value = "http://www.unc.edu/svag/7317/7/7-7/7-1.tif">

Is this at all possible?

Thank you, David Pike
Click to expand...

I don't know if this is what you're looking for but these snippets of code
jump from a continuous form in Access that is a list of issued patents to a
specific page on the U.S. Patent Office site.

Private Sub cmdFollowLink_Click()
Dim strAddress As String, strAddress0 As String

strAddress0 = Me.PatentNumber

strAddress =
"http://164.195.100.11/netacgi/nph-P...&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