Finding Images in FileName\Image

[Lumpierbritches]

I'm trying to move my images from my main folder to an image folder for the
database to store pictures of animals. I borrowed code that works great if I
put all the images in the main folder where the db is located. I would like to
move them to their own folder and I don't know where to begin.

here is the code:

Private Sub Form_Activate()
'find the path of the current database
'which is where the jpegs are stored
Set db = CurrentDb
filename = db.Name
pathname = Mid(filename, 1, Len(filename) - Len(Dir(filename)))
End Sub

_______________________

Private Sub Form_Current()
On Error GoTo Err_cmdClose_Click

'set the picture path
Me.ImageAn.Picture = pathname & Me.Breed & ".jpg"

Exit_cmdClose_Click:
Exit Sub

Err_cmdClose_Click:
If err.Number = 2220 Then 'can't find the file
Resume Next
Else
MsgBox err.Description
Resume Exit_cmdClose_Click
End If
End Sub

Any help would be greatly appreciated.

Michael

[Trevor Best]

Lumpierbritches wrote:

I'm trying to move my images from my main folder to an image folder for the
database to store pictures of animals. I borrowed code that works great if I
put all the images in the main folder where the db is located. I would like to
move them to their own folder and I don't know where to begin.

here is the code:

Private Sub Form_Activate()
'find the path of the current database
'which is where the jpegs are stored
Set db = CurrentDb
filename = db.Name
pathname = Mid(filename, 1, Len(filename) - Len(Dir(filename)))
End Sub

_______________________

Private Sub Form_Current()
On Error GoTo Err_cmdClose_Click

'set the picture path
Me.ImageAn.Picture = pathname & Me.Breed & ".jpg"

Exit_cmdClose_Click:
Exit Sub

Err_cmdClose_Click:
If err.Number = 2220 Then 'can't find the file
Resume Next
Else
MsgBox err.Description
Resume Exit_cmdClose_Click
End If
End Sub

Any help would be greatly appreciated.

Michael

Me.ImageAn.Picture = pathname & "images\" & Me.Breed & ".jpg"

--
Error reading sig - A)bort R)etry I)nfluence with large hammer

[Trevor Best]

Trevor Best wrote:

Err_cmdClose_Click:
If err.Number = 2220 Then 'can't find the file
Resume Next
Else
MsgBox err.Description
Resume Exit_cmdClose_Click
End If

A nice touch would be to create a bitmap with a red X on it, a la IE
broken pic, then set the picture to that if it doesn't exist.

--
Error reading sig - A)bort R)etry I)nfluence with large hammer

[Lumpierbritches]

Thank you for all the suggestions and the fix, I greatly appreciate it.

Michael