テーブルには適当なデータが入っています。
フォーム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も見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
サブフォームに対してGoToRecordするには?
その他(Microsoft Office)
-
ACCSESS2013VBA フォームのレコードソースを変更する
その他(データベース)
-
ACCESSでコントロールソースの変更
Access(アクセス)
-
-
4
どこにもフォーカスを当てたくない
Access(アクセス)
-
5
Accessを開きなおすとテキストボックスの値がエラー#Name?になる
その他(データベース)
-
6
Excelで数値→文字列変換で指数表示になったものをいっぺんに直したい
Excel(エクセル)
-
7
Access レポートの文字間を設定したい
PowerPoint(パワーポイント)
-
8
アクセスでテキストボックスの値が空白だったら
Access(アクセス)
-
9
Access サブフォームでの選択行の取得
その他(データベース)
-
10
Access VBA コントロールの参照が上手く行かない
その他(プログラミング・Web制作)
-
11
【ACCESS】フォーム名/コントロール名を文字列型変数で指定するには
Access(アクセス)
-
12
Accessでテーブル名やクエリ名一覧の抜き出し
Access(アクセス)
-
13
Access:フォームプロパティ「ダーティー時」が使えない
Access(アクセス)
-
14
アクセスで#エラーを表示させない方法は?
Access(アクセス)
-
15
Accessのフォームにて、詳細行のボタンを行の内容により、表示/非表
その他(Microsoft Office)
-
16
ACCESSでサブフォームの編集中レコードの処理
その他(Microsoft Office)
-
17
「RunSQL」と「Execute」の違い
Access(アクセス)
-
18
VBA 2回実行してしまう?
Windows 7
-
19
テキストボックスのvalueとtextの違い
Visual Basic(VBA)
-
20
Accessを使って日付を比較したい
その他(Microsoft Office)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ユーザーフォームを表示中にシ...
-
ExcelVBAのユーザーフォームの...
-
Hideについて(.NET)
-
ACCESSのフォーム、開くんです...
-
エクセルVBAのフォームを最...
-
ユーザーフォームのテキストボ...
-
【VBAユーザーフォームで閉じる...
-
フォームウィンドウを最前面に...
-
Form_Load と Form_Activate の...
-
Accessで、一つのフォーム画面...
-
ユーザーフォーム上に現在日時...
-
コントロールの存在確認
-
Microsoft Formsの「個人情報や...
-
サブフォームのイベントを取得...
-
なぜエラーになるのでしょう?...
-
アクセスのUserFormにはInitial...
-
ExcelVBAでユーザーフォームが...
-
ブックをCloseまたはQuitで閉じ...
-
フォームを開いてからの時間を取得
-
VBA コンボボックスとテキスト...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ユーザーフォームを表示中にシ...
-
ExcelVBAのユーザーフォームの...
-
ユーザーフォームのテキストボ...
-
クリックイベントなのに、2回ク...
-
MSGBOXのフォント大きさ変更
-
VBAでユーザーフォームを再表示...
-
Hideについて(.NET)
-
Form_Load と Form_Activate の...
-
モーダルフォームとモードレス...
-
コントロールの存在確認
-
ユーザーフォーム上に現在日時...
-
【VBAユーザーフォームで閉じる...
-
エクセルVBAのフォームを最...
-
ACCESSのフォーム、開くんです...
-
Microsoft Formsの「個人情報や...
-
VBA(エクセル)のユーザー...
-
フォームウィンドウを最前面に...
-
ユーザーフォームのラベルに時...
-
'ユーザーフォーム右上隅の[×...
-
Excelにて、ユーザーフォームで...
おすすめ情報