Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

7430 / 9994

←次へ　｜　前へ→


	【5756】Re:1日を越えた時間はどうすれば良いので...

小僧 - 05/8/4(木) 19:30 -


	引用なし

	パスワード

▼わんさん：
こんばんは。

>１つめは、
>If DCount("*", "社員労働時間", "社員番号=Forms!社員用タイムレコーダー!社員番号 And " _
>　　　　　& "打刻日付=#" & MyDate & "#") " & "And Not IsNull(退勤時間)") > 0 Then

閉じカッコの位置がおかしい…ですね。

If DCount("*", "社員労働時間", "社員番号=Forms!社員用タイムレコーダー!社員番号 And " _
　　　　　& "打刻日付=#" & MyDate & "# And Not IsNull(退勤時間)") > 0 Then

>２つめは、
>ちなみにテーブルは以下のようになっています。
>勤怠ID　社員番号　　打刻日付　　　出勤時間　　退勤時間　
>1　　　　太郎　　　2005年8月1日　　9:50:00　　22:10:10
>2　　　　花子　　　2005年8月1日　　9:55:00　　22:10:30
>3　　　　一郎　　　2005年8月1日　 11:50:20　　　　　　　　←ここが問題です。
>･　　　　　･　　　　　　･　　　　　　･
>･　　　　　･　　　　　　･　　　　　　･
>･　　　　　･　　　　　　･　　　　　　･　　　　　
>
>出勤時(追加クエリ)と退勤時(更新クエリ)となっています。
>お忙しいとは思いますが宜しくお願いします。

直接の原因かどうかは解りませんが、「2005年8月1日」という表記ですと
打刻日付は「日付型」でなくて「テキスト型」でしょうか？
そうですと、「#」の部分が「'」となりますね。

あとは
>DoCmd.OpenQuery "退勤打刻"

にある「退勤打刻」クエリの中身ですが…。
ここにもDate関数を使っていませんでしょうか？

476 hits

▼

【5751】1日を越えた時間はどうすれば良いのでしょ... わん 05/8/4(木) 13:40