お世話になります。
フォームのコマンドボタンを押すと、処理が始まる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)
-
Access 最後のレコードに到達するまでループ処理を行う方法
Access(アクセス)
-
-
4
Excel VBAで「プログラム実行」ボタンと「プログラム停止」ボタンをつけたい
Excel(エクセル)
-
5
一時停止と再開
Visual Basic(VBA)
-
6
ACCESSでVBAから選択クエリの抽出条件を指定したい
Access(アクセス)
-
7
エクセルのエラーメッセージ「400」って?
Visual Basic(VBA)
-
8
ACCESSのクエリで抽出条件「または」は9個までしかかけませんよね…
Access(アクセス)
-
9
VBAで先月、先々月を求める方法
Visual Basic(VBA)
-
10
Accessのレポート上のテキストボックス値を設定したい
その他(データベース)
-
11
ACCESSのフォーム、開くんですが、見えないようにするには
Access(アクセス)
-
12
OLE又はDDEを使うVISUAL BESICモジュールを実行している時は…と表示されます
その他(Microsoft Office)
-
13
VB Loopを一時停止し再開あるいはキャンセル
Visual Basic(VBA)
-
14
レコードを保存するコード アクセスvba
その他(Microsoft Office)
-
15
callで順に実行されるプロシージャを途中で止める方法
Excel(エクセル)
-
16
VBAでセルに値が入力されるまで待つ方法
Visual Basic(VBA)
-
17
エクセルで空白セルを含む列の最終行の値を取得する式を教えてください
Excel(エクセル)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Accessでデータシートに同じデ...
-
Accessのテーブルデータを一気...
-
このISAMでは、リンクテーブル・・
-
Oracleで上書きImportはできま...
-
処理の途中で停止させ、再開さ...
-
Accessのインポートについて(上...
-
Access VBAからエクセルに出力...
-
構文エラー : 演算子がありませ...
-
同一テーブルのデータを参照し...
-
マテリアライズドビューとスナ...
-
結合テーブルでINSERTする方法...
-
ERROR1062:Duplicate entry.......
-
ORA-01401が表示され、データが...
-
[mysql]selectが遅い場合と早い...
-
SQL文の結合(一対多)がわから...
-
Pervasive.SQLについて
-
MS Accessを共有した際にファイ...
-
DBアプリケーションの設計方針 ...
-
アクセス レコードセットを更...
-
「クリップボードにコピーされ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Accessでデータシートに同じデ...
-
Accessのテーブルデータを一気...
-
テーブルで一番古いレコードだ...
-
ビューのソートについて
-
Oracleで上書きImportはできま...
-
結合テーブルでINSERTする方法...
-
accessでレコード更新直後の反...
-
このISAMでは、リンクテーブル・・
-
アクセス レコードセットを更...
-
重複クエリを使ったデータ削除
-
処理の途中で停止させ、再開さ...
-
マテリアライズドビューとスナ...
-
同一テーブルのデータを参照し...
-
ERROR1062:Duplicate entry.......
-
「クリップボードにコピーされ...
-
ORA-01401が表示され、データが...
-
ACCESSで容量が50MBになった...
-
Accessでの稼働日数計算の方法
-
構文エラー : 演算子がありませ...
-
MS Accessを共有した際にファイ...
おすすめ情報