Access: フォームで入力可能な行数を制限する
Access の フォーム オブジェクト には AllowAdditions / 追加の許可 プロパティ があります。
これを利用すればフォームに入力可能な行数（レコード数）を制限することが可能です。
‘ この例だと入力が3行に制限される
‘ 更新後処理
Private Sub Form_AfterUpdate()
LimitAdditions (3)
End Sub
‘ レコード削除時
Private Sub Form_Delete(Cancel As Integer)
LimitAdditions (3)
End Sub
Private Sub LimitAdditions(rows As Long)
Dim rs As Recordset
Set rs = Me.Recordset
If rs.RecordCount >= rows Then
Me.AllowAdditions = False
Else
Me.AllowAdditions = True
End If
Set rs = Nothing
End Sub
レポートのレイアウトに制限があったりで、フォームに入力可能な行数を制限する必要がある場合にこの処理が使えるかもしれません。