[AccessD] Blank Access Screen

On another newgroup one person asked the following:
"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.

Has anyone every come accross this before? How do I stop it."

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.

Does anyone else have this annoyance?  If so, does anyone know why this
occurs, and a solution (if there is any).

 

John V. Ruff - The Eternal Optimist :-) 
Always Looking For Contract Opportunities 

Home: 253.588.2139 
Cell: 253.307/2947 
9306 Farwest Dr SW 
Lakewood, WA 98498 

"Commit to the Lord whatever you do, 
        and your plans will succeed." Proverbs 16:3 

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Don Elliker
Sent: Wednesday, May 21, 2003 10:24 AM
To: accessd at databaseadvisors.com
Subject: RE: [AccessD] Sorting an array from a calback function



Neil,

Thanks, I modified one of the routines and it works splendidly.

I put this in the LbInitialize of the callback

Set rst = dbCur.OpenRecordset("qryreportname", dbOpenSnapshot)
                Set Cnt = dbCur.Containers("reports")
    
                rst.MoveLast
                rst.MoveFirst
                intCount = rst.RecordCount - 1
                intRows = intCount
                intCols = 2
                
                ReDim arRptName(intC! ount, 2)
                
                If rst.RecordCount > 0 Then
                    For intI = 0 To intCount
                        arRptName(intI, 0) = rst!Name
                        arRptName(intI, 1) =
Cnt(rst!Name).Properties("description")
                        'Debug.Print arRptName(intI, 0); " ";
arRptName(intI, 1)
      &nbs! p;                 rst.MoveNext
                    Next intI
                End If
"YOUR STUFF HERE-                
                Dim i As Integer, J As Integer, Low As Integer, Hi As
Integer, Temp1 As String, Temp2 As String
                Low = LBound(arRptName) + 1
                Hi = UBound(arRptName)
                For i = ! Low To Hi - 1
                    For J = i + 1 To Hi
                        If arRptName(i, 1) > arRptName(J, 1) Then
                            Temp1 = arRptName(i, 0)
                            Temp2 = arRptName(i, 1)
                            arRptName(i, 0) = arRptName(J, 0)
           &! nbsp;                arRptName(i, 1) = arRptName(J, 1)
                            arRptName(J, 0) = Temp1
                            arRptName(J, 1) = Temp2
                        End If
                    Next J
                Next i

     
                varRetVal = intRows






"Things are only free to the extent that you don't pay for them." 


  _____  

Help STOP SPAM with the new MSN  <http://g.msn.com/8HMEENUS/2731??PS=> 8
and get 2 months FREE* 

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://databaseadvisors.com/pipermail/accessd/attachments/20030521/20bf3944/attachment-0001.html>