After Update action

[Guest]

I have a form linked to a table that has a couple of 'after update' actions.
There is a release time field (date/time, short time format, input mask 00:00)
and
a time in field (date/time format, short time format,)
and
a total time taken field (Date/Time, no format)

There is also a distance field (in yards)

The purpose is to calculate the total time taken and speed in yards per
minute.

A friend created some Vb as follows -

Private Sub Time_In_AfterUpdate()

Me.Total_Time_Taken = Me.Time_In - Me.Release_Time
Me.Speed_in_Yds_Min = Me.Distance_in_Yards / Me.Total_Time_Taken
End Sub

The problem I have is that the calculated time (total time taken field) is
in hours and mins

How can I make this field show in total minutes instead of hours and minutes?

Thanks

 

[Al Camp]

RC,
Check out this link...
http://office.microsoft.com/en-us/assistance/HA011102181033.aspx

 

[Guest]

Sorry Al - my code knowledge isn't that good although the page is very
informative. I wasn't sure which part of the guide was supposed to be
inserted where in my VB statement.

 

[Al Camp]

RC,
Hang on, and I'll try to get back to you on that...
It's do-able...

 

[Al Camp]

RC,
This should do it. *I'm assuming your Speed_in_Yards_Min calculation
was correct.*
(Make TotalTime a text field...)

Private Sub Time_In_AfterUpdate()
Me.Total_Time_Taken = Int(DateDiff("n", [Time1], [Time2]) / 60) & " Hrs
" & DateDiff("n",[Time1],[Time2]) Mod 60 & " Secs"
Me.Speed_in_Yds_Min = Me.Distance_in_Yards / (Me.Time_In -
Me.Release_Time)
End Sub

Using 9:00am to 10:17am and 30,000 yards
TotalTime = "1 Hrs 17 Mins"
Speed_In_Yards_Min = 389.61

 

[Guest]

Many thanks for making it it clear for me - much appreciated.

Ron

RC,
This should do it. *I'm assuming your Speed_in_Yards_Min calculation
was correct.*
(Make TotalTime a text field...)

Private Sub Time_In_AfterUpdate()
Me.Total_Time_Taken = Int(DateDiff("n", [Time1], [Time2]) / 60) & " Hrs
" & DateDiff("n",[Time1],[Time2]) Mod 60 & " Secs"
Me.Speed_in_Yds_Min = Me.Distance_in_Yards / (Me.Time_In -
Me.Release_Time)
End Sub

Using 9:00am to 10:17am and 30,000 yards
TotalTime = "1 Hrs 17 Mins"
Speed_In_Yards_Min = 389.61
--
hth
Al Camp
Candia Computer Consulting - Candia NH
http://home.comcast.net/~cccsolutions

Sorry Al - my code knowledge isn't that good although the page is very
informative. I wasn't sure which part of the guide was supposed to be
inserted where in my VB statement.