SchreuderSMC
Gebruiker
- Lid geworden
- 13 mrt 2014
- Berichten
- 31
Beste ,
Ik heb een form in access waarin het field BESTELNUMMER voorkomt. In een folder op mijn pc staat een map met allerlei foto's die corresponderen met die bestelnummers. Bijvoorbeeld:
Bestelnummer D-dier-s00 heeft ook een afbeelding op de pc staan genaamd D-dier-s00.jpg
Nu heb ik dit geschreven, maar het werkt compleet niet - ik kom er niet uit..
Private Sub Label343_Click()
On Error GoTo ProcError
Call Shell("C:\Program Files (x86)\Microsoft Office\Office14\OIS.EXE " & "F:\A DOCUMENTEN\WEBSITE\WEBSITE PLAATJES\POSTZEGELPAKKETTEN - SCANS" + Me.[Bestelnummer] + ".JPG")
ExitProc:
Exit Sub
ProcError:
Select Case Err.Number
Case 490
MsgBox "No Pictures Available"
Case Else
MsgBox Err.Number & ": " & Err.Description, vbCritical, _
"Error in cmdOK_Click Event Procedure..."
End Select
Resume ExitProc
End Sub
Ik moet er bij vertellen dat dit een stukje code is die ik gewoon geplakt en bewerkt heb uit een andere thread op een ander forum. Ikzelf kan wel redelijk met access werken, maar dit soort code zegt mij vrij weinig.
Ik heb een form in access waarin het field BESTELNUMMER voorkomt. In een folder op mijn pc staat een map met allerlei foto's die corresponderen met die bestelnummers. Bijvoorbeeld:
Bestelnummer D-dier-s00 heeft ook een afbeelding op de pc staan genaamd D-dier-s00.jpg
Nu heb ik dit geschreven, maar het werkt compleet niet - ik kom er niet uit..
Private Sub Label343_Click()
On Error GoTo ProcError
Call Shell("C:\Program Files (x86)\Microsoft Office\Office14\OIS.EXE " & "F:\A DOCUMENTEN\WEBSITE\WEBSITE PLAATJES\POSTZEGELPAKKETTEN - SCANS" + Me.[Bestelnummer] + ".JPG")
ExitProc:
Exit Sub
ProcError:
Select Case Err.Number
Case 490
MsgBox "No Pictures Available"
Case Else
MsgBox Err.Number & ": " & Err.Description, vbCritical, _
"Error in cmdOK_Click Event Procedure..."
End Select
Resume ExitProc
End Sub
Ik moet er bij vertellen dat dit een stukje code is die ik gewoon geplakt en bewerkt heb uit een andere thread op een ander forum. Ikzelf kan wel redelijk met access werken, maar dit soort code zegt mij vrij weinig.