Modifying cmdOrder_Click()

Tracking.SetFocus

Tracking.Locked = False

Tracking.Text = "CDC" & Hex((12 * (Year(Date)

- Year("5/5/99")) + Month(Date))

* 1000000 + VisitID)

Tracking.Locked = True

On Error GoTo Err_cmdOrder_Click

DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5,

, acMenuVer70

...

End Sub