Browse to file & save as URL

[Dulwich]

As a Newbie to VBA, I've just had a successful conclusion to a
protracted struggle with attempts to open a browse window that allows
one to find a file and have that file's path saved in a bound control
that is set as a hyperlink.

I started with the code in http://www.mvps.org/access/api/api0001.htm.

Whilst this dropped the path into the correctly into the control, it
would not work as a hyperlink. But with a bit more ferreting around
the NG, I came across the solution which was to add a prefix to the
path as follows:-

Me.TxtURL = "#file://" & strInputFileName & "#"

This might be useful to some of the other Newbies out there.

Now, being as ambitious as ever, I want to get the browse window to
start at a particular folder on the network. At present it opens at
'My Documents'.

Any ideas how we can get round this?

Yvonne

[Tom van Stiphout]

On Thu, 21 Jun 2007 11:43:09 -0700, Dulwich <lo******@yahoo.co.uk>
wrote:

Excellent work so far! I like your attitude.

To get the FileOpen dialog to start at a particular folder, you need
to set the InitialDir field of the OPENFILENAME type. There actually
is an example of that right on that page:
MsgBox "You selected: " & ahtCommonFileOpenSave(InitialDir:="C:\", _
Filter:=strFilter, FilterIndex:=3, Flags:=lngFlags, _
DialogTitle:="Hello! Open Me!")

-Tom.

>As a Newbie to VBA, I've just had a successful conclusion to a
protracted struggle with attempts to open a browse window that allows
one to find a file and have that file's path saved in a bound control
that is set as a hyperlink.

I started with the code in http://www.mvps.org/access/api/api0001.htm.

Whilst this dropped the path into the correctly into the control, it
would not work as a hyperlink. But with a bit more ferreting around
the NG, I came across the solution which was to add a prefix to the
path as follows:-

Me.TxtURL = "#file://" & strInputFileName & "#"

This might be useful to some of the other Newbies out there.

Now, being as ambitious as ever, I want to get the browse window to
start at a particular folder on the network. At present it opens at
'My Documents'.

Any ideas how we can get round this?

Yvonne

[Dulwich]

On 22 Jun, 02:53, Tom van Stiphout <[e-mail]:

On Thu, 21 Jun 2007 11:43:09 -0700, Dulwich <[e-mail]>
wrote:

Excellent work so far! I like your attitude.

To get the FileOpen dialog to start at a particular folder, you need
to set the InitialDir field of the OPENFILENAME type. There actually
is an example of that right on that page:
MsgBox "You selected: " & ahtCommonFileOpenSave(InitialDir:="C:\", _
Filter:=strFilter, FilterIndex:=3, Flags:=lngFlags, _
DialogTitle:="Hello! Open Me!")

-Tom.

You rode to the rescue again and got me in the right direction.

I tried modifying the section above with the full path, but that just
took me into the root of C: and no further

I then dabbled at the other potential opportunities and further down
the module I made the folloing change that worked a treat.

Dim fResult As Boolean
' Give the dialog a caption title.
If IsMissing(InitialDir) Then InitialDir = "G:\DFAT\Passports"
If IsMissing(Filter) Then Filter = ""

Many thanks

Yvonne