form name: AddSignaturesF
table: tblImageOLEs
field:signature1 (OLE object field)
I found this code from "Adezi" from an old post and needs to make more changes to it.
It finds the image, but does not add it to the "signature1" field
Expand|Select|Wrap|Line Numbers
- Dim varItem As Variant
- With Application.FileDialog(msoFileDialogFilePicker)
- With .Filters
- .clear
- .add "Bitmap Files", "*.bmp"
- .add "JPEG Files", "*.jpg"
- .add "Graphic Interchange Format Files", "*.gif"
- End With
- .AllowMultiSelect = False
- .FilterIndex = 1
- .ButtonName = "Select Graphic"
- .InitialFileName = vbNullString
- .InitialView = msoFileDialogViewDetails
- .Title = "Load Graphic File!"
- If .Show Then
- Me.Signature1 = .SelectedItems(1)
- End If
- End With