Submit an article about your scariest tech experience—and the solution—and you’ll be automatically entered to win one of 4 fantastic tech gadgets.
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.
Join the community of 500,000 technology professionals and ask your questions.