![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?8acaa2e)
お世話になります。
フォームのコマンドボタンを押すと、処理が始まるVBAを作成しております。
If DCount("*", "T_データ1") > 0 Then
MsgBox ("!データ1が存在します!" & Chr(13) & _
"!データ1一覧を表示します!")
DoCmd.OpenForm "F_データ1レコード"
●
'住所データを振り分ける
Call zyushoCheck
テーブルにレコードが存在して、フォームが開いた後(●印のところ)、30秒くらい
次の処理まで時間を置き、時間が経過したら、
Call zyushoCheckを開始させる方法を教えてください。
TimeInterval?でできますでしょうか?
どうぞよろしくお願いいたします。
A 回答 (1件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
Timer関数でいけると思います。
'30秒中断させるために開始時刻取得と停止時間設定をする
wkStop_Time = Timer '中断開始
wkReStart_Time = 30 '中断時間(秒)
'指定時間を過ぎるまでループさせる
Do Until Timer > wkStop_Time + wkReStart_Time
Loop
Call zyushoCheck
こんな感じです。詳しくはヘルプを参照してくださいね
この回答への補足
ご回答ありがとうございます。
ヘルプを参照しながら、コードを入れてみたのですが、
確かに処理は一時的に停止するものの、
この処理の前の「フォームを開く処理」が途中と言いますか、
完全に表示されないままストップしてしまい、
また再開されてしまいます。
完全にフォームが開いた後に処理を停止させる方法をご存知でしたら、
是非教えてくださいませ。
わからないことばかりで申し訳ございませんが、何卒ご教授のほど、
よろしくお願いいたします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- Visual Basic(VBA) 複数ブックの統合について Excel VBA 1 2022/05/13 09:48
- その他(データベース) Accessフォームからパラメーターで表示したレコードを指定のExcelのセルへ転送する方法について 2 2022/08/22 18:04
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Access(アクセス) Access IF文でテーブルに存在しない場合の処理について 2 2022/10/10 18:09
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
- Visual Basic(VBA) エクセル 2つの列にある値の完全一致を抜き出すVBA 15 2022/12/15 03:22
- Access(アクセス) accessについて(超初心者です) 1 2023/02/11 11:18
- Visual Basic(VBA) 検索のユーザーフォームの表示について 1 2023/03/27 23:31
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2023/05/23 16:28
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
VBAでの一時停止と再開の方法
その他(プログラミング・Web制作)
-
VBAで一時中断したプログラムの再開をさせたい
Visual Basic(VBA)
-
一時停止と再開
Visual Basic(VBA)
-
-
4
Access 最後のレコードに到達するまでループ処理を行う方法
Access(アクセス)
-
5
Excel VBAで「プログラム実行」ボタンと「プログラム停止」ボタンをつけたい
Excel(エクセル)
-
6
エクセルのエラーメッセージ「400」って?
Visual Basic(VBA)
-
7
エクセルVBAで5行目からオートフィルタモードに設定したいたい
Excel(エクセル)
-
8
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
9
OLE又はDDEを使うVISUAL BESICモジュールを実行している時は…と表示されます
その他(Microsoft Office)
-
10
エクセルファイルを開く時、常に同じシートから開くようにするには?
Windows Vista・XP
-
11
VB Loopを一時停止し再開あるいはキャンセル
Visual Basic(VBA)
-
12
E列のセルに数値が入れば(空白でなければ)B列の同じ行のセルに色がつく
その他(Microsoft Office)
-
13
【VBA】エクセルの指定セルの値を、Wordの指定場所に貼る方法
Excel(エクセル)
-
14
VBAでセルに値が入力されるまで待つ方法
Visual Basic(VBA)
-
15
callで順に実行されるプロシージャを途中で止める方法
Excel(エクセル)
-
16
エクセルで空白セルを含む列の最終行の値を取得する式を教えてください
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Accessでデータシートに同じデ...
-
このISAMでは、リンクテーブル・・
-
accessでレコード更新直後の反...
-
テーブルで一番古いレコードだ...
-
アクセス レコードセットを更...
-
マテリアライズドビューとスナ...
-
Oracleで上書きImportはできま...
-
ACCESSで容量が50MBになった...
-
Accessでの稼働日数計算の方法
-
mysqlのデータの上限ってありま...
-
1つのSQL文で文字列を置換する...
-
処理の途中で停止させ、再開さ...
-
Accessのテーブルデータを一気...
-
テーブルを見ると文字がぐちゃ...
-
Excelにおける「テーブル」とは...
-
同一テーブルのデータを参照し...
-
大規模なショッピングサイトのD...
-
結合テーブルでINSERTする方法...
-
クエリとパススルークエリを作...
-
SQL Server Management Studio...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Accessでデータシートに同じデ...
-
Accessのテーブルデータを一気...
-
テーブルで一番古いレコードだ...
-
このISAMでは、リンクテーブル・・
-
Oracleで上書きImportはできま...
-
アクセス レコードセットを更...
-
構文エラー : 演算子がありませ...
-
処理の途中で停止させ、再開さ...
-
ビューのソートについて
-
accessでレコード更新直後の反...
-
結合テーブルでINSERTする方法...
-
同一テーブルのデータを参照し...
-
ACCESSで容量が50MBになった...
-
マテリアライズドビューとスナ...
-
Accessのインポートについて(上...
-
MS Accessを共有した際にファイ...
-
「クリップボードにコピーされ...
-
重複クエリを使ったデータ削除
-
ERROR1062:Duplicate entry.......
-
access 特定のレコード数までエ...
おすすめ情報