Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Private Sub Form_Current()
'dim variables
Dim folderpath, ImageName
'find folder path
folderpath = CurrentProject.Path
'set image name with extension
ImageName = Me.txtImageName.Value
'capture new record error
If Me.NewRecord Then
Exit Sub
Else
'set picture to the image
If Dir(folderpath & "\" & ImageName) = ImageName Then
Me.Image6.Picture = folderpath & "\" & ImageName
Else
'set a nopicture image
Me.Image6.Picture = folderpath & "\" & "NoPicture.jpg"
End If
End If
End Sub