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