subforms allowing additions

[Csalge]

I want to prevent a subform from allowing additions based on an unbound field in my main form. Right now i have this and it's not working:
If Me.Text47 <= 0 Then
Me.child2.Form.AllowAdditions = False
Else
Me.child2.Form.AllowAdditions = True
End If
End Sub

any suggestions?

[June7]

Why isn't it working, what happens - error message, wrong results, nothing?

What event is that code in?

[Csalge]

I have it on current event of my main form. Nothing happens. I dont get an error but when my unbound equals zero my subform does not prevent users from adding records. My subform is a continuous form.

[June7]

What do you mean 'when my unbound equals zero'? Text147 is an unbound box? How does the box equal anything? If you want to provide db for analysis, follow instructions at bottom of my post.

[Csalge]

Databaseissue.zip

The unbound field shows employees their daily available hours (deducting excluded time from second subform). Text47 is total available hours. If total available hours show as zero i do not want employee to be able to enter any production points.

[June7]

Problem is the main form Current event runs before the subform is fully loaded so the calcs that are dependent on subform are errors and the code has run-time error. You can see this if you put a breakpoint in Current event.

Suggest code behind subfrmProduction:

Private Sub Form_GotFocus()
If Forms!frmEmployee.Text47 <= 0 Then
Me.AllowAdditions = False
Else
Me.AllowAdditions = True
End If
End Sub