Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

5504 / 9994

←次へ　｜　前へ→


	【7707】Re:開いたフォームから戻ってくるまでＶＢ...

丹後のトムキャット - 06/4/18(火) 17:27 -


	引用なし

	パスワード

共有変数を作成する、例の場合は「Pub_Flg」
共通変数用モジュール
Public Pub_Flg As Boolean

>～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～
>Public NAME As String
>
>Form_A:
>Private Sub txt_1_click()
>
>　　NAME = ""
>　　Docmd.OpenForm "Form_B"　・・・1.

　　　　Pub_Flg = True
　　　　Do Until Pub_検索中Flg = False
　　　　　　'----- 検索画面が閉じるまでループ
　　　　　　DoEvents
　　　　Loop

>　　　　　　　　　　　　　　　　　　　　←←←←←Ａ
>　　txt_1.Value = NAME　　　・・・3.
>
>End Sub
>
>Form_B:
>Private Sub btn_INPUT_Click()
>
>　　NAME = InputBox("名前をいれてください。")　・・・2.
>　　Docmd.OpenForm "Form_A"
>　　'

　　 Pub_Flg=False

>　　Docmd.Close acForm,"Form_B"
>
>End Sub
>
>～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～～

上記の様にすれば、止まるはずです。
但し、同じ画面を幾つも開くようなシステム設計であれば
変数名に注意が必要です。

451 hits

▼

【7703】開いたフォームから戻ってくるまでＶＢＡをとめる方法？ nik 06/4/17(月) 20:57