print picture on form 1

[ecalbert]

I have pictures all saved as teh filename the same as my id in a database.
Is there anyway I can show them on my access form when I browse the record?

 

[THWatson]

ecalbert
Take a look at the Northwind sample database that comes with Access, and see how it was done there.

Tom

 

[ZmrAbdulla]

If you have stored images extension too then you can use the code below on current event of the form. You can't use it in a continues form.

Private Sub Form_Current()
   [COLOR=green] 'dim variables[/color]
    Dim folderpath, fullpath, ImageName

[COLOR=green]    'find application full path[/color]
    fullpath = CurrentProject.FullName

    [COLOR=green]'find folder path[/color]
    folderpath = Left(fullpath, InStrRev(fullpath, "\") - 1)
    
   [COLOR=green] 'set image name with extension[/color]
    ImageName = Me.txtImageName.Value
    
    [COLOR=green]'capture new record error[/color]
    If Me.NewRecord Then
        Exit Sub
    Else
       [COLOR=green] 'set picture to the image[/color]
        Me.Image6.Picture = folderpath & "\" & ImageName
    End If
End Sub

________________________________________________________
Zameer Abdulla
Help to find Missing people
Do not cut down the tree that gives you shade.

 

[PHV]

Zameer, why not simply this ?
folderpath = CurrentProject.Path

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[ecalbert]

well waht I really want to do is look at teh id of the entry and check the file pictures -- and if that id.jpg exists in the picture directory then I want to display it.
Which method do you suggest?

 

[PHV]

Have a look at the Dir function.

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[ZmrAbdulla]

PHV, thanks.. I totally forgot it.

________________________________________________________
Zameer Abdulla
Help to find Missing people
Do not cut down the tree that gives you shade.

 

[ZmrAbdulla]

sot to change it like

Private Sub Form_Current()
   [COLOR=green] 'dim variables[/color]
    Dim folderpath, ImageName
    
   [COLOR=green] 'find folder path[/color]
    folderpath = CurrentProject.Path
    
    [COLOR=green]'set image name with extension[/color]
    ImageName = Me.txtImageName.Value
    [COLOR=green]
    'capture new record error
[/color]    If Me.NewRecord Then
        Exit Sub
    Else
       [COLOR=green] 'set picture to the image[/color]
        If Dir(folderpath & "\" & ImageName) = ImageName Then
        Me.Image6.Picture = folderpath & "\" & ImageName
        Else
        [COLOR=green]'set a nopicture image[/color]
        Me.Image6.Picture = folderpath & "\" & "NoPicture.jpg"
        End If
    End If
End Sub

________________________________________________________
Zameer Abdulla
Help to find Missing people
Do not cut down the tree that gives you shade.

 

[ecalbert]

hi thaks for your help -- I was away so didn't work on this for a while...
ZmrAbdullah -- where exactly do I put this code?
also how can I set the picture name to be from the table?
I have a filed in the table called id and hte picture name is always the id adn ".jpg"

Thanks for your help.

 

[ZmrAbdulla]

It is obvious as shown in the beginnig of the code

Private Sub Form_Current()

________________________________________________________
Zameer Abdulla
Help to find Missing people
Seek counsel of him who makes you weep, and not of him who makes you laugh.

 

[ecalbert]

thanks -- and how would I pull out the id from the table.
I appreciate your help - I don't know access very well.

 

[ZmrAbdulla]

You will have a textbox on the form called "ID"

ImageName = Me.txtImageName.Value

will be changed to

ImageName = Me.ID.Value

________________________________________________________
Zameer Abdulla
Help to find Missing people
Seek counsel of him who makes you weep, and not of him who makes you laugh.

 

[ecalbert]

thanks so much -- that worked!

Anyway I can set the size of Image6 to be whatever the size of the picture is vs. the size of the original Image6?

 

[ZmrAbdulla]

Look for "SizeMode Property" in the VBA help file.

________________________________________________________
Zameer Abdulla
Help to find Missing people
Seek counsel of him who makes you weep, and not of him who makes you laugh.