- ベストアンサー
CurrentDb.Properties.Coun
Sub test() Debug.Print CurrentDb.Properties.Count End Sub 上記をアクセスで実行すると４７が返るのですが 何の数でしょうか？ アクセス２０１０です。
- ybqwgcakwulw
- お礼率92% (48/52)
- オフィス系ソフト
- 回答数1
- ありがとう数7
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
あなたが指示したCurrentDb.Properties.Countの数です。 Sub test2() Dim prp As DAO.Property Dim i As Integer On Error Resume Next For Each prp In CurrentDb.Properties i = i + 1 Debug.Print i, prp.Name, prp.Value Next End Sub だと少し解りやすいかも・・。
お礼
ご回答ありがとうございました。