Formunuzun üstünde Seans isimli bir metin kutusu olduğunu varsayalım. Seans'ta yazılan değere göre sayım yaptırabilirsiniz.
mevcut_kontenjan = DCount("kimlik","salon","seans='" & Me.Seans & "'" )
If mevcut_kontenjan = 30 Then
Msgbox "30 kişilik kontenjan dolmuştur
Else
'
' Yapılacak işlemler kayıt vs. kodları buraya
End If