<!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><SPAN class=957425523-25062003><FONT face=Arial color=#0000ff size=2>I'll
send you a demo.</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 7:53
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>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></BLOCKQUOTE></BODY></HTML>