こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

フォームを開いた時にVBAでデザイン変更の許可の設

フォームを開いた時にVBAでデザイン変更の許可の設定が出来ない(access2003)

デザインビューで手作業で操作するのではなく
VBAで値を設定したいのですが

Private Sub Form_Open(Cancel As Integer)
Me.AllowDesignChanges = False
End Sub

をすると
・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・
 実行時エラー '2448':
 このオブジェクトに値を代入することはできません。
・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・・
と言うエラーが出てしまいます。


標準モジュールで
Sub test()
Form_フォーム1.AllowDesignChanges = False
End Sub
としても同じエラーが出ます。

フォームのデザイン変更の許可は
デザインビューで手作業で操作するしかないのでしょうか?

投稿日時 - 2011-10-29 11:20:59

QNo.7100779

暇なときに回答ください

質問者が選んだベストアンサー

正直、Accessはよく分からないですが・・・
デザインビューでしか設定できないパラメータじゃないかな。まず非表示のデザインビューで開いて->設定->表示ONにするという手順ではダメです?

 DoCmd.OpenForm "フォーム1", acDesign, , , , acHidden
 Forms("フォーム1").AllowDesignChanges = False
 DoCmd.OpenForm "フォーム1"

投稿日時 - 2011-10-31 18:01:43

お礼

サンプルコードで出来ました!
ありがとうございました。

投稿日時 - 2011-11-08 21:14:15

ANo.1

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問