| |
▼小僧 さん：
早速のご返信感謝致します。
度々ですがお願いします。
打刻日付は日付型です。書式は日付(L)となっております。
先程教えていただいたコードも謝りがあったので訂正しました。
今度は、どちらにも構文エラーが発生しました。
構文エラーの内容は以下の通りです。
クエリ式
社員番号=Forms!社員用タイムレコーダー!社員番号And打刻日付
=#2005/08/01#'の構文エラー:演算子がありません
早速コードを見直して書き直しました。
確認のため、そのままをコピーします。
１つめ
If DCount("*", "社員労働時間", "社員番号=Forms!社員用タイムレコーダー!社員番号" & "And 打刻日付=#" & MyDate & "#") = 0 Then
２つめ
If DCount("*", "社員労働時間", "社員番号=Forms!社員用タイムレコーダー!社員番号 And" & " 打刻日付=#" & MyDate & "# And Not IsNull(退勤時間)") > 0 Then
>あとは
>>DoCmd.OpenQuery "退勤打刻"
>
>にある「退勤打刻」クエリの中身ですが…。
>ここにもDate関数を使っていませんでしょうか？
クエリの中身は以下のようになっています。
｢出勤打刻｣
フィールド 式1:Forms!タイムレコーダー!社員番号 式2:Date() 式3:Now()
ﾚｺｰﾄﾞの追加 社員番号 打刻日付 出勤時間
｢退勤打刻｣
フィールド 退勤時間 打刻日付 社員番号
ﾚｺｰﾄﾞの更新 Now()
抽出条件 Date() Forms!タイムレコーダー!社員番号
情けないことですが、どうか宜しくお願いいたします。
|
|
わん
- 05/8/4(木) 20:28 -
