<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=iso-8859-1">
<META content="MSHTML 6.00.2800.1170" name=GENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff>
<DIV><FONT face=Arial size=2>John:</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>Thanks again for your help.</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>Ran into a little problem with the ten times
opening approach. It seems that the just-in-time stuff must be triggering
by the opening because there was no difference between the two forms (the one
with the source and the one without) and the 'calculating...' thingy was
displayed at the bottom of the screen in both cases. </FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>I'll work on it tomorrow.</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>Thanks again.</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>Rocky</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<BLOCKQUOTE
style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV style="FONT: 10pt arial">----- Original Message ----- </DIV>
<DIV
style="BACKGROUND: #e4e4e4; FONT: 10pt arial; font-color: black"><B>From:</B>
<A title=jcolby@colbyconsulting.com
href="mailto:jcolby@colbyconsulting.com">John Colby</A> </DIV>
<DIV style="FONT: 10pt arial"><B>To:</B> <A title=accessd@databaseadvisors.com
href="mailto:accessd@databaseadvisors.com">accessd@databaseadvisors.com</A>
</DIV>
<DIV style="FONT: 10pt arial"><B>Sent:</B> Wednesday, June 25, 2003 4:04
PM</DIV>
<DIV style="FONT: 10pt arial"><B>Subject:</B> RE: [AccessD] Time in
milliseconds</DIV>
<DIV><BR></DIV>
<DIV><SPAN class=103500323-25062003><FONT face=Arial color=#0000ff size=2>You
pasted the code into a module instead of a class? Or you saved the class
code to a name other than clsTimer.</FONT></SPAN></DIV>
<DIV> </DIV>
<P><FONT size=2>John W. Colby<BR><A
href="http://www.colbyconsulting.com">www.colbyconsulting.com</A></FONT> </P>
<BLOCKQUOTE dir=ltr style="MARGIN-RIGHT: 0px">
<DIV class=OutlookMessageHeader dir=ltr align=left><FONT face=Tahoma
size=2>-----Original Message-----<BR><B>From:</B> <A
href="mailto:accessd-bounces@databaseadvisors.com">accessd-bounces@databaseadvisors.com</A>
[mailto:accessd-bounces@databaseadvisors.com]<B>On Behalf Of </B>Rocky
Smolin - Beach Access Software<BR><B>Sent:</B> Wednesday, June 25, 2003 6:45
PM<BR><B>To:</B> accessd@databaseadvisors.com<BR><B>Subject:</B> Re:
[AccessD] Time in milliseconds<BR><BR></FONT></DIV>
<DIV><FONT face=Arial size=2>John:</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>That looks real good. The time kind of
got away from me so if I don't get a reply right away I can go with what
I've got. But this would be better.</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>I'm getting a compile error on </FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>Dim mclsTimer As clsTimer</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>User defined type not defined.</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>What have I left out?</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>Best,</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>Rocky</FONT></DIV>
<DIV><FONT face=Arial size=2> </DIV>
<DIV><BR></DIV></FONT>
<BLOCKQUOTE
style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV style="FONT: 10pt arial">----- Original Message ----- </DIV>
<DIV
style="BACKGROUND: #e4e4e4; FONT: 10pt arial; font-color: black"><B>From:</B>
<A title=jcolby@colbyconsulting.com
href="mailto:jcolby@colbyconsulting.com">John Colby</A> </DIV>
<DIV style="FONT: 10pt arial"><B>To:</B> <A
title=accessd@databaseadvisors.com
href="mailto:accessd@databaseadvisors.com">accessd@databaseadvisors.com</A>
</DIV>
<DIV style="FONT: 10pt arial"><B>Sent:</B> Wednesday, June 25, 2003 10:13
AM</DIV>
<DIV style="FONT: 10pt arial"><B>Subject:</B> RE: [AccessD] Time in
milliseconds</DIV>
<DIV><BR></DIV>
<DIV><SPAN class=860441017-25062003><FONT face=Arial color=#0000ff
size=2>Rocky,</FONT></SPAN></DIV>
<DIV><SPAN class=860441017-25062003><FONT face=Arial color=#0000ff
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=860441017-25062003><FONT face=Arial color=#0000ff
size=2>Below is a modification to the TestTimer to time your form
opening / closing 10 times. Obviously replace the form name(s) with
your own.</FONT></SPAN></DIV>
<DIV><SPAN class=860441017-25062003></SPAN><SPAN
class=860441017-25062003><FONT face=Arial color=#0000ff
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=860441017-25062003><FONT face=Arial color=#0000ff
size=2>Option Compare Database<BR>Option Explicit<BR>Dim mclsTimer As
clsTimer</FONT></SPAN></DIV>
<DIV><FONT face=Arial color=#0000ff size=2></FONT> </DIV>
<DIV><SPAN class=860441017-25062003><FONT face=Arial color=#0000ff
size=2>Function TestTimer()<BR>Dim intLoopCnt As Integer<BR>Set mclsTimer
= New clsTimer<BR> For intLoopCnt = 1 To
10<BR> DoCmd.OpenForm
"frm_MoviesTab"<BR> DoCmd.Close
acForm, "frm_MoviesTab"<BR> Next
intLoopCnt<BR> MsgBox mclsTimer.EndTimer & " ms
elapsed time - Hit any key to continue", , "TIMER TEST
1"<BR> mclsTimer.StartTimer<BR> For
intLoopCnt = 1 To 10<BR>
DoCmd.OpenForm
"frm_MoviesTab"<BR> DoCmd.Close
acForm, "frm_MoviesTab"<BR> Next
intLoopCnt<BR> MsgBox mclsTimer.EndTimer & " ms
elapsed time - Hit any key to continue", , "TIMER TEST
1"<BR> Set mclsTimer = Nothing<BR>End
Function<BR></FONT></SPAN></DIV>
<DIV> </DIV>
<P><FONT size=2>John W. Colby<BR>www.colbyconsulting.com</FONT> </P>
<BLOCKQUOTE dir=ltr style="MARGIN-RIGHT: 0px">
<DIV class=OutlookMessageHeader dir=ltr align=left><FONT face=Tahoma
size=2>-----Original Message-----<BR><B>From:</B>
accessd-bounces@databaseadvisors.com
[mailto:accessd-bounces@databaseadvisors.com]<B>On Behalf Of </B>Rocky
Smolin - Beach Access Software<BR><B>Sent:</B> Wednesday, June 25, 2003
11:37 AM<BR><B>To:</B> accessd@databaseadvisors.com<BR><B>Subject:</B>
Re: [AccessD] Time in milliseconds<BR><BR></FONT></DIV>
<DIV><FONT face=Arial size=2>John:</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>Will it work across forms?</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>I'm demonstrating your Just-In-Time forms
at the AUGSD tonight and since it's a single user box the difference in
opening time is hard to see, even though it's a factor of
2-4.</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>I think I need to start my timing from the
Main Menu Click event that opens the form with the sub-forms in it, as
some of the processing of loading the sub-form's recordsets goes on even
before the called form's OnOpen event. </FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>Best,</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>Rocky</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<BLOCKQUOTE
style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
<DIV style="FONT: 10pt arial">----- Original Message ----- </DIV>
<DIV
style="BACKGROUND: #e4e4e4; FONT: 10pt arial; font-color: black"><B>From:</B>
<A title=jcolby@colbyconsulting.com
href="mailto:jcolby@colbyconsulting.com">John Colby</A> </DIV>
<DIV style="FONT: 10pt arial"><B>To:</B> <A
title=accessd@databaseadvisors.com
href="mailto:accessd@databaseadvisors.com">accessd@databaseadvisors.com</A>
</DIV>
<DIV style="FONT: 10pt arial"><B>Sent:</B> Wednesday, June 25, 2003
6:47 AM</DIV>
<DIV style="FONT: 10pt arial"><B>Subject:</B> RE: [AccessD] Time in
milliseconds</DIV>
<DIV><BR></DIV>
<DIV><SPAN class=240483413-25062003><FONT face=Arial color=#0000ff
size=2>Rocky,</FONT></SPAN></DIV>
<DIV><SPAN class=240483413-25062003><FONT face=Arial color=#0000ff
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=240483413-25062003><FONT face=Arial color=#0000ff
size=2>Here is the class I use for timing things such as the opening
of forms and such, with a timer test function you can place in a
module to play around with the class. Dead simple to
use.</FONT></SPAN></DIV>
<DIV><SPAN class=240483413-25062003><FONT face=Arial color=#0000ff
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=240483413-25062003><FONT face=Arial color=#0000ff
size=2>The nice thing about using a class is that you can have as many
instances as you need timing various stuff since the variable tracking
elapsed time is private to the class instance.</FONT></SPAN></DIV>
<DIV><SPAN class=240483413-25062003><FONT face=Arial color=#0000ff
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=240483413-25062003><FONT face=Arial color=#0000ff
size=2>
<DIV><SPAN class=240483413-25062003><FONT face=Arial color=#0000ff
size=2>Option Compare Database<BR>Option Explicit<BR>Dim mclsTimer As
clsTimer</FONT></SPAN></DIV>
<DIV><FONT color=#000000></FONT> </DIV>
<DIV><SPAN class=240483413-25062003><FONT face=Arial color=#0000ff
size=2>Function TestTimer()<BR>Set mclsTimer = New
clsTimer<BR> MsgBox "Hit any key to continue", ,
"TIMER TEST 1"<BR> MsgBox mclsTimer.EndTimer & "
ms elapsed time - Hit any key to continue", , "TIMER TEST
1"<BR> MsgBox mclsTimer.EndTimer & " ms total
elapsed time - Hit any key to continue", , "TIMER TEST
2"<BR> mclsTimer.StartTimer<BR>
MsgBox "Hit any key to continue", , "TIMER TEST
3"<BR> MsgBox mclsTimer.EndTimer() & " ms
elapsed time", , "TIMER TEST3"<BR> Set mclsTimer =
Nothing<BR>End Function<BR></DIV></FONT></SPAN></FONT></SPAN></DIV>
<DIV><SPAN class=240483413-25062003><FONT face=Arial color=#0000ff
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=240483413-25062003><FONT face=Arial color=#0000ff
size=2>Option Compare Database<BR>Option
Explicit<BR>'.===============================================================<BR>'.Copyright
2001 Colby Consulting. All rights
reserved.<BR>'.E-mail : <A
href="mailto:jcolby@colbyconsulting.com">jcolby@colbyconsulting.com</A><BR>'.===============================================================<BR>'
DO NOT DELETE THE COMMENTS ABOVE. All other comments in this
module<BR>' may be deleted from production code, but lines above must
remain.<BR>'---------------------------------------------------------------------<BR>'.Description
: Implements the instantiated class for: clsTimer<BR>'.<BR>'.Written
By : John W. Colby<BR>'.Date Created : 05/28/2001<BR>'
Rev. History :<BR>'<BR>' Comments
:<BR>'---------------------------------------------------------------------<BR>'.<BR>'
ADDITIONAL
NOTES:<BR>'<BR>'---------------------------------------------------------------------<BR>'<BR>'
INSTRUCTIONS:<BR>'---------------------------------------------------------------------<BR>'.<BR>'THESE
CONSTANTS AND VARIABLES ARE USED INTERNALLY TO THE CLASS<BR>'*+ Class
constant declaration<BR>'*- Class constants
declaration</FONT></SPAN></DIV>
<DIV><FONT face=Arial color=#0000ff size=2></FONT> </DIV>
<DIV><SPAN class=240483413-25062003><FONT face=Arial color=#0000ff
size=2>'*+ Class variables declarations<BR>'*- Class variables
declarations</FONT></SPAN></DIV>
<DIV><FONT face=Arial color=#0000ff size=2></FONT> </DIV>
<DIV><SPAN class=240483413-25062003><FONT face=Arial color=#0000ff
size=2>'THESE CONSTANTS AND VARIABLES ARE USED BY THE CLASS
TO<BR>'IMPLEMENT CLASS FUNCTIONALITY<BR>Private Declare Function
apiGetTime Lib "winmm.dll"
_<BR>
Alias "timeGetTime" () As Long<BR>'*+ custom constants
declaration<BR>'*- Custom constants declaration</FONT></SPAN></DIV>
<DIV> </DIV>
<DIV><SPAN class=240483413-25062003><FONT face=Arial color=#0000ff
size=2>'*+ custom variables declarations<BR>Dim lngStartTime As
Long<BR>'*- custom variables declarations</FONT></SPAN></DIV>
<DIV><FONT face=Arial color=#0000ff size=2></FONT> </DIV>
<DIV><SPAN class=240483413-25062003><FONT face=Arial color=#0000ff
size=2>'THESE FUNCTIONS / SUBS ARE USED INTERNALLY TO THE CLASS<BR>'*+
Private Init/Terminate Interface<BR>Private Sub
Class_Initialize()<BR> StartTimer<BR>End Sub<BR>'*-
Public Init/Terminate interface<BR>'*- Parent/Child links
interface<BR>'THESE FUNCTIONS / SUBS ARE USED TO IMPLEMENT CLASS
FUNCTIONALITY<BR>'*+Class function / sub declaration<BR>Function
EndTimer() As Long<BR> EndTimer = apiGetTime() -
lngStartTime<BR>End Function</FONT></SPAN></DIV>
<DIV><FONT face=Arial color=#0000ff size=2></FONT> </DIV>
<DIV><SPAN class=240483413-25062003><FONT face=Arial color=#0000ff
size=2>Sub StartTimer()<BR> lngStartTime =
apiGetTime()<BR>End Sub<BR>Function RawTime() As
Long<BR> RawTime = apiGetTime()<BR>End
Function<BR>'*-Class function / sub
declaration<BR></FONT></SPAN></DIV>
<DIV><FONT face=Arial color=#0000ff size=2></FONT> </DIV>
<P><FONT size=2>John W. Colby<BR>www.colbyconsulting.com</FONT> </P>
<BLOCKQUOTE dir=ltr style="MARGIN-RIGHT: 0px">
<DIV class=OutlookMessageHeader dir=ltr align=left><FONT face=Tahoma
size=2>-----Original Message-----<BR><B>From:</B>
accessd-bounces@databaseadvisors.com
[mailto:accessd-bounces@databaseadvisors.com]<B>On Behalf Of
</B>Rocky Smolin - Beach Access Software<BR><B>Sent:</B> Tuesday,
June 24, 2003 12:08 AM<BR><B>To:</B>
AccessD@databaseadvisors.com<BR><B>Subject:</B> [AccessD] Time in
milliseconds<BR><BR></FONT></DIV>
<DIV><FONT face=Arial size=2>Dear List:</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>Is it possible to access/store/display
the time in increments smaller than seconds. I need to time
something in fractions of a second.</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>MTIA</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>Rocky</FONT></DIV>
<DIV> </DIV></BLOCKQUOTE>
<P>
<HR>
<P></P>_______________________________________________<BR>AccessD
mailing
list<BR>AccessD@databaseadvisors.com<BR>http://databaseadvisors.com/mailman/listinfo/accessd<BR>Website:
http://www.databaseadvisors.com<BR></BLOCKQUOTE></BLOCKQUOTE>
<P>
<HR>
<P></P>_______________________________________________<BR>AccessD mailing
list<BR>AccessD@databaseadvisors.com<BR>http://databaseadvisors.com/mailman/listinfo/accessd<BR>Website:
http://www.databaseadvisors.com<BR></BLOCKQUOTE></BLOCKQUOTE>
<P>
<HR>
<P></P>_______________________________________________<BR>AccessD mailing
list<BR>AccessD@databaseadvisors.com<BR>http://databaseadvisors.com/mailman/listinfo/accessd<BR>Website:
http://www.databaseadvisors.com<BR></BLOCKQUOTE></BODY></HTML>