実行時エラー3021

質問

実行時エラー3021「BOFとEOFのいずれかTRUEになっていか、または現のレコード要求された操作には、現在のレコードが必要です。」
というエラーが発生します。

エラーになるコードの一部を掲載します。
コードの内容は、アクセスのT_店名テーブルで、str店名の値同じレコードの地図フィールドの値を取得する内容です。
地図フィールドがnullなら何も取得しないようにｉｆステートメントで分けています。

------------------------------------------------------------
str店名="abc会社"

rs.Open "SELECT * FROM T_店名", cn, adOpenStatic, adLockPessimistic
rs.Filter = "店名 = '" & str店名 & "'"

If IsNull(rs("地図")) = True Then

Else

’ここでエラーになる
str地図 = rs("地図")
End If

rs.Close: Set rs = Nothing
------------------------------------------------------------

"abc会社"は、コード上（VBA上）
IsNull(rs("地図")) = True では、Falseになってしまい、
str地図 = rs("地図")
でエラーになります。

目で見た限り
"abc会社"は、T_店名テーブルに存在しますし、
地図フィールドはNullっぽいです。

なのになぜ
If IsNull(rs("地図")) = True Then
で、True にならないのでしょうか？

True にならないために、
str地図 = rs("地図")
で、実行時エラー3021というエラーになってしまうようです。

回答No.2

m3_maki · ベストアンサー

> 実行時エラー3021「BOFとEOFのいずれかTRUEになっていか、または現のレコード要求された操作には、現在のレコードが必要です。」

Filter 後に このエラーが発生するのなら、
該当するレコードが無い、ということでしょう。

> 目で見た限り
> "abc会社"は、T_店名テーブルに存在しますし、
> 地図フィールドはNullっぽいです。

「目で見た限り」 とか 「っぽい」 などと言ってないで
きちんと確認しましょう。

それがデバッグというものです。

お礼

ご回答ありがとうございました。

回答No.1

kosamon

>目で見た限り"abc会社"は、T_店名テーブルに存在しますし、

>地図フィールドはNullっぽいです。

ヘルプより

Null 値は、バリアント型 (Variant) に有効なデータが入っていないことを示す値であり、変数が初期化されていないことを示す Empty 値や、Null 文字列と呼ばれる長さが 0 の文字列 ("") とは異なります。

なんて事はありませんか？

お礼

ご回答ありがとうございました。