Microsoft Access 掲示板

hatena様のAllopenForms()を実行したところ、エラーなく実行できました。
原因はprpを利用していないからだと思います。
以下の通り、For Each prp In frm.Properties　から以下3行を追加し、実行したところ、
For Each prp In frm.Properties　にて「実行時エラー’13’ 型が一致しません。」が表示されました。
prpの使い方が分かっておらずfrmのように扱うことができないのでしょうか。

Sub AllOpenForms()
    Dim frm As Form, prp As Property

    ' Enumerate Forms collection.
    For Each frm In Forms
        ' Print name of form.
        Debug.Print frm.Name

        Debug.Print frm.Properties.Count
        Debug.Print frm.Properties(0).Name
        Debug.Print frm.Properties(0).value

        For Each prp In frm.Properties
            Debug.Print prp.Name
        Next prp

    Next frm
End Sub