'----- start of code for parent form's module -----
Private Sub Form_Current()

    '*** Substitute your subform control name for "sfMySubform" ***
    LimitRecords Me.sfMySubform.Form   ' allow at most 1 record
'    LimitRecords Me.sfMySubform.Form, 5   ' allow at most 5 records

End Sub
'----- end of code for parent form's module -----