| |
小僧さん：
早速のご返答ありがとうございます。
労働環境のことに触れておりましたが、
例を挙げると
本日午後12:00〜翌日午前1:00の労働時間の場合があります。
(あまり笑えないですが･･･)
休憩時間は後でクエリで計算しますので気にしなくて構いません。
ですから、
>Dim MyDate As Date
>
>とでもして、変数「MyDate」に
>
>「退勤ボタンを押す時間が12:00より早かったら Date() - 1」
>「 以降だったら Date() 」
で良いと思います。
具体的にはどのように書き込めばよろしいのでしょうか？
お恥ずかしいのですがよくわかりません。
どうか宜しくお願いしします。
Private Sub 退勤_Click()
Dim MyDate As Date
･
･
･
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
･
･
･
End Sub
|
|
わん
- 05/8/4(木) 15:35 -
