Linking a picture to a form record from network folder

[randle]

Hi


I have a form which shows individual records for users and I want to link photos for each record from a network folder rather than embedding them in the database as good practice suggests.


I've been using the database expample from Displaying Images in a Form | Database Solutions for Microsoft Access | databasedev.co.uk as a guide and have got it doing all I want other than actually displaying the picture in the picture control.


Form name: tblPerson
Picture path text field: txtImageName
Image Control: ImageFrame
Command button: cmdAddImage
Command button: cmdDeleteImage

The Event Procedure is assigned to the On Click event and looks like: 

Private Sub cmdAddImage_Click()
On Error GoTo cmdAddImage_Err
Dim strFilter As String
Dim lngflags As Long
Dim varFileName As Variant

strFilter = "All Files (*.*)" & vbNullChar & "*.*" _
& vbNullChar & "All Files (*.*)" & vbNullChar & "*.*"

lngflags = tscFNPathMustExist Or tscFNFileMustExist _
Or tscFNHideReadOnly

varFileName = tsGetFileFromUser( _
fOpenFile:=True, _
strFilter:=strFilter, _
rlngflags:=lngflags, _
strDialogTitle:="Please choose a file...")

If IsNull(varFileName) Then
Else
Me![txtImageName] = varFileName
Forms![tblPerson].Form.Requery
End If

cmdAddImage_End:
On Error GoTo 0
Exit Sub

cmdAddImage_Err:
Beep
MsgBox Err.Description, , "Error: " & Err.Number _
& " in file"

Resume cmdAddImage_End
End Sub

Function setImagePath()
Dim strImagePath As String
On Error GoTo PictureNotAvailable
strImagePath = Me.txtImageName
Me.txtImageName.Locked = True
Me.txtImageName.Enabled = False
Me.ImageFrame.Picture = strImagePath
Exit Function
PictureNotAvailable:
strImagePath = "C:\Windows\Wind.bmp"
Me.ImageFrame.Picture = strImagePath
End Function

Private Sub cmdDeleteImage_Click()
Me.txtImageName.Enabled = True
Me.txtImageName.SetFocus
Me.txtImageName.Locked = False
Me.txtImageName.Text = ""
Me.txtImageName.SetFocus
Forms![tblPerson].Form.Requery
Me.txtImageName.Locked = True
Me.txtImageName.Enabled = False
End Sub

Private Sub txtImageName_AfterUpdate()
setImagePath
Forms![tblPerson].Form.Requery
End Sub

The image path is added to the picture path text field as expected but it's just the picture that isn't being displayed regardless of the requery at the end.


I'm a bit stuck here so would appreciate any help

[meratigoerr]

In the code above I see your function setImagePath(). This is what sets your picture to the path that you're getting in the path field. I don't see anywhere that you're actually calling this function before the requery? The 'End Sub' right before it would suggest that this a function unrelated to your code for cmdAddImage_Click() (Someone please correct me if I misreading this code, I've done that before.....)

[June7]

What version of Access? Access 2007 introduced ControlSource property to Image control. This means no code required for dynamic display of images.

[randle]

@ meratigoerr: I've simply cut this code from the sample database from the link above and changed the field names accordingly. I thought this function is being called as there's a requery right at the end!! Is this not doing what you say it should be?

@June7: It's Access 2010. I've been looking at an alternative way to how I previously added pictures (as an OLE object) and this method was all I could find. Can you elaborate on the ControlSource property to Image control please?

Thanks

[randle]

Actually forget that....I've just realised what you mean. I changed the Image frame control source to be the txtImageName field and it appears to have added the picture!!

Super job thanks

[randle]

I would give you a start but doesn't appear to show one anywhere on the posts sorry