Kayıt Sayısına Göre Veri Girişini Sınırlama

Raporun düzgün çıkması için Altforma girişi sınırlamak gerekiyor.
10 adetten fazla giriş yapılmasını nasıl engelleriz. AllowAdditions=False kullanmama rağmen başarılı olamadım.

Aynı mantıkla tek bir eleman mesaiye kalırsa Rapor çıktısı küçük çıkmaktadır.
Mesaiye 10 kişide kalsa, 1 kişide kalsa Raporu aynı büyüklükte nasıl alabiliriz?

FormA isimli formun geçerli olduğunda olayına aşağıdaki kodu ekle

Dim VeriSayisi As Integer

VeriSayisi = DCount("[ID]", "Tablo2", "[Kimlik]=" & [Kimlik])

If VeriSayisi >= 10 Then

AllowAdditions = False

Else

AllowAdditions = True

End If

Teşekkürler ozanakkaya,
Veri girişi sınırlaması çalışıyor.
Fakat Anaformda yeni bir kayıt oluşturduğumda altforma hiç bir girişe izin vermiyor.
İncelermisiniz?