We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
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" Else grn.AddNew grn!dname = Me.Name grn!image = Me.dimage grn!dcompany = Me.company grn!dlicenseplate = Me.vehicle grn!date = Me.date grn!grnno = Me.grnnumber grn.Update MsgBox ("This has been saved!"), vbInformation, "Saved" End If DoCmd.Close
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|How force required field data entry before moving on to a new record||3||31|
|Access - Question on concatenation of field values||3||33|
|Access Criteria - Select first word from a string||27||34|
|Pasting files from the clipboard (via Microsoft Access / VBA)||14||22|