<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=us-ascii">
<TITLE>Message</TITLE>
<META content="MSHTML 6.00.2800.1170" name=GENERATOR></HEAD>
<BODY>
<DIV><FONT face=Arial color=#0000ff size=2><SPAN class=471174217-21052003>On
another newgroup one person asked the following:</SPAN></FONT></DIV>
<DIV><FONT><SPAN class=471174217-21052003>
<P><FONT face=Arial><FONT color=#0000ff><FONT size=2><SPAN
class=471174217-21052003>"</SPAN>When I am working on a form and then close it,
the Form list is blank. If I click Reports, Tables, etc.. and click back, the
Forms are once again listed. The same happens with Reports and Tables, etc.. It
does not happen every time, but very often. It is mostly annoying. And it
happens in multiple databases not just one. I have Office SR-3
loaded.</FONT></FONT></FONT></P>
<P><FONT face=Arial><FONT color=#0000ff><FONT size=2>Has anyone every come
accross this before? How do I stop it.<SPAN
class=471174217-21052003>"</SPAN></FONT></FONT></FONT></P>
<P><FONT face=Arial><FONT color=#0000ff><FONT size=2><SPAN
class=471174217-21052003>A number of peopele responded stating they have the
same problem but don't know why it happens. I also have the same
problem. When I have created a number of tables, forms, reports, etc in
the database; if I go from say, form design view, back to the Access main
window, I have to move to another object and then back to the forms object again
to see all the forms that I have already created.. I have never found an
answer for this, so I just live with it. I don't believe memory has
anything to do with it as I have 512mb and it happens if I only have Access open
or if I have a couple of other programs running. It happens with Access
2000 and Access 2002 and in Windows 2000 Pro and Windows XP
Pro.</SPAN></FONT></FONT></FONT></P>
<P><FONT face=Arial><FONT color=#0000ff><FONT size=2><SPAN
class=471174217-21052003>Does anyone else have this annoyance? If so, does
anyone know why this occurs, and a solution (if there is
any).</SPAN></FONT></FONT></FONT></P>
<P><FONT face=Arial><FONT color=#0000ff><FONT size=2><SPAN
class=471174217-21052003></SPAN></FONT></FONT></FONT><FONT face=Arial><FONT
color=#0000ff><FONT size=2><SPAN
class=471174217-21052003></SPAN></FONT></FONT></FONT><FONT face=Arial
color=#0000ff size=2></FONT></SPAN></FONT><FONT face=Arial color=#0000ff
size=2></FONT> </P></DIV><!-- Converted from text/rtf format -->
<P><B><I><FONT face="Times New Roman" color=#0000ff size=4>John V.
Ruff</FONT><FONT face="Times New Roman" size=4> – </FONT><FONT
face="Times New Roman" color=#008080 size=4>The Eternal Optimist</FONT><FONT
face="Times New Roman" size=4></FONT> <FONT face=Wingdings color=#800080
size=4>J</FONT></I></B> <BR><I><FONT face="Times New Roman">Always Looking For
Contract Opportunities</FONT></I> </P>
<P><FONT face="Times New Roman" size=2>Home: 253.588.2139</FONT> <BR><FONT
face="Times New Roman" size=2>Cell: 253.307/2947</FONT> <BR><FONT
face="Times New Roman" size=2>9306 Farwest Dr SW</FONT> <BR><FONT
face="Times New Roman" size=2>Lakewood, WA 98498</FONT> </P>
<P><B><FONT face="Times New Roman" color=#000080 size=2>“Commit to the Lord
whatever you do,</FONT></B> <BR><B>
<FONT face="Times New Roman" color=#000080 size=2>and your plans will succeed.”
Proverbs 16:3</FONT></B> </P>
<BLOCKQUOTE style="MARGIN-RIGHT: 0px">
<DIV></DIV>
<DIV class=OutlookMessageHeader lang=en-us 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>Don
Elliker<BR><B>Sent:</B> Wednesday, May 21, 2003 10:24 AM<BR><B>To:</B>
accessd@databaseadvisors.com<BR><B>Subject:</B> RE: [AccessD] Sorting an array
from a calback function<BR><BR></FONT></DIV>
<DIV>
<DIV>
<P>Neil,</P>
<P>Thanks, I modified one of the routines and it works splendidly.</P>
<P>I put this in the LbInitialize of the callback</P>
<P>Set rst = dbCur.OpenRecordset("qryreportname",
dbOpenSnapshot)<BR>
Set Cnt = dbCur.Containers("reports")<BR>
<BR>
rst.MoveLast<BR>
rst.MoveFirst<BR>
intCount = rst.RecordCount -
1<BR>
intRows =
intCount<BR>
intCols =
2<BR>
<BR>
ReDim arRptName(intC! ount,
2)<BR>
<BR>
If rst.RecordCount > 0
Then<BR>
For intI = 0 To
intCount<BR>
arRptName(intI, 0) =
rst!Name<BR>
arRptName(intI, 1) =
Cnt(rst!Name).Properties("description")<BR>
'Debug.Print arRptName(intI, 0); " "; arRptName(intI,
1)<BR> &nbs!
p;
rst.MoveNext<BR>
Next
intI<BR>
End If<BR>"YOUR STUFF
HERE- <BR>
Dim i As Integer, J As Integer, Low As Integer, Hi As Integer, Temp1 As
String, Temp2 As
String<BR>
Low = LBound(arRptName) +
1<BR>
Hi =
UBound(arRptName)<BR>
For i = ! Low To Hi -
1<BR>
For J = i + 1 To
Hi<BR>
If arRptName(i, 1) > arRptName(J, 1)
Then<BR>
Temp1 = arRptName(i,
0)<BR>
Temp2 = arRptName(i,
1)<BR>
arRptName(i, 0) = arRptName(J,
0)<BR> &!
nbsp;
arRptName(i, 1) = arRptName(J,
1)<BR>
arRptName(J, 0) =
Temp1<BR>
arRptName(J, 1) =
Temp2<BR>
End
If<BR>
Next
J<BR>
Next i</P>
<P>
<BR>
varRetVal = intRows<BR><BR></P></DIV><BR><BR><BR>
<DIV></DIV>
<DIV><FONT face="Geneva, Arial, Sans-serif" color=#6666ff size=2><EM>"Things
are only free to the extent that you don't pay for them." </EM></FONT></DIV>
<DIV><FONT color=#33cc66></FONT></DIV>
<DIV></DIV>
<DIV></DIV>
<DIV></DIV>
<DIV></DIV>
<DIV></DIV>
<DIV></DIV>
<DIV></DIV></DIV><BR clear=all>
<HR>
Help STOP SPAM with <A href="http://g.msn.com/8HMEENUS/2731??PS=">the new MSN
8 </A>and get 2 months FREE* </BLOCKQUOTE></BODY></HTML>