Microsoft Access 掲示板

Microsoft Access 掲示板

ADOでレコードが飛ばされてしまう。 / 9

16 コメント
views
4 フォロー
9
hatena 2024/05/02 (木) 11:11:29

コードには問題がなさそうなので、データの問題の可能性が大です。

このような場合は、こちらにはデータがないのでそちらでデバッグ作業をするしかなです。
デバッグの方法についてはすでにリンクが紹介されていますので、そちらを参照してもらうとして、
とりあえず下記のデバッグコードを埋め込んで、イミディエイトの出力結果を確認してみてください。

'前略

        ElseIf rs!残業区分 = 2 Then
            Debug.Print rs!残業管理ID, rs!日付     'デバッグコード
            If DCount("休日", "tbl休日", "休日 = #" & rs!日付 & "#") > 0 Then

'後略
通報 ...
  • 11
    あん 2024/05/02 (木) 11:26:56 b41ab@001b1 >> 9

    hatena様
    イミディエイトでは何も出力されませんでした。

    デバッグコードの位置を以下にすると、

    Do Until rs.EOF

    Debug.Print rs!残業管理ID, rs!日付

        If rs!残業区分 = 1 Then

    以下のように出ます。
     84           2024/04/20
     130          2024/04/21
     85           2024/04/21