Over 10 years we help companies reach their financial and branding goals. Engitech is a values-driven technology agency dedicated.

Gallery

Contacts

411 University St, Seattle, USA

engitech@oceanthemes.net

+1 -800-456-478-23

Knowledge Base Blog

Access Microsoft SQL Advanced Text Filter Contains Like Not Insert Identity

Not Like “*(*” And Like “*Office*” And Like “*Microsoft Office*”

‘ Insert Into Database
Line = “Insert into notes (notedate,idclub) values (‘” & Date & “‘,” & Me!IDClub & “)”
CurrentProject.Connection.Execute Line
‘ Get Last Identity ID
mylastid = CurrentProject.Connection.Execute(“Select @@IDENTITY”)(0)
‘ Refresh Form
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70

‘ Open Form with New ID
stDocName = “Notes”
stLinkCriteria = “[IDNotes]=” & mylastid
DoCmd.OpenForm stDocName, , , stLinkCriteria

Author

angelcomsite