Reporting Time fixed as a daily variable

[jalal]

Hi
The previous problem stands solved i.e. ReportTime field shows 9:50 always.
But it has created another problem as under

The Formula for ReportTime : Format(Date(),"m/d/yyyy") & " 9:50:00 AM"

The formula for ReportedAt then becomes as ReportedAt: Format(Now(),"hh-nn ampm")

And the next step LateByMinuts:=IIf([StatusID]=1,DateDiff("n",[ReportTime],[ReportedAt]),0)

Where stutusID is 1. Present, 2. AbsentExcused. 3. LeavePrivelege etc. is correct for the first time.


That is when at the first time the Reported time (system time) is recorded it works fantastically but when next time the Form is opened the saved "LateBYMinuts" field is changed with the system date thus disparaging the previous save data.

Where could be the problem
Please help
Thank You


Jalal

[jalal]

Hi
For VBA for Forms on current event which you have provided is working well
Private Sub Form_Current()
If IsNull(Me.ReportTime) Then
Me.ReportTime.Value = Format(Date, "d/m/yyyy") & " 9:50:00 AM"
End If
If IsNull(Me.ReportedAt) Then
Me.ReportedAt.Value = Format(Now(), "hh-nn-ss ampm")
End If
End Sub

But when I implement it on my form-subform after trying on number of attempts it gives error in calculating the LateByMinute

In fact I am using two tables . Table1 (Master Table) consists two fields. as follows

Table 1
FieldName DataType
ID Autonumber
AttendenceDate Date/Time

Table 2
FieldName DataType Description
ID Autonumber
AttendenceDate Date/Time
EmployeeID Number Inserted through Lookup Wizard from Employee table.
StatusID Number inserted through Lookup Wizard from TableStatus having
Status as 1. Present, 2. AbsentExcused, 3. Leave, 4. UnexcusedAbsent
ReportTime Text (9.50AM on daily basis as default )
ReportedAt Test Time when actually the employee reports for duty

Attendencedate Number for joining as child link
The question is that system should record the reporting time of employee who has actually reported (i.e. is present besides it should also record how many minutes the employee is late. i. e. LateByMinuts.

Please help
Thank You
Jalal