Access VBA質問箱 IV

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

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


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

7435 / 9994

←次へ　｜　前へ→


	【5751】1日を越えた時間はどうすれば良いのでしょ...

わん - 05/8/4(木) 13:40 -


	引用なし

	パスワード

タイムレコーダーを使用した時間管理をしようと思うのですが、
1日を越えると上手くいきません。
どこを修正すれば良いのでしょうか？

コードは以下のようになっております。

Private Sub Cls社員氏名()
Me.社員番号 = Null
Me.社員氏名 = Null
End Sub
Private Sub 退勤_Click()
　If IsNull(Me.社員番号) Then
　MsgBox "社員番号を入力して下さい。"
　　Me.社員番号.SetFocus
　Exit Sub
　End If
　If DCount("*", "社員労働時間", "社員番号=Forms!タイムレコーダー!社員番号 And 打刻日付=Date()") = 0 Then
　　　MsgBox "出勤処理が済んでいません。"
　　　Call Cls社員氏名
　　　Exit Sub
　End If
　 If DCount("*", "社員労働時間", "社員番号=Forms!タイムレコーダー!社員番号 And 打刻日付=Date()" & "And Not IsNull(退勤時間)") > 0 Then
　　　MsgBox "すでに退勤済みとなっています。"
　　　Call Cls社員氏名
　　　Exit Sub
　End If
　DoCmd.SetWarnings False
　DoCmd.OpenQuery "退勤打刻"
　Call Cls社員氏名
　DoCmd.SetWarnings True
End Sub

多分、ここら辺に修正を加えるのではないかと思うのですが？
If DCount("*", "社員労働時間", "社員番号=Forms!タイムレコーダー!社員番号 And 打刻日付=Date()") = 0 Then

どなたか教えて頂けますでしょうか。
お願いします。

475 hits

▼

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

≪