I limited Number of records in continuous form, but now can't add records

[bigalpha]

I've attached two pictures. One shows my form with the Transporters Subform with 3 entries, and 1 entry.

The three line items that say "Transporter" are in one subform. I used this code

Private Sub Form_Current()
If Me.RecordsetClone.RecordCount >= 3 Then
Me.AllowAdditions = False
End If
End Sub

to limit the number of records I can add to 3 or less.

My issue is that I lost the blank text box that allows you to add another record. So, if I only have one Transporter listed, there's no box to let me add a second or third.

I have the following properties for the Transporters Subform set to "Yes":
Data Entry
Allow Additions
Allow Deletions
Allow Edits
Allow Filters

 

[John Big Booty]

You have set the AllowAdditions property to False, but at no point allowed for it to be re-set to True, Try;

Private Sub Form_Current()
If Me.RecordsetClone.RecordCount >= 3 Then
     Me.AllowAdditions = False
Else
     Me.AllowAdditions = True
End If
End Sub

 

[MoleY]

I think John got it in one there!

 

[bigalpha]

You have set the AllowAdditions property to False, but at no point allowed for it to be re-set to True, Try;

Private Sub Form_Current()
If Me.RecordsetClone.RecordCount >= 3 Then
     Me.AllowAdditions = False
Else
     Me.AllowAdditions = True
End If
End Sub

Sorry for the delay, I had a 3 day weekend! This addition to the code worked great! Thanks Mr. Big Booty.