How do I restrict number of records in form?

[satisharalkar]

Hello,
My "customer" form is based on sigle table. I have to restrict no of customers only 5 customers. can anybody help me ?
This is required for distributing a database.

Regards,

Satish

 

[ansentry]

Put this in the OnCurrent event of your form.

If Me.NewRecord = True And Me.RecordsetClone.RecordCount = 5 Then
    MsgBox "You have reached 5 records", vbCritical, "Limit Reached"
    Me.Form.AllowAdditions = False
Else
    Me.Form.AllowAdditions = True
End If
End If

 

[Pat Hartman]

I would enforce the rule at the table level. Use a numeric primary key and restrict the value to >=1 and <=5.