How to Set a Maximum amount of Records on a Form

[mpsDA]

How do you set a Maximum number of Records for a form to be entered. i.e i do not want the user entering more than 20 records for this form permanently. also if the user tries to enter more than 20 records an error message should appear explaing why and what to do.

Can this be done??

 

[ZmrAbdulla]

It is depending to the way you choose.
You can either use DCount Function to check the table if it has already 20 numbers of records

or
to use Me.RecordsetClone.RecordCount

Dcount is best

If DCount("*", "TableName")< 20 then
'....Go to new Record...
Else
MsgBox "No More"
End If

code not tested

________________________________________________________________________
Zameer Abdulla
Visit Me
Children are poor men's riches.

 

[ZmrAbdulla]

There was some mistake in the previous code. here is the correct one.

Private Sub cmdAddNew_Click()
    If DCount("*", "TableName") >= 20 Then
        MsgBox "No More"
    Else
        DoCmd.GoToRecord , , acNewRec
    End If
End Sub

If you are doing something like Invoicing you may need to check the count of current records.
Like.. Suppose you allow only 20 items in an Invoice. You need to check if it is 20 records

Private Sub cmdAddNew_Click()
    If Me.RecordsetClone.RecordCount >= 20 Then
        MsgBox "No More"
    Else
        DoCmd.GoToRecord , , acNewRec
    End If
End Sub

________________________________________________________________________
Zameer Abdulla
Visit Me
Children are poor men's riches.

 

[RoyVidar]

Perhaps use the on current event? Another property to use might be the allowadditions property - this will alter the navigationbuttons in a way that indicates that new record isn't available.

[tt]me.allowadditions = (me.recordsetclone.recordcount < 20)[/tt]

Roy-Vidar