Limited student roster

[Shag84]

Hello,



I was hoping you could point me in the right direction, please. I'm trying to do a database for our cardiac rehab members. My question concerns a limited roster.
We have 6 class times with a max of 10 patients per class. Could you recommend a way to prevent filling more than the 60 available slots?

Are there any scheduling dbs out there too refer to? I've been searching Google but have been coming up empty.

Thanks for your help.
Don

[ranman256]

when you open the form ,frmClass detail, it would have a subform frmRoster.
put an ADD button on the form
in the bottom footer of frmRoster, put a textbox, txtCount where source: =Count(ClientID)
it would not allow additions unless the subform count < 10.

sub form_OnCurrent()
  btnAdd.enabled= me.frmRoster!form!txtCount < 10
end sub

clicking the button opens an entry form ,frmStudent, to fill out all student info,
or
the form lets user pick an existing person, and then click SAVE button to add them, then update the subform button to turn off additional entries if you hit the limit.

[Shag84]

Thank you ranman256!! I very much appreciate your help. I will get on this right away. Thanks again.

[HiTechCoach]

Hello,

I was hoping you could point me in the right direction, please. I'm trying to do a database for our cardiac rehab members. My question concerns a limited roster.
We have 6 class times with a max of 10 patients per class. Could you recommend a way to prevent filling more than the 60 available slots?

Are there any scheduling dbs out there too refer to? I've been searching Google but have been coming up empty.

Thanks for your help.
Don

I find the best to set the form's AllowAdditons property. This will work with any UI design.

Private Sub Form_Current()
    
    ' if 10 is the max records to enter
    Me.AllowAdditions = Me.RecordsetClone.RecordCount < 10

End Sub

or the long version

Private Sub Form_Current()
    
    ' if 10 is the max records to enter
    If Me.RecordsetClone.RecordCount < 10  Then 
       Me.AllowAdditions = True
    Else
       Me.AllowAdditions = False
    End If
End Sub

[Shag84]

Thank you, HiTechCoach. I appreciate the help.
Don

[HiTechCoach]

You're welcome. Glad we could assist.