Hours and OT Hours

[Ruthers456]

I am creating a form and wanted to know if there was a way to automatically correct the field Hours and fill in the field OT. For example if I were to input 10 in the Hours field and enter or tab to the OT field, it would change the Hours field to 8 and input 2 in the OT field. Thanks so much for your help.

[Yesideez]

Off the top of my head (and having just accidentally come across the code builder) I'd look at creating a function attached to the "On Lost Focus" event to do a check with modular division and update the relevant field(s) if needed.

[TheShabz]

Lets assume the data would be in 2 textboxes, txtRegHours, and txtOTHours. I didn't confirm my syntax but basically what the following does is check to see if the number entered is over 8. If so, it asks the user whether the remainder should be applied to OT. If the user clicks yes, it does so. If the user clicks no, then it clears and resets. This can be entered on any event you wish.


if (Me.txtRegHours > 8) Then
if(MsgBox "You have entered in over 8 hours for Regular Time. Would you like to add the remaining to Overtime?", vbYesNo) = vbYes Then
Me.txtOTHours = Me.txtRegHours - 8
Me.txtRegHours = 8
Else
Me.txtRegHours = vbNullString
Me.txtOTHours = vbNullString
EndIf
Else
EndIf
ExitSub