Private Sub Form_BeforeUpdate(Cancel As Integer)
If DCount("*", "TBL_EmpTrainDate", "[Employee_ID]='" & Me.Employee_ID & "' And [Training_Number] = " & Me.Training_Number & " AND [Date_Completed]=#" & Me.Date_Completed & "#") > 0 Then
MsgBox ("A Record for this Employee, Training Class and...