Microsoft Access 掲示板

Microsoft Access 掲示板

実行時エラー13 型が一致しません / 4

12 コメント
views
6 フォロー
4
hatena 2025/03/12 (水) 03:59:56

参考urlは私のブログですが、
そちらのコードを実行してみましたが、エラーなく説明プロパティの設定、取得ができました。

ちょっと原因が想像つかないですね。

とりあえず適当なフォームを開いておいて、下記のコードを実行するとどうなりますか。

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
    Next frm
End Sub
通報 ...