access2000で、テーブルのレコード最大数の制限

質問

access初心者です。access2000を使用しています。テーブルのレコードの最大数を制限したいと思っています。例えば１つのテーブルの最大レコード数を100件に設定し、そのテーブルのみ101件目のレコードを入力したらエラーメッセージが出るようにできませんか？
どなたかご存じの方よろしくお願いします。

回答No.1

nicotinism · ベストアンサー

残念ながらテーブルのプロパティには有りませんので
テーブルを元にしたフォームのイベントで設定するしかありません。

ダーティ時のイベントに
Private Sub Form_Dirty(Cancel As Integer)
　　If Me.NewRecord And Me.Recordset.RecordCount >= 100 Then
　　　　MsgBox "もう食べられません"
　　　　Cancel = True
　　　　Me.Undo
　　　　DoCmd.GoToRecord , Record:=acPrevious
　　End If
End Sub
とでもするしかないかと思います。