オブジェクト型の変数にフォームを入れたい

質問

ＶＢＡです。アクセスです。

Sub test2()
Dim obj As AccessObject
Dim f As Form
For Each obj In CurrentProject.AllForms
Set f = obj.Name
Debug.Print f.Name
色々操作するコード
Next
End Sub

このコードがうまく行かない理由がわからないのです。

Set f = obj.Nameの.Nameで、
「型が一致しません。」のエラーになります。

しかし、Set f = objにすると、
実行時エラー13になります。

オブジェクト型の変数にsetでフォームの名前を入れて、
その後いろいろ操作させるにはどのようにすればよろしいでしょうか？

回答No.1

mitarashi · ベストアンサー

ちょっといじってみました。
Set f = obj.Nameでは、オブジェクトに文字列を代入しようとしていますね。
Set f = Forms(obj.Name)なら良いと思いましたが、フォームが開いていないとエラーになりますのでisloadedで判別する必要があります。（これが実行時エラーの原因かも）
であれば、test2()の方は開いているフォームしか対象にならない様なので同じ事かなとも思いました。
ただ、何をなさりたいか分かりませんが、先日別件で調べて知ったばかりですが、フォームのプロパティの操作はデザインモードで開かないと（非表示でも可）出来ない様ですのでご参考までに。

Sub test()
Dim obj As AccessObject
Dim f As Form

For Each obj In CurrentProject.AllForms
If obj.IsLoaded Then
'開いていないとエラーになる
Set f = Forms(obj.Name)
'色々操作するコード
End If
Next
End Sub

Sub test2()
Dim f As Access.Form

For Each f In Access.Forms
'色々操作するコード
Debug.Print f.Name
Next
End Sub

お礼

ありがとうございました。

回答No.3

don_go

＞Dim f As Form
とした場合、f はオブジェクト型の変数ではありません。
オブジェクト型の変数として使用するのであれば

Dim obj As AccessObject
Dim f As Object

For Each obj In CurrentProject.AllForms
　Set f = obj
　Debug.Print f.Name
　色々操作するコード
Next

とします。

お礼

ありがとうございました。

回答No.2

nda23

Set命令は左辺がオブジェクト型の
場合にのみ使用します。
Nameプロパティは文字型であり、
オブジェクト型ではありません。
よって、Set f = obj.Nameは間違い
です。
>Set f = obj
f はForm、obj はAccessObjectです。
型が違うのでエラーになります。

型が特定できない場合は変数を
ObjectかVariant型で定義すれば
とりあえず、「型が一致しません。」は
避けられます。

お礼

ありがとうございました。