質問: Nothing End Sub
回答: #3です たびたびの連投ですみません。 Find 後の EOF についてなんですが、私の環境では対象がなければ EOF = True となってました。 そういう動きを想定していたので、フムフム・・・ということでヘルプ等は参照してませんでした。 その中で、あの回答を目にし、改めてヘルプを読んでみると・・・ 私の場合、動作が食い違っていた時にはヘルプ側を信じて見る事をします。 で、その動きを再現する様にいろいろとやってみます。 (今もですが)#3ではその時間がないので・・・で記述していました 私の場合、Find を使ったものは、あまり作ってないので、 今後、ヘルプ通りの動きになったとしても、さほど影響は無いのですが・・・ どうしても再現できなかった場合、どちらでも動く記述にしておきますか・・・ 例えば、 Dim sS As String Dim bNext As Boolean ・・・・・・ ・・・・・・ sS = "山田 太郎" rsC.Find "名簿 = '" & sS & "'" bNext = True If (rsC.EOF) Then bNext = False Else If (rsC("名簿") <> sS) Then bNext = False End If If (bNext) Then ' 見つかった時の処理・・・ ※ Find はあまり使った事がないです。 Find よりも Filter を使った絞り込みの方を良く使ってました。 Filter 後は、RecordCount でレコード数を知る事が出来るし・・・ (EOF を見た単純ループでクルクル処理できる・・・・等など) Filter は Find より遅くなると思いますが、想定したデータ量で満足できる応答であれば・・・ ※ 今もチョコチョコと再現を試みていますが難儀しています(Vista + 2007) 現状では、 ・対象がなかったら EOF = True になるし、 ・他の部分 AbsolutePosition は負値になるみたい 惑わせてすみません。 回答としては、ヘルプ(仕様?)を提示すべきだったんでしょうか・・・ ※ #2で記述したものはそのまま生きると思います。 失礼しました。(識者の回答を待ってください)