T
Thronz
I have a Userform that is used to create a printed form. One of the command
buttons runs trhe following code:
Private Sub Photo_Click()
Dim locat As String
'Load Photo onto Userform
locat = "N:\Security\Reception\Contractors" & "\" & TextBox5.Value & ".jpg"
Image1.PictureSizeMode = fmPictureSizeModeZoom
Image1.Picture = LoadPicture(locat)
End Sub
This was running fine. I was then asked if the information entered on the
Userform could be used to update a database. This is done in another Sub
routine (same one as the code to print the form). I had it working, but I
find out now that an error is generated when the "Photo" commandbutton is
activated. The second to last line of code :"Loadpicture" causes the error.
Thanks for your time.
Happy Holidays
buttons runs trhe following code:
Private Sub Photo_Click()
Dim locat As String
'Load Photo onto Userform
locat = "N:\Security\Reception\Contractors" & "\" & TextBox5.Value & ".jpg"
Image1.PictureSizeMode = fmPictureSizeModeZoom
Image1.Picture = LoadPicture(locat)
End Sub
This was running fine. I was then asked if the information entered on the
Userform could be used to update a database. This is done in another Sub
routine (same one as the code to print the form). I had it working, but I
find out now that an error is generated when the "Photo" commandbutton is
activated. The second to last line of code :"Loadpicture" causes the error.
Thanks for your time.
Happy Holidays