テーブルには適当なデータが入っています。
フォーム1を作り、コマンドボタンを1個だけ設置して、フォーム2を開くようにするために
Private Sub コマンド0_Click()
DoCmd.OpenForm Form_フォーム2.Name
End Sub
としました。
フォームはテーブルをレコードソースとしています。
フォーム2のモジュールに
Private Sub Form_Current()
Debug.Print "Form_Current"
End Sub
Private Sub Form_Open(Cancel As Integer)
Debug.Print "Form_Open"
End Sub
としたのですが、結果は
Form_Open
Form_Current
Form_Open
Form_Current
になります。
よって、二つのイベントの中にいくつかのプロシージャーが入っているのですが
2回ずつ実行されてしまい、求めている結果と異なってしまいます。
これを回避する方法はありますか?
どうしてもフォーム1のコマンドボタンを押して、フォーム2をひらきたいのです。
よろしくお願いします。
No.1ベストアンサー
- 回答日時:
>DoCmd.OpenForm Form_フォーム2.Name
だと二回発生しますね。
クラスとしてのフォーム2の関係から?のような気がしますが
残念ながらスキルを持ち合わせていません。
DoCmd.OpenForm "フォーム2"
なら1回だけでした。
No.2
- 回答日時:
追伸
フォーム2 を閉じた状態で、イミディエイトウィンドウで
?フォーム2.name
とすると、やはりイベントが発生します。
Msgbox "" を加えて置くとと出てきます。
この場合にはフォームは開かれていない(目には見えない)ように感じますが
内部的?に一旦開かれているようです。
なので、Docmd.Openform Form_フォーム2.Name とした場合には
Form_フォーム2.Name で仮オープン?(一回目)して名前を取得
その後、
Docmd.OpenForm フォームの実名(二回目) のようになるという事の様です。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- JavaScript 入力フォームの javascript で メールアドレスの正規チェックをを行い、ボタンをクリックして 2 2022/04/27 16:06
- Access(アクセス) Accessでセレクタをダブルクリックで別フォームで詳細表示 3 2022/12/20 10:36
- HTML・CSS ボタンをクリックした時に、入力フォームのすぐ下部に、「入力欄が空白です」というテキストメッセージが表 1 2022/04/27 16:25
- Visual Basic(VBA) フレームワーク「4.8.1」で、[Sub Main]が動かない。助けて下さい 3 2022/11/14 15:40
- Visual Basic(VBA) batからexeを実行し戻り値を受け取る バッチからEXEの結果を受け取りたいのですが、 下記のバッ 1 2023/07/04 15:13
- Visual Basic(VBA) batからexeを実行し戻り値を受け取る EXEの実行内容の結果によって、戻り値を0か1かで返したい 1 2023/07/04 16:40
- Visual Basic(VBA) 検索のユーザーフォームの表示について 1 2023/03/27 23:31
- Access(アクセス) チェックボックスにチェックが入った後の挙動 1 2022/08/21 12:39
- JavaScript javascriptで入力フォームが空欄の時にアラートによるエラーを出すコードを書いています。 2 2023/06/13 17:58
このQ&Aを見た人はこんなQ&Aも見ています
-
新NISA制度は今までと何が変わる?非課税枠の拡大や投資対象の変更などを解説!
少額から投資を行う人のための非課税制度であるNISAが、2024年に改正される。おすすめの銘柄や投資額の目安について教えてもらった。
-
サブフォームに対してGoToRecordするには?
その他(Microsoft Office)
-
ACCESS97 実行時エラー '2455'に関して
Access(アクセス)
-
Access VBA コントロールの参照が上手く行かない
その他(プログラミング・Web制作)
-
-
4
Access2010 Enterで次テキストへ移動
その他(Microsoft Office)
-
5
ACCSESS2013VBA フォームのレコードソースを変更する
その他(データベース)
-
6
Accessを開きなおすとテキストボックスの値がエラー#Name?になる
その他(データベース)
-
7
ACCESSでコントロールソースの変更
Access(アクセス)
-
8
アクセスでテキストボックスの値が空白だったら
Access(アクセス)
-
9
Excelで数値→文字列変換で指数表示になったものをいっぺんに直したい
Excel(エクセル)
-
10
アクセス 項目毎にデータを横に並べる方法
Access(アクセス)
-
11
Access サブフォームでの選択行の取得
その他(データベース)
-
12
ACCESSでサブフォームの編集中レコードの処理
その他(Microsoft Office)
-
13
アクセスで#エラーを表示させない方法は?
Access(アクセス)
-
14
「RunSQL」と「Execute」の違い
Access(アクセス)
-
15
Access:フォームプロパティ「ダーティー時」が使えない
Access(アクセス)
-
16
サブフォームの新規レコードに移動したい アクセス
Access(アクセス)
-
17
Accessのフォームにて、詳細行のボタンを行の内容により、表示/非表
その他(Microsoft Office)
-
18
Accessを使って日付を比較したい
その他(Microsoft Office)
-
19
もしフォームヘッダーにコントロールがあるのなら
Access(アクセス)
-
20
Accessで別テーブルの値をフォームに表示したい
その他(データベース)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBAでユーザーフォームを再表示...
-
ユーザーフォームのテキストボ...
-
ユーザーフォーム上に現在日時...
-
モーダルフォームとモードレス...
-
Microsoft Formsの「個人情報や...
-
ユーザーフォームのコピー?
-
MSGBOXのフォント大きさ変更
-
ExcelVBAのユーザーフォームの...
-
VBA(エクセル)のユーザー...
-
Excel VBAで別のブックからユ...
-
エクセルのフォームをマクロで...
-
Microsoft Forms とか、それに...
-
エクセルVBAのフォームを最...
-
ユーザーフォームを表示中にシ...
-
VBAのテキストフォームの折り返...
-
なぜエラーになるのでしょう?...
-
子フォームでDB更新後、親フォ...
-
フォームの位置を取得したい
-
Form_Load と Form_Activate の...
-
エクセルのVBAでユーザーフォー...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ユーザーフォームを表示中にシ...
-
ExcelVBAのユーザーフォームの...
-
クリックイベントなのに、2回ク...
-
Microsoft Formsの「個人情報や...
-
ユーザーフォームのテキストボ...
-
【VBAユーザーフォームで閉じる...
-
モーダルフォームとモードレス...
-
VBAでユーザーフォームを再表示...
-
エクセルVBAのフォームを最...
-
MSGBOXのフォント大きさ変更
-
Form_Load と Form_Activate の...
-
ユーザーフォーム上に現在日時...
-
Excelにて、ユーザーフォームで...
-
Hideについて(.NET)
-
フォームウィンドウを最前面に...
-
コントロールの存在確認
-
VBA(エクセル)のユーザー...
-
'ユーザーフォーム右上隅の[×...
-
エクセルVBA フォーム上でOnkey...
-
ブックをCloseまたはQuitで閉じ...
おすすめ情報