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

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

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 回答日時： 2013/01/05 00:31

ちょっといじってみました。

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

この回答へのお礼

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

お礼日時：2013/01/14 10:27

No.3 回答者： don_go 回答日時： 2013/01/05 23:26

＞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

とします。

この回答へのお礼

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

お礼日時：2013/01/14 10:27

No.2 回答者： nda23 回答日時： 2013/01/05 12:13

Set命令は左辺がオブジェクト型の

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

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

この回答へのお礼

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

お礼日時：2013/01/14 10:27