Obtain file location on server

[dwylie]

Ok, I have a database that will be passed around corporate and nationwide
which asks users to select pictures, which will return its respected file
address into a table. Understandably, most users have these addresses
mapped, thus a common address would be H://filelocation/filepicker.....
Problem is when you store this address into a table, other users can't
identify the whole location, and the respected file cannot open. I need the
whole address..... //corporateserver/basketball/filelocation/filepicker

I have the correct filedialog code for basic file address return.

Is there a way or code to return the full file address (i.e:
//corporateserver/bask....)???

With gratitude.

 

[Stefan Hoffmann]

hi Dwylie,

Is there a way or code to return the full file address (i.e:
//corporateserver/bask....)???

http://support.microsoft.com/?scid=kb;en-us;160529&x=5&y=13

mfG
--> stefan <--

 

[dwylie]

How would you integrate this code into VBA? I have access 2003. See the
following...

Private Sub browse1_Click()

Dim address As Office.FileDialog
Dim selection As Variant
Set address = Application.FileDialog(msoFileDialogFilePicker)
With address
.AllowMultiSelect = False
.ButtonName = "Select"
.InitialView = msoFileDialogViewDetails
.Title = "Select image files"
With .Filters
.Clear
.Add "JPEG Files", "*.jpg"
.Add "Bitmap Files", "*.bmp"
.Add "TIF Files", "*.tif"
.Add "GIF Files", "*.gif"
.Add "All Files", "*.*"
End With
.FilterIndex = 1

If .Show = True Then
For Each selection In address.SelectedItems
Me.picturelink1 = selection
Next
Else
MsgBox "No File Selected", vbOKOnly
End If
Me.Refresh

End With
End Sub

 

[Stefan Hoffmann]

hi Dwylie,

How would you integrate this code into VBA? I have access 2003. See the
following...

Extrtact the drive letter and use the example function.

mfG
--> stefan <--

 

[Klatuu]

Try the API code at this site:
http://www.mvps.org/access/api/api0003.htm