
No.1ベストアンサー
- 回答日時:
やり方はいろいろ考えられると思いますが、一例を挙げると下記の通りです。
Private Sub Command1_Click()
DoCmd.OpenForm "FormName"
Do While CurrentProject.AllForms("FormName").IsLoaded
DoEvents
Loop
'処理
End Sub
IsLoaded プロパティが実装されていないバージョン (Access 97 以前?) の場合は、下記のように、同等のユーザー定義関数を実装すればOKです。
Private Sub Command1_Click()
DoCmd.OpenForm "FormName"
Do While FormIsLoaded("FormName")
DoEvents
Loop
'処理
End Sub
Public Function FormIsLoaded(ByRef strFormName As String) As Boolean
Dim i As Long
FormIsLoaded = True
For i = 0 To Forms.Count - 1
If StrComp(Forms(i).Name, strFormName, vbTextCompare) = 0 Then Exit Function
Next i
FormIsLoaded = False
End Function
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ExcelVBAのユーザーフォームの...
-
ユーザーフォームを表示中にシ...
-
クリックイベントなのに、2回ク...
-
Form_Load と Form_Activate の...
-
テキストボックス入力データの...
-
ユーザーフォーム上に現在日時...
-
EXCEL VBA ユーザーフォームの...
-
VB.NETでフォームロード中のエ...
-
Microsoft Formsの「個人情報や...
-
ユーザーフォームのラベルに時...
-
VBAでユーザーフォームを再表示...
-
C#でフォームアプリケーション...
-
コントロールの存在確認
-
Hideについて(.NET)
-
アニメGifが止まってしまう?
-
VBA(エクセル)のユーザー...
-
Excelにて、ユーザーフォームで...
-
Current、Openがそれぞれ2回発...
-
VBAで画像を表示する方法
-
アクセスのUserFormにはInitial...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ユーザーフォームを表示中にシ...
-
ExcelVBAのユーザーフォームの...
-
Microsoft Formsの「個人情報や...
-
Form_Load と Form_Activate の...
-
VBAでユーザーフォームを再表示...
-
クリックイベントなのに、2回ク...
-
ユーザーフォーム上に現在日時...
-
テキストボックス入力データの...
-
VBAのテキストフォームの折り返...
-
ACCESSのフォーム、開くんです...
-
Hideについて(.NET)
-
ユーザーフォームのテキストボ...
-
エクセルVBAのフォームを最...
-
モーダルフォームとモードレス...
-
EXCEL VBA ユーザーフォームの...
-
フォームのテキストボックスな...
-
コントロールの存在確認
-
パソコンの画面に合わせてユー...
-
フォームウィンドウを最前面に...
-
Accessで、一つのフォーム画面...
おすすめ情報