<div>
I found this bit of code and it works great.<br />

<pre><code id="code-20-41788072-1">Public Function LimitRecords( _
          frm As Access.Form, _
          Optional RecLimit As Integer = 1)
 
  ' Limit the number of records in the form passed as
  ' to no more than the number specified by .
 In a module:
  With frm.RecordsetClone
    If .RecordCount &lt;&gt; 0 Then .MoveLast
    frm.AllowAdditions = (.RecordCount &lt; RecLimit)
  End With
End Function</code></pre>
<br />
Called by<br />
<br />
LimitRecords Me, 5 <br />
<br />
But Just need some stop message when trying to enter a 6th record. Or Some Alert.<br />
Thanks<br />
fordraiders
</div>


I found this bit of code and it works great.


Public Function LimitRecords( _
          frm As Access.Form, _
          Optional RecLimit As Integer = 1)
 
  ' Limit the number of records in the form passed as
  ' to no more than the number specified by .
 In a module:
  With frm.RecordsetClone
    If .RecordCount <> 0 Then .MoveLast
    frm.AllowAdditions = (.RecordCount < RecLimit)
  End With
End Function


Called by

LimitRecords Me, 5

But Just need some stop message when trying to enter a 6th record. Or Some Alert.
Thanks
fordraiders

<div>
You are welcome!<br />
<br />
/gustav
</div>


<div>
<div class="content wysiwyg-content">
Access 2010 vba:<br />
<br />
I'm trying to limit the numbers of records to enter into a subform.<br />
The forms main &quot;current event&quot;.<br />
I have:<br />

<pre><code id="code-10-28968262-1">With Me![dbo_t_redbook_pricing_escalation_detail_subform].Form
  If .Recordset.RecordCount &lt;= 5 Then
    .AllowAdditions = True
    .AllowEdits = True
  Else
    .AllowAdditions = False
    .AllowEdits = True
  End If
End With</code></pre>
<br />
But I never get prompted to stop any data entry beyond 5 records ?<br />
<br />
Thanks<br />
fordraiders
</div>
</div>


Access 2010 vba:

I'm trying to limit the numbers of records to enter into a subform.
The forms main "current event".
I have:
(CODE)

But I never get prompted to stop any data entry beyond 5 records ?

Thanks
fordraiders

subform to allow only five records

Microsoft Access is a rapid application development (RAD) relational database tool. Access can be used for both desktop and web-based applications, and uses VBA (Visual Basic for Applications) as its coding language.

Microsoft Access

Visual Basic for Applications (VBA) enables building user-defined functions (UDFs), automating processes and accessing Windows API and other low-level functionality through dynamic-link libraries (DLLs). VBA is closely related to Visual Basic and uses the Visual Basic Runtime Library, but it can normally only run code within a host application rather than as a standalone program. It can, however, be used to control one application from another via OLE Automation. VBA is built into most Microsoft Office applications.