過去ログ

                                Page     237
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
   通常モードに戻る  ┃  INDEX  ┃  ≪前へ  │  次へ≫   
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
 ▼INPUTボックスのようなフォームの作り方  POPPY 03/3/27(木) 0:28
   ┣Re:INPUTボックスのようなフォームの作り方  yu-ji 03/3/27(木) 10:08
   ┃  ┗Re:INPUTボックスのようなフォームの作り方  POPPY 03/3/27(木) 11:22
   ┣Re:INPUTボックスのようなフォームの作り方  イケガミ 03/3/27(木) 13:09
   ┃  ┗Re:INPUTボックスのようなフォームの作り方  yu-ji 03/3/27(木) 15:45
   ┗Re:INPUTボックスのようなフォームの作り方  YU-TANG 03/3/29(土) 0:57
      ┣Re:INPUTボックスのようなフォームの作り方  yu-ji 03/3/31(月) 10:19
      ┗Re:INPUTボックスのようなフォームの作り方  POPPY 03/3/31(月) 13:29

 ───────────────────────────────────────
 ■題名 : INPUTボックスのようなフォームの作り方
 ■名前 : POPPY
 ■日付 : 03/3/27(木) 0:28
 -------------------------------------------------------------------------
   あるフォームからINPUTボックスを表示し値を入力してもらいその値によって何か処理を行っていました。
 ↓
値を入力してもらうのではなくオプションボタンで選択してもらうように変更するためにフォームを作成しました。

そこでよくわからなくなったんですが、INPUTボックスの場合INPUTボックスが閉じられるまで呼び出しもとのSUBは停止してると思うのですが、フォームの場合はフォームをとじなくても呼び出しもとのSUBが動いています。

フォームを閉じた時、呼び出し元に戻る方法を教えてください。よろしくお願いします。

 ───────────────────────────────────────  ■題名 : Re:INPUTボックスのようなフォームの作り方  ■名前 : yu-ji  ■日付 : 03/3/27(木) 10:08  -------------------------------------------------------------------------
   ▼POPPY さん:
>そこでよくわからなくなったんですが、INPUTボックスの場合INPUTボックスが
>閉じられるまで呼び出しもとのSUBは停止してると思うのですが、フォームの場合は
>フォームをとじなくても呼び出しもとのSUBが動いています。
>フォームを閉じた時、呼び出し元に戻る方法を教えてください。よろしくお願い
>します。

INPUTBOXは、内部的にアクションがあるまで処理を停止するというプログラムが
書かれているんだと思います。
なのでフォームでやるなら同様の処理を、こちらでつけてやる必要があります。

例えば”フォームが開いているかどうか”でループをしてはどうでしょうか?
”フォームが開いているか”をチェックする方法はいくつかあると思いますが、
とりあえずこういう方法でもチェックできます。


  DoCmd.OpenForm "test1"
  Set dbs = CurrentProject
  Do Until dbs.AllForms("test1").IsLoaded = False
    DoEvents
  Loop

  MsgBox "閉じられました!"

#ちなみにプログラムによるんだと思いますが自分なら、上記の方法は使わずに
#INPUTBOX代用フォームのCLOSEイベントで、続きのプログラムを書くと思いますが。
#バックグラウンドでずっと待ってるというのは、なんか抵抗が。
#好みの問題っぽいですが。

 ───────────────────────────────────────  ■題名 : Re:INPUTボックスのようなフォームの作り方  ■名前 : POPPY  ■日付 : 03/3/27(木) 11:22  -------------------------------------------------------------------------
   ▼yu-ji さん:
ありがとうございました。

>#ちなみにプログラムによるんだと思いますが自分なら、上記の方法は使わずに
>#INPUTBOX代用フォームのCLOSEイベントで、続きのプログラムを書くと思いますが。
>#バックグラウンドでずっと待ってるというのは、なんか抵抗が。
>#好みの問題っぽいですが。

今はyu-ji さんが言ってらっしゃるように、INPUTBOX代用フォームのCLOSEイベントに続きのプログラムを書いています。どちらにするか悩んでみます。
またよろしくお願いします。  POPPY

 ───────────────────────────────────────  ■題名 : Re:INPUTボックスのようなフォームの作り方  ■名前 : イケガミ <ikegami_kumamoto@dosule.com>  ■日付 : 03/3/27(木) 13:09  -------------------------------------------------------------------------
   "Modal/作業ウィンドウ固定" プロパティ
"PopUp/ポップアップ" プロパティ

ここらへんのプロパティを設定すればいいんじゃないかな?

 ───────────────────────────────────────  ■題名 : Re:INPUTボックスのようなフォームの作り方  ■名前 : yu-ji  ■日付 : 03/3/27(木) 15:45  -------------------------------------------------------------------------
    ▼イケガミ さん:
>"Modal/作業ウィンドウ固定" プロパティ
>"PopUp/ポップアップ" プロパティ
>
>ここらへんのプロパティを設定すればいいんじゃないかな?

ん?
上記設定でDocmdでフォームを開いても、その次のコードは実行されますよね?

>>そこでよくわからなくなったんですが、INPUTボックスの場合INPUTボックスが
>>閉じられるまで呼び出しもとのSUBは停止してると思うのですが、フォームの
>>場合はフォームをとじなくても呼び出しもとのSUBが動いています。
>>フォームを閉じた時、呼び出し元に戻る方法を教えてください。

呼び出し元=”呼び出したフォーム”ではなくて”呼び出したコード1文”で、
呼び出しもとのSUBが動いて=”続きのコードが実行されて”という意味だと思い
レスをしましたが。。。

 ───────────────────────────────────────  ■題名 : Re:INPUTボックスのようなフォームの作り方  ■名前 : YU-TANG  ■日付 : 03/3/29(土) 0:57  -------------------------------------------------------------------------
   > フォームを閉じた時、呼び出し元に戻る方法を教えてください。

DoCmd.OpenForm "フォーム名", , , , , acDialog
' 上記フォームを閉じた後に実行したいコード
' Ex) MsgBox "閉じました"

 ───────────────────────────────────────  ■題名 : Re:INPUTボックスのようなフォームの作り方  ■名前 : yu-ji  ■日付 : 03/3/31(月) 10:19  -------------------------------------------------------------------------
   ▼YU-TANG さん:
>> フォームを閉じた時、呼び出し元に戻る方法を教えてください。
>
>DoCmd.OpenForm "フォーム名", , , , , acDialog

こんな方法があったんですね。
勉強になりました、ありがとうございます。

 ───────────────────────────────────────  ■題名 : Re:INPUTボックスのようなフォームの作り方  ■名前 : POPPY  ■日付 : 03/3/31(月) 13:29  -------------------------------------------------------------------------
   ▼YU-TANG さん:
>> フォームを閉じた時、呼び出し元に戻る方法を教えてください。
>
>DoCmd.OpenForm "フォーム名", , , , , acDialog
>' 上記フォームを閉じた後に実行したいコード
>' Ex) MsgBox "閉じました"

ありがとうございました。すごく感謝です。

━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━    通常モードに戻る  ┃  INDEX  ┃  ≪前へ  │  次へ≫    ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━                                 Page 237