Ｐａｇｅ 353 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼画面が表示されません まさき 03/8/8(金) 10:53 ┗Re:画面が表示されません こうちゃん 03/8/8(金) 11:42 ┗有難う御座います。 まさき 03/8/8(金) 12:45 ─────────────────────────────────────── ■題名 ： 画面が表示されません ■名前 ： まさき ■日付 ： 03/8/8(金) 10:53 -------------------------------------------------------------------------
| はじめまして、ACCESSについて質問です。 自己完結のスプラッシュ画面を作成しましたが、以下のソースを 実行すると画面が表示されません。 3秒経過した後、自動更新の確認Msgが表示されるだけでBBBに遷移 してしまいます。何がいけないのでしょうか？ 又、Loadの処理をActiveに変更するとClose出来ませんと叱られます。 なぜ、LoadでOKでActiveで駄目なのでしょうか？逆なら理解出来ますが... もう2点、 ・MDB起動設定、マクロ以外でコード記述から起動時設定する事は可能でしょうか？ ・Showメソッドが無いのですが、DoCmd.OpenFormで良いのでしょうか？ ACCESSでの開発は初めてなもので初歩的な質問ですが、ご教授願います。 Private Sub Form_Load() Dim now As Single 'ﾛｺﾞﾏｰｸを表示 Me.Picture = Application.CurrentProject.Path & "\LOGO.GIF" 'ｽﾌﾟﾗｯｼｭを3秒間表示 now = Timer Do DoEvents If Timer - now >= 3 Then Exit Do Loop '無操作の際は自動更新 If ChkUpdata.Value = -1 Then MsgBox "自動更新無" Else MsgBox "自動更新有" End If Call DoCmd.Close(acForm, "FrmAAA", acSaveNo) Call DoCmd.OpenForm("FrmKakinBBB", acNormal) End Sub |
| まさきさん、こんにちは >自己完結のスプラッシュ画面を作成しましたが、以下のソースを >実行すると画面が表示されません。 >3秒経過した後、自動更新の確認Msgが表示されるだけでBBBに遷移 >してしまいます。何がいけないのでしょうか？ とりあえずこっちだけ・・ > 'ﾛｺﾞﾏｰｸを表示 > Me.Picture = Application.CurrentProject.Path & "\LOGO.GIF" Me.Visible = True >又、Loadの処理をActiveに変更するとClose出来ませんと叱られます。 >なぜ、LoadでOKでActiveで駄目なのでしょうか？逆なら理解出来ますが... ここは分かりません。他の方の回答をおまちください。 >・MDB起動設定、マクロ以外でコード記述から起動時設定する事は可能でしょうか？ できません。コマンドラインでAUTOEXEC以外のマクロをしていして、そこからVBAコードを呼び出すとかならできるかも・・ >・Showメソッドが無いのですが、DoCmd.OpenFormで良いのでしょうか？ いいと思います |
| 画面の表示出来ました。 有難う御座います。 表示を明示してあげないといけないんですね！ Showが無いのでどうやって表示させようか 散々悩みました。(^^; どうも有難う御座います。 |