[AccessD] Quarter hour increments

Gina, 

>>we'd like to restrict them to quarter hour increments.

Just put this code in the AfterUpdate event for the form control:

Private Sub txtTaskHours_AfterUpdate()
    Dim sgHours As Single
    ' Round to nearest quarter
    sgHours = CSng(Round(txtTaskHours.Value * 4) / 4)
    txtTaskHours.Value = sgHours
End Sub

-Ken