All they have to do is leave the items blank and I call this function when they print or close the form.
Code:
Sub clearBlanks() Dim rst As DAO.Recordset
Set rst = CurrentDb.OpenRecordset("Services")
If rst.RecordCount <> 0 Then
rst.MoveFirst
Do While Not rst.EOF
If IsNull(rst![LaborHours]) And IsNull(rst![ServiceName]) Then
rst.Delete
End If
rst.MoveNext
Loop
End If
Set rst = CurrentDb.OpenRecordset("Materials")
If rst.RecordCount <> 0 Then
rst.MoveFirst
Do While Not rst.EOF
If IsNull(rst![LaborHours]) And IsNull(rst![Quantity]) And IsNull(rst![ProductName]) Then
rst.Delete
End If
rst.MoveNext
Loop
End If
Set rst = CurrentDb.OpenRecordset("Equipment")
If rst.RecordCount <> 0 Then
rst.MoveFirst
Do While Not rst.EOF
If IsNull(rst![LaborHours]) And IsNull(rst![Quantity]) And IsNull(rst![EquipmentName]) Then
rst.Delete
End If
rst.MoveNext
Loop
End If
End Sub