hiya, just posted a message today.
Problem, ive got a work database which employees logon to and enter time against certain projects they have been working on. What i need is to somehow create some code that will look at each of the employees names and sum up there total time for the previous day. If this is less than say 6 hours of timesheets or even zero entries have been made, I want a pop up message to pop up as soon as they logon to the datatbase the next day and jsut mention they need to fill in there timesheets.
At the moment each person when they log on to the database has there name they logged in as, placed into a field (called "First Name") within form (called "Employee Startup Screen"). *** maybe use this as a way to identify who is logged on and when to run the code.***
Timesheet table has the following columns:
Employee; Date; ProjectID; Timespent
PLEASE help im a noob at this and have tried using some code on a query that sums up the previous days times filter on a employee. When the "Employee Startup Screen" opens it runs the following code
Dim internal1 As Integer
internal1 = Me.SumOfTimeSpent
If internal1 < 6 Then
MsgBox " Less than 6 hours have been entered " & Chr(13) & " into your timesheet for yesterday. ", vbCritical, Title1
ElseIf DCount("*", Me.SumOfTimeSpent) <> 0 Then
end if
End Sub
----------------------------
BUT it doesnt work if no entries have been made on the timesheet as the query result is blank.
ANY help would be muchly appreciated.
Thanks Keith
Problem, ive got a work database which employees logon to and enter time against certain projects they have been working on. What i need is to somehow create some code that will look at each of the employees names and sum up there total time for the previous day. If this is less than say 6 hours of timesheets or even zero entries have been made, I want a pop up message to pop up as soon as they logon to the datatbase the next day and jsut mention they need to fill in there timesheets.
At the moment each person when they log on to the database has there name they logged in as, placed into a field (called "First Name") within form (called "Employee Startup Screen"). *** maybe use this as a way to identify who is logged on and when to run the code.***
Timesheet table has the following columns:
Employee; Date; ProjectID; Timespent
PLEASE help im a noob at this and have tried using some code on a query that sums up the previous days times filter on a employee. When the "Employee Startup Screen" opens it runs the following code
Dim internal1 As Integer
internal1 = Me.SumOfTimeSpent
If internal1 < 6 Then
MsgBox " Less than 6 hours have been entered " & Chr(13) & " into your timesheet for yesterday. ", vbCritical, Title1
ElseIf DCount("*", Me.SumOfTimeSpent) <> 0 Then
end if
End Sub
----------------------------
BUT it doesnt work if no entries have been made on the timesheet as the query result is blank.
ANY help would be muchly appreciated.
Thanks Keith