レコードカウントについて

解決

かかし 2004-08-11 18:48:44 No: 85101

前回、質問させていただいた（VBから印刷する機能について）なのですが、
      その時の内容
      印刷時に印刷データがすぐに溜まらない
      リカバリをかけても復活しない
      VBをインストールすると復活する（正常にインストール終了しない）
  メッセージボックスで調査した結果、原因となっている場所がわかりました。
  以下のように変更すると、修正できることも分かりました
  エラー個所
    SQL作成
    Set RS = DBOpenRecordset(SQL)
    If RS.RecordCount = 0 Then
        MsgBox "データがありません。"
            受付番号.SetFocus
        Exit Function
    End If
  修正個所
    SQL作成
    Set RS = DBOpenRecordset(SQL)
    If RS.EOF = True Then
        MsgBox "データがありません。"
            受付番号.SetFocus
        Exit Function
    End If

  RecordCountの部分をEOFの判定に変更すると修正できたのですが、
  なぜ復活できるのかが疑問なのですが、私はどちらも同じ判断をしている
  と思うのですが。。。

  よろしければ、ご回答御願い致します。

かかし 2004-08-13 05:40:16 No: 85102

すみません。少し自分で考えてみたいと思います