Microsoft Access 掲示板

Microsoft Access 掲示板

レコードの取得について / 6
6
hatena 2023/03/06 (月) 10:38:26

作業No、作業分類は短いテキストです

ということなら、

    Set rs = CurrentDb.OpenRecordset( _
        "SELECT 作業日時,時間,SUM(時間の合計) FROM T_設計_日報入力 WHERE " & _
        "日時>#" & FirstDay & "# AND 日時<=#" & FirstDay + 42 & "# AND 作業No = '" & Me.txb作業No & "' AND 作業分類 = " & zissagyou & " GROUP BY 日時,時間,作業分類", _
     dbOpenForwardOnly, dbReadOnly)

の部分は、下記に修正してください。

    Set rs = CurrentDb.OpenRecordset( _
        "SELECT 作業日時,時間,SUM(時間の合計) FROM T_設計_日報入力 WHERE " & _
        "日時>#" & FirstDay & "# AND 日時<=#" & FirstDay + 42 & "# AND " & _
        "作業No = '" & Me.txb作業No & "' AND 作業分類 = '" & zissagyou & "' " & _ 
        "GROUP BY 日時,時間,作業分類", _
     dbOpenForwardOnly, dbReadOnly)

テキスト型のフィールドのSQL条件式は値を引用符(')で囲む必要があります。（あと、読みやすくするために改行も入れてます。）

コード中での引用符の使い方については下記で解説していますので、参照して内容をよく理解しておくことをお勧めします。

Access上のコード内で引用符(")と単引用符(')の使い分けについて - hatena chips

通報 ...