Problem loading picture (Need help)

[Russ via AccessMonster.com]

Having a problem trying to get this correct...
I have a folder called ContactPictures in the same path as the database.

Option Compare Database
Dim cnn As ADODB.Connection
Dim dbname As String
Dim Pic As String

Private Sub Form_AfterUpdate()
Pic = Me.txtPicFullName ' example "Pic1.jpeg" or Pic2.jpeg
Me![ImageFrame].Picture = getpath(dbname) & "\ContactPictures\Pic"
End Sub

 

[Alex Dybenko]

Try:
Me![ImageFrame].Picture = getpath(dbname) & "\ContactPictures\" & Pic

 

[Paul]

Russ

try this, a db I found on a site. It solved the similar problem I had with
images

http://www.paulwest.me.uk/accessstuff/image.zip

Paul

 

[Russ via AccessMonster.com]

Thanks everyone!

this worked..
Me![ImageFrame].Picture = getpath(dbname) & "ContactPictures\" & Pic & ""

Russ

try this, a db I found on a site. It solved the similar problem I had with
images

http://www.paulwest.me.uk/accessstuff/image.zip

Paul

Having a problem trying to get this correct...
I have a folder called ContactPictures in the same path as the database.

[quoted text clipped - 8 lines]

Me![ImageFrame].Picture = getpath(dbname) & "\ContactPictures\Pic"
End Sub