諸事情があり、フォーム上のコマンドボタン40個くらいの名前を変更したいのですが
まず、一つだけ変更できるか実験してみたのですがうまくできません。
Sub オブジェクト名変更()
DoCmd.OpenForm Form_フォーム1.Name, acDesign
Form_フォーム1.コマンド0.Name = "あああ"
DoCmd.Save acForm, Form_フォーム1
End Sub
を実行すると
メモリが不足しています。(Error 7)
と出たり、
実行時エラー 29054
指定のコントロールを追加、名前を変更、または削除することはできません。
と出たりします。
これって無理って事でしょうか?
バージョンは2007です。
No.1ベストアンサー
- 回答日時:
> これって無理って事でしょうか?
当該フォーム以外から実行するのであれば、コントロール名の変更は可能です。
ただ、そのコントロールの各イベントにコードを割り当てていたり、コード上でそれらを
参照していた場合、名前が一致しなくなるため、注意が必要です。
(「Private Sub コマンド0_Click」が呼び出せなくなったり、「コマンド0.SetFocus」が
コンパイルエラーになったり、といった事態になります)
以下のコードを適用する際は、以上の注意事項を踏まえた上で行ってください。
(なお、以下のコードでは、フォームを閉じる際に、確認メッセージなしで変更を保存
させるよう、DoCmd.Closeの第3引数に「acSaveYes」を指定していますので、
併せてご注意下さい)
Public Sub オブジェクト名変更()
DoCmd.OpenForm "フォーム1", acDesign
Forms("フォーム1")!コマンド0.Name = "あああ"
DoCmd.Close acForm, "フォーム1", acSaveYes
End Sub
上記のように、「Form_フォーム1.Name」ではなく、「"フォーム1"」と定数式を
使用すれば、変更が可能になります。
これは、「Form_フォーム1」を参照すると、「フォーム1」が非表示でメモリに
読み込まれる(≒フォームビューで開かれたのに近い状態になる)ためです。
このため、せっかくデザインビューで開く指定をした意味がなくなってしまって
います。
(DoCmd.OpenFormで開くのとは異なり、「Form_フォーム1」の形で参照すると、
同じフォームを同時に複数表示が可能になるため、このようなことが起こります)
詳細については、以前のQ&Aを参照してみてください:
http://oshiete.goo.ne.jp/qa/7888223.html
名前を変更したいコントロールにvbaコードが書いてあったり、
フォーカスが当たる場合は要注意という事ですね。
ん?ん?ん?
いまいちよくわからないのですが
>当該フォーム以外から実行するのであれば、
コントロール名の変更は可能です。
との事ですが、
Forms("フォーム1")!コマンド0.Name = "あああ"
これは、該当フォームから実行してる事にはならないのですか?
と思ったら、
>上記のように、「Form_フォーム1.Name」ではなく、
>「"フォーム1"」と定数式を使用すれば、変更が可能になります。
>これは、「Form_フォーム1」を参照すると、
>「フォーム1」が非表示でメモリに読み込まれる
>(≒フォームビューで開かれたのに近い状態になる)ためです。
との事なのですね。
要するに
Form_フォーム1
と
Forms("フォーム1")
は別物のようですね。
Forms("フォーム1")形式に変えたらうまくできました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- HTML・CSS ボタンをクリックした時に、入力フォームのすぐ下部に、「入力欄が空白です」というテキストメッセージが表 1 2022/04/27 16:25
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- JavaScript 入力フォームの javascript で メールアドレスの正規チェックをを行い、ボタンをクリックして 2 2022/04/27 16:06
- Visual Basic(VBA) エクセルのマクロについて教えてください。 7 2023/07/04 09:18
- Excel(エクセル) シート名を簡単に書く方法があれば教えてください。 4 2023/08/24 12:40
- JavaScript javascriptで入力フォームが空欄の時にアラートによるエラーを出すコードを書いています。 2 2023/06/13 17:58
- JavaScript フォームが空欄の時にフォームの外をクリックすると、エラーが出るコードを調べています。 1 2023/06/25 11:51
- Visual Basic(VBA) excel vbaでvlooupの変数がわかりません。 7 2022/05/30 09:35
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
- Excel(エクセル) 1つのファイルを3つのフォルダにファイル名を【明日の日付】にして、コピーをしたい 2 2022/12/21 17:43
このQ&Aを見た人はこんなQ&Aも見ています
-
賃貸で可能な古民家風レトロな部屋作りのコツ!改めて知る畳の高い機能性と魅力も紹介
畳の部屋を雰囲気のよい部屋に仕上げたい!賃貸住宅でもできる古民家風のレトロな部屋作りのコツを伺った。
-
VBA シートのボタン名を変更したい
Visual Basic(VBA)
-
ACCESSフォームにコントロールが追加できない
Access(アクセス)
-
Excelマクロでオプションボタンの名前の変更をしたい
Excel(エクセル)
-
-
4
Access フォームのテキストボックスに半角英字のみで入力する設定は
Access(アクセス)
-
5
フォームを開くときに、コンボボックスの値を選択(アクセスVBA)
Visual Basic(VBA)
-
6
Access サブフォームでの選択行の取得
その他(データベース)
-
7
ACCESSでテーブルにあるチェックボックスを一括でYesにする方法を教えてください
Access(アクセス)
-
8
Accessのレポート上のテキストボックス値を設定したい
その他(データベース)
-
9
アクセスVBAのMe!と[ ]
Access(アクセス)
-
10
ACCESSで空白のデーターをクエリで判定/識別する方法を教えてくださ
Access(アクセス)
-
11
サブフォームに対してGoToRecordするには?
その他(Microsoft Office)
-
12
ExcelVBAでListViewが使用できない
Visual Basic(VBA)
-
13
ACCESS──メインフォームでサブフォームのレコード件数をカウントしたい
Access(アクセス)
-
14
ACCESSでデータ読み取り専用を解除する方法
その他(データベース)
-
15
[Access]帳票フォームにて連続する非連結コントロールに個々の値を入れるには
Access(アクセス)
-
16
ACCESSでコントロールソースの変更
Access(アクセス)
-
17
MS Accessでフォームの「開く時」と「読込み時」のイベントの違い
Access(アクセス)
-
18
Accessレコードの追加や変更が出来ません。
その他(データベース)
-
19
Accessで新しいレコードに規定値を入力させるには?
Access(アクセス)
-
20
コントロールの存在確認
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルVBAのフォームを最...
-
ExcelVBAのユーザーフォームの...
-
Excelにて、ユーザーフォームで...
-
'ユーザーフォーム右上隅の[×...
-
ユーザーフォームを表示中にシ...
-
ユーザフォームの印刷
-
VB.NETでフォームロード中のエ...
-
タスクバーにフォーム名を表示...
-
Hideについて(.NET)
-
クリックするたびに、フォーム...
-
モーダルフォームとモードレス...
-
ExcelVBA:フォームの閉じるボ...
-
VBでフォームのイメージを印...
-
コントロールの存在確認
-
指定の動作中ユーザーフォーム...
-
VisualBasic2010のXML読み込み
-
ACCESSのフォーム、開くんです...
-
VBAで画像を表示する方法
-
リストボックスに、DBのテーブ...
-
ユーザーフォームのテキストボ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ユーザーフォームを表示中にシ...
-
ExcelVBAのユーザーフォームの...
-
ユーザーフォームのテキストボ...
-
クリックイベントなのに、2回ク...
-
MSGBOXのフォント大きさ変更
-
VBAでユーザーフォームを再表示...
-
Hideについて(.NET)
-
Form_Load と Form_Activate の...
-
モーダルフォームとモードレス...
-
コントロールの存在確認
-
ユーザーフォーム上に現在日時...
-
【VBAユーザーフォームで閉じる...
-
エクセルVBAのフォームを最...
-
ACCESSのフォーム、開くんです...
-
Microsoft Formsの「個人情報や...
-
VBA(エクセル)のユーザー...
-
フォームウィンドウを最前面に...
-
ユーザーフォームのラベルに時...
-
'ユーザーフォーム右上隅の[×...
-
Excelにて、ユーザーフォームで...
おすすめ情報