<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD><TITLE>Message</TITLE>
<META http-equiv=Content-Type content="text/html; charset=us-ascii">
<META content="MSHTML 6.00.2800.1170" name=GENERATOR></HEAD>
<BODY>
<DIV><SPAN class=765200418-21052003><FONT face="Comic Sans MS" color=#0000ff 
size=2>I've seen it at times.  I just consider it a "feature".  I 
suspect it's a resource issue.  Do you/they have name Autocorrect and 
subdatasheets turned on or off?  Mine are off, always, and I rarely see 
this unless I've got a print job spooling at the same time.</FONT></SPAN></DIV>
<DIV><SPAN class=765200418-21052003><FONT face="Comic Sans MS" color=#0000ff 
size=2></FONT></SPAN> </DIV>
<DIV><SPAN class=765200418-21052003><FONT face="Comic Sans MS" color=#0000ff 
size=2>Charlotte Foust</FONT></SPAN></DIV>
<BLOCKQUOTE dir=ltr 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> John Ruff 
  [mailto:papparuff@attbi.com] <BR><B>Sent:</B> Wednesday, May 21, 2003 9:50 
  AM<BR><B>To:</B> accessd@databaseadvisors.com<BR><B>Subject:</B> [AccessD] 
  Blank Access Screen<BR><BR></FONT></DIV>
  <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 size=+0><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></BLOCKQUOTE></BODY></HTML>