なんでだろ?テストデータが1レコード登録してあるので、RecordCount=1になるはずなのに…
Private Sub ADOtest() Dim rs as ADODB.Recordset Set rs = New ADODB.Recordset rs.Open "T_テスト", CurrentProject.Connection, adOpenDynamic, adLockOptimistic MsgBox rs.RecordCount ’←ここで「-1」 rs.Close Set rs = Nothing End Sub |
もしかして、
「T_テスト」はリンクテーブル。
上記コードは標準モジュールに書いている。
けど、それが原因かなぁ。
まさかなぁ…
0件のコメント