アクセス　フォームが存在するかを一発で取得したい

解決済

質問者：bqptghkccnok
質問日時：2013/10/26 09:34
回答数：2件

フォームが５０個くらいあるのですが
該当のフォームが存在するかｖｂａで取得したいのですが
If CurrentProject.AllForms("フォーム１").IsLoaded Then
のように、一発で取得する方法はありますか？

今は
Sub Sample1()
Dim DB As DAO.Database
Dim f As DAO.Document
Set DB = CurrentDb
Dim strForm As String
Dim flg As Boolean

strForm = "Fメインメニュー"

For Each f In DB.Containers!Forms.Documents
If strForm = f.Name Then
flg = True
Exit For
End If
Next

If flg = False Then
MsgBox strForm & "は存在しません"
End If

End Sub
のような感じで、すべてのフォームをループしているのですが
無駄が多い気がします。
改善策があればお願いします。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (2件)

ベストアンサー優先
最新から表示
回答順に表示

No.1ベストアンサー

回答者： Br6
回答日時：2013/10/26 12:09

おそらくそういった方法でループしてチェックするしかないと思います。

50個というと多いような気がしますが、コンピュータにとっては一瞬の処理ですからそれほど気にしなくてもよいかと思います。

おわかりのことかもしれませんが、その処理を関数化すれば
If CurrentProject.AllForms("フォーム１").IsLoaded Then
と同じように使えますよ。

以下の関数を作る

Public Function ExistsForm(ByVal formName As String) As Boolean
Dim f As Object

For Each f In CurrentProject.AllForms
If f.Name = formName Then
ExistsForm = True
Exit Function
End If
Next
End Function

これを
if ExistsForm("フォーム1") then
のように呼びだせば、フォームの存在をチェックできます。