<!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>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></BODY></HTML>