VBA code to locate current directory of MDB file and...

  • Thread starter Thread starter tasuki
  • Start date Start date
T

tasuki

Hi,

I'm not very good with VBA at all. Can someone help me
with this problem. I have a folder like this:

Database [Folder]
->DB.MDB
->Pictures [Folder]
--->PIC1.JPG
--->PIC2.JPG

The thing is the Database folder gets moved around a lot
for viewing and editing purposes. Right now the code
looks something like this to link images to the forms.

**code begin**
Private Sub Form_Current()
Me!Image44.Picture = "M:\Database\Pic\blank.jpg"
If Me![PicID] <> 0 Then
Me!Image44.Picture = "M:\Database\Pic\" & Me!
[PicID]
End If
End Sub
**code end**

[PicID] is the name of the file, Image44 is the control
box where the image goes. The problem is, I want the VB
code to automatically detect its current location (if
possible) and update it accordingly. Right now the
location is static... but I want it to change whenever it
gets moved.

IE. Moving to C:\Desktop\ --> changes link to
C:\Desktop\Database\Pic\

Can this be done? And if so, can anyone please help me?

Thanks!

-T
 
tasuki said:
Hi,

I'm not very good with VBA at all. Can someone help me
with this problem. I have a folder like this:

Database [Folder]
->DB.MDB
->Pictures [Folder]
--->PIC1.JPG
--->PIC2.JPG

The thing is the Database folder gets moved around a lot
for viewing and editing purposes. Right now the code
looks something like this to link images to the forms.

**code begin**
Private Sub Form_Current()
Me!Image44.Picture = "M:\Database\Pic\blank.jpg"
If Me![PicID] <> 0 Then
Me!Image44.Picture = "M:\Database\Pic\" & Me!
[PicID]
End If
End Sub
**code end**

[PicID] is the name of the file, Image44 is the control
box where the image goes. The problem is, I want the VB
code to automatically detect its current location (if
possible) and update it accordingly. Right now the
location is static... but I want it to change whenever it
gets moved.

IE. Moving to C:\Desktop\ --> changes link to
C:\Desktop\Database\Pic\

Can this be done? And if so, can anyone please help me?
Click to expand...

The following returns the folder path of the currently running Access file.

Left(CurrentDB.Name, Len(CurrentDB.Name)-Len(Dir(CurrentDB.Name))-1)
 
Thanks Rick.

Code works perfectly. 4 ****. :)

-T
-----Original Message-----
tasuki said:
Hi,

I'm not very good with VBA at all. Can someone help me
with this problem. I have a folder like this:

Database [Folder]
->DB.MDB
->Pictures [Folder]
--->PIC1.JPG
--->PIC2.JPG

The thing is the Database folder gets moved around a lot
for viewing and editing purposes. Right now the code
looks something like this to link images to the forms.

**code begin**
Private Sub Form_Current()
Me!Image44.Picture = "M:\Database\Pic\blank.jpg"
If Me![PicID] <> 0 Then
Me!Image44.Picture = "M:\Database\Pic\" & Me!
[PicID]
End If
End Sub
**code end**

[PicID] is the name of the file, Image44 is the control
box where the image goes. The problem is, I want the VB
code to automatically detect its current location (if
possible) and update it accordingly. Right now the
location is static... but I want it to change whenever it
gets moved.

IE. Moving to C:\Desktop\ --> changes link to
C:\Desktop\Database\Pic\

Can this be done? And if so, can anyone please help me?
Click to expand...

The following returns the folder path of the currently running Access file.

Left(CurrentDB.Name, Len(CurrentDB.Name)-Len(Dir (CurrentDB.Name))-1)


.
Click to expand...
 
If using Access 2000 or above, CurrentProject.Path works
too.


Chris Nebinger

-----Original Message-----
Thanks Rick.

Code works perfectly. 4 ****. :)

-T
-----Original Message-----
tasuki said:
Hi,

I'm not very good with VBA at all. Can someone help me
with this problem. I have a folder like this:

Database [Folder]
->DB.MDB
->Pictures [Folder]
--->PIC1.JPG
--->PIC2.JPG

The thing is the Database folder gets moved around a lot
for viewing and editing purposes. Right now the code
looks something like this to link images to the forms.

**code begin**
Private Sub Form_Current()
Me!Image44.Picture = "M:\Database\Pic\blank.jpg"
If Me![PicID] <> 0 Then
Me!Image44.Picture = "M:\Database\Pic\" & Me!
[PicID]
End If
End Sub
**code end**

[PicID] is the name of the file, Image44 is the control
box where the image goes. The problem is, I want the VB
code to automatically detect its current location (if
possible) and update it accordingly. Right now the
location is static... but I want it to change whenever it
gets moved.

IE. Moving to C:\Desktop\ --> changes link to
C:\Desktop\Database\Pic\

Can this be done? And if so, can anyone please help
Click to expand...
me?

The following returns the folder path of the currently running Access file.

Left(CurrentDB.Name, Len(CurrentDB.Name)-Len(Dir (CurrentDB.Name))-1)


.
Click to expand...
.
Click to expand...
 
Back
Top