How to add image to access form
VBA codes used to insert an image is as follows;
Dim f As Object
Dim strfile As String
Dim strfolder As String
Dim varitem As Variant
Set f = Application.FileDialog(3)
f.allowMultiSelect = True
If f.show Then
For Each varitem In f.selecteditems
strfile = Dir(varitem)
strfolder = Left(varitem, Len(varitem) - Len(strfile))
MsgBox "Folder" & strfolder & vbCrLf & _
"File:" & strfile
picturesource = strfolder + strfile
Next
End If
Set f = Nothing
You can download sample file from following link:
https://drive.google.com/file/d/18etH...