Access

自分の為の備忘録です。

デバッグでよく使うので、記録しておきます。

ADOやDAOでレコードセットを作ったときによく

「要求された名前、または序数に対応する項目がコレクションで見つかりません」

というエラーが出ます。

レコードセットにないフィールドを指定したのが原因なんだけど、レコードセットの元になるテーブルを見れば分かるんだけど、面倒だからイミディエイト・ウィンドウに出力して確認したいときに使います。

Dim A as Integer
Dim i as Integer

A = rs.Fields.Count - 1
'フィールドの数をAに代入

For i = 0 To A
Debug.Print rs.Fields(i).Name
Next i
'ループで全フィールド名を出力

ま、たいしたことないんですけどね。