Private Sub Command70_Click()
On Error GoTo Err_Command70_Click
Dim CmbDate As Control
Set CmbDate = Me.CmbDate
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 2, , acMenuVer70
DoCmd.DoMenuItem acFormBar...