Microsoft Access 掲示板

Microsoft Access 掲示板

一致検索とNOT検索に日付を追加して検索、レポート出力したい / 1

2 コメント
views
4 フォロー
1
hatena 2020/10/22 (木) 15:15:59

OSの日付書式設定が他のPCと異なっているのが原因だと思われます。

OSの日付書式設定の影響を受けないようにFormatで書式を設定するといいでしょう。

    If Me.期間至 > Format(Date, "yy/mm") Then
        strFilter = strFilter & " AND 処理日 < #" & DateAdd("m", 1, "19" & Me.期間至) & "#"
    Else
        strFilter = strFilter & " AND 処理日 < #" & DateAdd("m", 1, "20" & Me.期間至) & "#"
    End If

この部分を下記に修正

    If Me.期間至 > Format(Date, "yy/mm") Then
        strFilter = strFilter & " AND 処理日 < #" & Format(DateAdd("m", 1, "19" & Me.期間至), "yyyy/mm/dd") & "#"
    Else
        strFilter = strFilter & " AND 処理日 < #" & Format(DateAdd("m", 1, "20" & Me.期間至), "yyyy/mm/dd") & "#"
    End If
通報 ...
  • 2
    まだまだ勉強中。 2020/10/22 (木) 15:57:01 dfb63@96e2f >> 1

    早急にご回答頂きありがとうございます。
    Formatで書式をし、動作確認を行いました。

    　エラーの出る一台を調べたところ、そのPCだけ日付書式設定が　和暦となっており、
    こんなところに原因が！と考えてしまいました。
    思うように動くようになり、本当に助かりました。
    ありがとうございました。😊