Nevermind, I figured it out.
For anyone interested here is my code:
Scanned_Image = "There Are No Scans Linked to this Record"
NewLateralNumber = DMax("[Lateral_Number]", "tbl_Lateral_Location_Sheets") + 1
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70...