<!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><SPAN class=613140718-21052003><FONT face=Arial color=#0000ff size=2>It 
doesn't matter if Autocorrect and/or subdatasheets are turned off (mine are), 
the annoyance persists.</FONT></SPAN></DIV>
<DIV> </DIV>
<DIV> </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><A href="http://www.noclassroom.com/"><U><FONT face="Times New Roman" 
color=#0000ff>www.noclassroom.com</FONT></U></A> <BR><FONT 
face="Times New Roman" color=#ff00ff>Live software training</FONT> <BR><FONT 
face="Times New Roman" color=#ff00ff>Right over the Internet</FONT> </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 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> 
  accessd-bounces@databaseadvisors.com 
  [mailto:accessd-bounces@databaseadvisors.com] <B>On Behalf Of </B>Charlotte 
  Foust<BR><B>Sent:</B> Wednesday, May 21, 2003 11:05 AM<BR><B>To:</B> 
  accessd@databaseadvisors.com<BR><B>Subject:</B> RE: [AccessD] Blank Access 
  Screen<BR><BR></FONT></DIV>
  <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></BLOCKQUOTE></BODY></HTML>