![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
テーブルには適当なデータが入っています。
フォーム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も見ています
-
「どうして捨てられないの?」前妻の物を捨てられない男性の心理って?
前妻の物を捨てられない理由に加え、捨てるための手段はあるのかを専門家に聞いてみた!
-
サブフォームに対してGoToRecordするには?
その他(Microsoft Office)
-
ACCESSでコントロールソースの変更
Access(アクセス)
-
Access サブフォームでの選択行の取得
その他(データベース)
-
-
4
Accessを開きなおすとテキストボックスの値がエラー#Name?になる
その他(データベース)
-
5
Form_Load と Form_Activate のタイミング
Visual Basic(VBA)
-
6
Access VBA Me.Requery レコードは削除されています エラー
その他(データベース)
-
7
【ACCESS】フォーム名/コントロール名を文字列型変数で指定するには
Access(アクセス)
-
8
アクセスでテキストボックスの値が空白だったら
Access(アクセス)
-
9
Excelで数値→文字列変換で指数表示になったものをいっぺんに直したい
Excel(エクセル)
-
10
テキストボックスのカーソル位置の取得・設定方法
Visual Basic(VBA)
-
11
Accessの画面更新を一時的に停止する方法。
その他(データベース)
-
12
アクセスで#エラーを表示させない方法は?
Access(アクセス)
-
13
ACCESSにて
Access(アクセス)
-
14
access2010 コマンドまたはアクション''は無効です。について
その他(ソフトウェア)
-
15
ACCESSでサブフォームの編集中レコードの処理
その他(Microsoft Office)
-
16
Accessを使って日付を比較したい
その他(Microsoft Office)
-
17
どこにもフォーカスを当てたくない
Access(アクセス)
-
18
VBA 2回実行してしまう?
Windows 7
-
19
Access レコード移動時イベントでサブフォーム
Access(アクセス)
-
20
テキストボックスのvalueとtextの違い
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ユーザーフォームを表示中にシ...
-
ユーザーフォームのテキストボ...
-
フォームを最背面に設定したい...
-
Excelのユーザーフォームのテキ...
-
VBA(エクセル)のユーザー...
-
VBAでユーザーフォームを再表示...
-
ACCESSのフォーム、開くんです...
-
VB.NET:モーダルで表示したフ...
-
コントロールの存在確認
-
ExcelVBAのユーザーフォームの...
-
VBAからVB6への移行
-
ユーザーフォームのコピー?
-
①ExcelVBAでカレンダーを作り、...
-
タスクバーにフォーム名を表示...
-
MSGBOXのフォント大きさ変更
-
[VB6] フォームを閉じる方法に...
-
エクセルVBA(マクロ-コンボボッ...
-
Excelにて、ユーザーフォームで...
-
フォームの位置を取得したい
-
[Access]あるフォームのクラス...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ユーザーフォームを表示中にシ...
-
ExcelVBAのユーザーフォームの...
-
エクセルVBAのフォームを最...
-
クリックイベントなのに、2回ク...
-
ユーザーフォームのテキストボ...
-
モーダルフォームとモードレス...
-
Form_Load と Form_Activate の...
-
VBAでユーザーフォームを再表示...
-
Hideについて(.NET)
-
ACCESSのフォーム、開くんです...
-
MSGBOXのフォント大きさ変更
-
Excelにて、ユーザーフォームで...
-
【VBAユーザーフォームで閉じる...
-
ユーザーフォーム上に現在日時...
-
VBA(エクセル)のユーザー...
-
access2021 更新前に処理をしたい
-
Accessで、一つのフォーム画面...
-
コントロールの存在確認
-
Microsoft Formsの「個人情報や...
-
複数モニタ使用時のフォームの...
おすすめ情報