オブジェクト型の変数にフォームを入れて操作した

質問

オブジェクト型の変数にフォームを入れて操作したいのですが
Sub アクセス()
Dim F As Form
Set F = "フォーム1"
End Sub
以下省略

フォーム1の部分が
「型が一致しません」と言うエラーになりまず。
どこが間違ってるのでしょうか？

回答No.1

nicotinism · ベストアンサー

オブジェクト型の変数に、Strin型の『"フォーム1"』を格納しようとしているからです。
Set F = Forms("フォーム1") のようになります。
但しオブジェクト（フォーム1）が開いていない場合はエラーになりますので
開いてからSetですね。
Fname as string
F as form
Fname="フォーム1"
Docmd.openform Fname, ・・・・
Set ・・・

お礼

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