Access VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7432 / 9994 ←次へ　｜　前へ→
【5754】Re:1日を越えた時間はどうすれば良いので...
回答  小僧  - 05/8/4(木) 16:46 -
引用なし
パスワード
   ▼わん さん：
こんにちは。

>翌日午前1:00の労働時間の場合があります。

わん さんの職場は、午前5時に日付が替わるとすると

Dim MyDate As Date
　　If Hour(Now()) < 5 Then
　　　　MyDate = Date - 1
　　Else
　　　　MyDate = Date
　　End If

これで変数「MyDate」に日付が入ります。

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

ここの Date関数を先ほどの「MyDate」に置き換えるのですが、
日付型なので「#」で括る事になります。

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

もう一箇所の Date 関数も同じ事をしてあげてください。

もし説明が解り難いようでしたら再度ご質問下さい。
464 hits
▼ 【5751】1日を越えた時間はどうすれば良いのでしょ... わん 05/8/4(木) 13:40 質問
【5752】Re:1日を越えた時間はどうすれば良いので... 小僧 05/8/4(木) 14:27 発言
【5753】Re:1日を越えた時間はどうすれば良いので... わん 05/8/4(木) 15:35 質問
【5754】Re:1日を越えた時間はどうすれば良いので... 小僧 05/8/4(木) 16:46 回答≪
【5755】Re:1日を越えた時間はどうすれば良いので... わん 05/8/4(木) 19:05 質問
【5756】Re:1日を越えた時間はどうすれば良いので... 小僧 05/8/4(木) 19:30 回答
【5757】Re:1日を越えた時間はどうすれば良いので... わん 05/8/4(木) 20:28 質問
【5760】Re:1日を越えた時間はどうすれば良いので... 小僧 05/8/5(金) 11:11 回答
【5768】Re:1日を越えた時間はどうすれば良いので... 小僧 05/8/5(金) 13:53 発言
【5776】Re:1日を越えた時間はどうすれば良いので... わん 05/8/6(土) 20:30 お礼
【5777】Re:1日を越えた時間はどうすれば良いので... わん 05/8/7(日) 14:17 お礼
【5783】Re:1日を越えた時間はどうすれば良いので... 小僧 05/8/8(月) 11:49 発言
【5784】Re:1日を越えた時間はどうすれば良いので... 小僧 05/8/8(月) 12:59 発言
【5822】Re:1日を越えた時間はどうすれば良いので... わん 05/8/10(水) 20:08 お礼
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7432 / 9994 ←次へ　｜　前へ→
ページ：  ┃  記事番号：
1078259
(SS)C-BOARD v3.8 is Free