[AccessD] Blank Access Screen

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.
 
Charlotte Foust

	-----Original Message-----
	From: John Ruff [mailto:papparuff at attbi.com] 
	Sent: Wednesday, May 21, 2003 9:50 AM
	To: accessd at databaseadvisors.com
	Subject: [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 8
<http://g.msn.com/8HMEENUS/2731??PS=> and get 2 months FREE* 

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