過去ログ

                                Page     251
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
   通常モードに戻る  ┃  INDEX  ┃  ≪前へ  │  次へ≫   
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
 ▼Form_Openイベント  孔子 03/4/4(金) 16:16
   ┗Re:Form_Openイベント  JAZZ兵衛 03/4/13(日) 14:47

 ───────────────────────────────────────
 ■題名 : Form_Openイベント
 ■名前 : 孔子 <horms@excite.co.jp>
 ■日付 : 03/4/4(金) 16:16
 -------------------------------------------------------------------------
   すいません。またまた質問させてください。
Form_Openイベントのプロシージャ実行中に
他のフォームを展開し、その展開したフォームをアクティブにすることって可能ですか。

Private Sub Form_Open(Cancel As Integer)

DoCmd.OpenForm フォーム2 ←ここでこのフォーム2をアクティブにする

End Sub

行き詰まっております。どなたかご教授くださる方
よろしくお願いします。

 ───────────────────────────────────────  ■題名 : Re:Form_Openイベント  ■名前 : JAZZ兵衛  ■日付 : 03/4/13(日) 14:47  -------------------------------------------------------------------------
   日にちが経ってしまってますが・・・

ロード時にタイマ間隔を設定してあげて、
Timerイベントで処理してみては?
フォームを開いた後に、タイマ間隔を0に戻しておけば大丈夫(かな?)

Private Sub Form_Load()
  Forms!form_01.TimerInterval = 1
End Sub

Private Sub Form_Timer()
  DoCmd.OpenForm "form_02"
  Forms!frm_01.TimerInterval = 0
End Sub

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