Urgent: Limiting records in subform

[StefanScheidegger]

Hi

Is there any code to limit entries of new records to a subform.

If yes, can you help me with the code?

Thank you.

Stefan

 

[BillPower]

You could try something like this, in the sub form's current event:

Dim rst As Recordset
Set rst = Me.RecordsetClone
rst.MoveFirst
rst.MoveLast
If rst.AbsolutePosition + 1 >= 10 Then 'set the 10 to max records that you want
gMaxRecordsEntered = true
else
gMaxRecordsEntered = false
End If

--------------------------------------------------
Declare in a global module:

Global gMaxRecordsEntered as boolean

--------------------------------------------------

Behind the button that controls data entry:

If gMaxRecordsEntered = true then
msgbox "etc"
Forms!YourFormName.Form!YourSubFormName.DataEntry = false 'if used
Forms!YourFormName.Form!YourSubFormName.Allowadditions = false
endif

Bill

 

[Junior1544]

how about in the sql behind the subform... use the keyword
top 10
if the subform is based on a table, then instead base it on some basic sql...

--James
junior1544@jmjpc.net
Life is change. To deny change is to deny life.