| |
こんにちわ。いつも参考にさせていただいています。
顧客の住所等を管理するデータを入力するフォームＡと、その売上を管理するデータを入力するフォームＢがあります。売上データは、年度ごと・顧客ごとで管理しているので、フォームＡからフォームＢを開いた際、年度の数のレコードが表示されるのですが、古い年度の分を誤って更新してしまわないように、特定の年度のレコードを編集不可にしたいと思っています。
今のところ１６、１７、１８年度分のデータしかないので、『年度が１７以下だったら更新及び削除を許可しない』というコードをフォームを開くイベントに、次のように記入してみましたが、そうするとすべての年度のレコードが更新できなくなってしまいました。ヘルプ等で調べましたがよくわかりません。
解決方法もしくは解決のヒントでもご教示いただけるとうれしいです。
また、年度データは毎年増えていくので、そのたびごとに数字を書き替えなくていい方法がありましたら教えていただけると嬉しいです。
アクセス２０００を使っています。
よろしくお願いいたします。
Private Sub Form_Open(Cancel As Integer)
If Me!年度 <= 17 Then
Me.AllowDeletions = False
Me.AllowEdits = False
Else
Me.AllowDeletions = True
Me.AllowEdits = True
End If
End Sub
|
|
あおぎん
- 06/6/16(金) 14:16 -
