I need to be able to save a record from an unbound form. This Form contains an image.
If the form is bound the image saves. Unbound I get the error.
The field in the table is OLE and this is the code in a button on the form.
Dim dbs As DAO.Database, grn As DAO.Recordset
Set dbs = CurrentDb
Set grn = dbs.OpenRecordset("grn", dbOpenDynaset)
If IsNull(Me.Name) Then
MsgBox ("Please complete all fields!"), vbInformation, "Incomplete"
grn!dname = Me.Name
grn!image = Me.dimage
grn!dcompany = Me.company
grn!dlicenseplate = Me.vehicle
grn!date = Me.date
grn!grnno = Me.grnnumber
MsgBox ("This has been saved!"), vbInformation, "Saved"