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