Base Path

[FogLine]

Can anyone please help??

Public Const BASE_PATH As String = "C:\Fog Line Data\Scan Documents" '<--- I need this BASE_PATH to find this value in a table field

'I have a table field ScanLocation with the value C:\Fog Line Data\Scan Documents




Thank you for any help..

[June7]

Not sure what you need help with.

You want to find record(s) with that string in ScanLocation field? Build query.

SELECT * FROM tablename WHERE ScanLocation="C:\Fog Line Data\Scan Documents";

[FogLine]

Thank you June7 for your reply..
Here is the full code:
I have a form that will show a picture of a JPG file for each record
and the pictures are located in the "C:\Fog Line Data\Scan Documents" folder.
This code here does work like it is, But what I want it to do is for the BASE_PATH code is to find
that location "C:\Fog Line Data\Scan Documents" from a table field so if I ever had to move the
Scan Document folder to a new location I would not have to redo the code, all I would have to
do is change the location in the data table.

Public Const BASE_PATH As String = "C:\Fog Line Data\Scan Documents"

Public Function ChooseFile() As String
Dim strFilter As String
strFilter = ahtAddFilterItem(strFilter, "JPEG Files (*.jpg, *.jpeg)", "*.jpg;*.jpeg")
ChooseFile = ahtCommonFileOpenSave( _
InitialDir:=BASE_PATH, _
Filter:=strFilter, _
OpenFile:=True, _
DialogTitle:="Select Photo...", _
Flags:=ahtOFN_FILEMUSTEXIST)
End Function

[orange]

FogLine,

Seems you have what you need. Hopefully you have the details for these custom functions:
ahtAddFilterItem
ahtCommonFileOpenSave

[June7]

Possibly no code needed.

You have a table with a single record that has this base path?

You have another table that has a field with image names?

Build query that includes both tables (no JOIN clause) and use this as report RecordSource.

ControlSource of Image control:

=[Base field] & "\" & [Image field]

[FogLine]

No I don't have what I need you didn't read it all..
But what I want it to do is for the BASE_PATH code is to find
that location "C:\Fog Line Data\Scan Documents" from a table field so if I ever had to move the
Scan Document folder to a new location I would not have to redo the code, all I would have to
do is change the location in the data table.

[FogLine]

Possibly no code needed.

You have a table with a single record that has this base path?

You have another table that has a field with image names?

Build query that includes both tables (no JOIN clause) and use this as report RecordSource.

ControlSource of Image control:

=[Base field] & "\" & [Image field]

Ok but what if I move the folder "C:\Fog Line Data\Scan Documents" to a new location?
I would have to redo the BASE_PATH code..

[June7]

WAIT! Your profile shows Access 2003. Access 2003 Image control does not have ControlSource property. Have to use VBA code to dynamically display images.

Change the code to do a DLookup on table.

[FogLine]

WAIT! Your profile shows Access 2003. Access 2003 Image control does not have ControlSource property. Have to use VBA code to dynamically display images.

Change the code to do a DLookup on table.

I am using a " DBPix control " from www.ammara.com
to display the image.

[June7]

Never heard of it. But then I've never used any 3rd party controls.

Still, use DLookup.

[FogLine]

Never heard of it. But then I've never used any 3rd party controls.

Still, use DLookup.

Well the main thing I am trying to do is:

Public Const BASE_PATH As String = "C:\Fog Line Data\Scan Documents" '<-- HERE where I hard code the location
Is there any code that would look in a table field for that location??

[June7]

Apparently cannot set constant with DLookup (just tried).

So instead of referencing a constant, the code would do the DLookup.

InitialDir:=DLookup("[Base field]", "table name"), _

[FogLine]

Than you for all your help, I have it working now....

Public Function ChooseFile() As String
Dim strFilter As String
Dim BASE_PATH As String
BASE_PATH = Me.Text6

strFilter = ahtAddFilterItem(strFilter, "JPEG Files (*.jpg, *.jpeg)", "*.jpg;*.jpeg")
ChooseFile = ahtCommonFileOpenSave( _
InitialDir:=BASE_PATH, _
Filter:=strFilter, _
OpenFile:=True, _
DialogTitle:="Select Photo...", _
Flags:=ahtOFN_FILEMUSTEXIST)
End Function