Sub ValidateForm()
Dim i As Integer
i = DCount("*", "TblQcMeasurements", "Id = " & tbID & " AND tbSample1 >(TbControlMeasurement+TbTolerance)")
i = i + DCount("*", "TblQcMeasurements", "Id = " & tbID & " AND tbSample2 >(TbControlMeasurement+TbTolerance)")
i = i + DCount("*", "TblQcMeasurements", "Id = " & tbID & " AND tbSample3 >(TbControlMeasurement+TbTolerance)")
i = i + DCount("*", "TblQcMeasurements", "Id = " & tbID & " AND tbSample4 >(TbControlMeasurement+TbTolerance)")
i = i + DCount("*", "TblQcMeasurements", "Id = " & tbID & " AND tbSample5 >(TbControlMeasurement+TbTolerance)")
tbFail = i
End Sub