ADONull以外のレコ-ドの件数を取得するには

質問

こんばんは。アクセス２００７です。

フィールド１がnullになっているレコードがあり、
それをADOで抽出したいのですが、エラーになってしまいます。

コードは下記です。

----------------------------------------------------------------
Option Compare Database
Option Explicit

Sub test()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim MyFileName As String

MyFileName = CurrentProject.FullName

cn.Open "Provider = Microsoft.ACE.OLEDB.12.0;" & "Data Source= " & MyFileName
rs.Open "テーブル1", cn, adOpenForwardOnly, adLockOptimistic

' rs.Filter = "IsNull(フィールド1) = False" 'ダメ
' rs.Filter = "フィールド1 Is Not Null" 'ダメ

MsgBox rs.RecordCount

rs.Close: Set rs = Nothing
cn.Close: Set cn = Nothing
End Sub
----------------------------------------------------------------

Filter の部分で、
「実行時エラー　3001　引数が間違った型、許容範囲外、又は競合していますとのエラーが発生します。」
になります。

null以外のレコードを読み取った後、addnewで追加していきたいので、
adLockReadOnlyは使わない方がいいですよね？

ご回答よろしくお願いします。

回答No.1

mitarashi · ベストアンサー

試しにやってみましたが、Filterの前に色々とハードルがありました。ご参考まで。なお、当方Access2010です。

Sub test()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset

'cn.Open "Provider =...だと、「データベースを開けない状態、またはロックできない状態」のエラーになることあり。
'新たなインスタンスを作ろうとするため
Set cn = CurrentProject.Connection

'これを指定しないと、rs.RecordCountが正しい値を戻さない
rs.CursorLocation = adUseClient

rs.Open "テーブル名", cn, adOpenForwardOnly, adLockOptimistic

rs.Filter = "フィールド名<>null"

MsgBox rs.RecordCount

rs.Close: Set rs = Nothing
cn.Close: Set cn = Nothing
End Sub

お礼

'cn.Open "Provider =...はあまり使わない方がいいようですね。
しかし自身ではなく別のデータベースに繋ぎたい時は困りますね。

'cn.Open "Provider =...
を
Set cn = CurrentProject.Connection
に変えて、
rs.CursorLocation = adUseClient
を追加したら
rs.Filter = "フィールド名<>null"
で値が取得できました。

しかし、
rs.Filter = "IsNull(フィールド1) = False" 'ダメ
rs.Filter = "フィールド1 Is Not Null" 'ダメ
はダメなのですね。

rs.CursorLocation = adUseClient
は並べ替えをする時に使うものだと思っていたのですが
他にも用途があるのですね。

無事解決しました。
ありがとうございました。