Private Sub NewT_Click()
On Error GoTo Err_NewT_Click
Label78.Visible = False
Text80.Visible = False
DoCmd.GoToRecord , , acNewRec
Box13.Visible = True
A1.Visible = True
A2.Visible = True
A3.Visible = True
dm1.Visible = True
dm3.Visible = True
dm3 = date
dm3.SetFocus
dm4.Visible = True
dm4 = ""
dm5.Visible = True
NewT.Visible = False
La1.Visible = False
La2.Visible = False
Save.Visible = True
Exit_NewT_Click:
