Ｐａｇｅ 301 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼タイトルの… トク 03/6/5(木) 17:57 ┣Re:タイトルの… こうちゃん 03/6/5(木) 19:17 ┣Re:タイトルの… イケガミ 03/6/5(木) 21:19 ┗Re:タイトルの… toku 03/6/13(金) 17:27 ┗んでは、こんな感じで こうちゃん 03/6/16(月) 13:46 ┗Re:んでは、こんな感じで トク 03/6/17(火) 16:27 ┗Re:んでは、こんな感じで こうちゃん 03/6/17(火) 16:59 ┗ありがとうございました！ トク 03/6/17(火) 17:31 ─────────────────────────────────────── ■題名 ： タイトルの… ■名前 ： トク ■日付 ： 03/6/5(木) 17:57 -------------------------------------------------------------------------
| アクセスで「なんとか.mdb」を開いたらタイトルフォームが出てきて ５秒したら消えてもらえるとかってどうやったらできるのでしょうか。。。 どなたかアイデアをお願いいたしますm(_ _)m |
| トクさん、こんにちは >アクセスで「なんとか.mdb」を開いたらタイトルフォームが出てきて >５秒したら消えてもらえるとかってどうやったらできるのでしょうか。。。 >どなたかアイデアをお願いいたしますm(_ _)m Accessのバージョンはなんでしょ？ 2000でしたら、mdbファイルと同名のビットマップファイルを、同一フォルダにおいておけば、ファイルが開くまでの間、そのビットマップファイルが表示されますよ。 >５秒したら消えてもらえるとかって 時間の指定はできませんが・・ |
| フォームのタイマイベントを使ってみては？ |
| こうちゃんさんこんにちわ！ イケガミさんこんにちわ！ お返事ありがとうございます！！ ▼こうちゃん さん： >Accessのバージョンはなんでしょ？ アクセスのバージョンは2000です。 OSもWindows2000です。 >2000でしたら、mdbファイルと同名のビットマップファイルを、同一フォルダにおいておけば、ファイルが開くまでの間、そのビットマップファイルが表示されますよ。 一瞬で消えてしまうんですけど‥（T-T) 絵ではなくてですね、自分の手作りフォームでこれから始まりますよ〜みたいなお知らせをしたいのです。 ▼イケガミ さん： >フォームのタイマイベントを使ってみては？ たしか、これはフォームのプロパティを開いてやるんですよね。 アイデアありがとうございます！ でもですね、そういうの（プロパティとか触らずに）全部VBAで記述したいのですが、そんなことって出来たりするのでしょうか？ |
| tokuさん、こんにちは いろいろ方法はありそうですが、メニュー用フォーム等のオープンイベントで・・・ Private Sub Form_Open(Cancel As Integer) Dim Stime As Date '最初に表示したいフォームを指定してね。 DoCmd.OpenForm "フォーム" Stime = Now() + CDate("00:00:03") Do While Stime > Now DoEvents Loop DoCmd.Close acForm, "フォーム" End Sub |
| こうちゃんさん 返答ありがとうございます！ でもですね、Stimeで指定した時間だけ止まってるだけで フォームビューが出てこないのですが…（T-T) フォームの名前って言うのは「なんとか.mdb」を開いて その中のフォームオブジェクトの新規作成したら 『フォーム1』ってなってるやつですか？ |
| ▼トク さん： >こうちゃんさん >返答ありがとうございます！ >でもですね、Stimeで指定した時間だけ止まってるだけで >フォームビューが出てこないのですが…（T-T) > >フォームの名前って言うのは「なんとか.mdb」を開いて >その中のフォームオブジェクトの新規作成したら >『フォーム1』ってなってるやつですか？ そうですね。 たとえば、実際に起動するフォームが「f_menu」として、その前に数秒表示するフォームが「f_open」とします。 起動時の設定でf_menuが開くように設定しておいて、f_menuのオープンイベントを設定します。 数秒表示するフォームのオープンイベントではありませんのでご注意くださいね。 Private Sub Form_Open(Cancel As Integer) Dim Stime As Date DoCmd.OpenForm "f_open" Stime = Now() + CDate("00:00:03") Do While Stime > Now DoEvents Loop DoCmd.Close acForm, "f_open" End Sub |
| こうちゃんさんのコードで思い描いてた動きができました。 これからもうちょっと黙々してみようと思います！ ありがとうございました。 またそのうち書き込みしに来ると思いますので、よろしくお願いします。 |