Jeff Barrows
Jeff at OUTBAKTech.com
Wed May 21 14:42:35 CDT 2003
I asked a similar question last year. Here is my question and the
response I got:
My Question:
I recently ran into a situation where an Access 2002 database FE was
converted back to an Access 2000 version. This was originally done in
Access 97 and converted to Access 2000 and Access 2002, but as we keep
hearing that Access 97 is being phased out they decided to go with just
an Access 2000 version and an Access 2002 version. They decided to
continue development using Access 2002 and convert down to Access 2000.
The downgrade is successful (everything works as expected) but I have
now noticed something really strange. I can view the tables, queries,
forms, etc as Large Icons, Small Icons, and as a List, but I cannot see
ANYTHING when I try and view as Detail. Has anyone else experienced
this? Or am I just 'lucky'?
Response from Mark Plumpton
:
That happened to me once - all the column widths in the details view
were set to zero. Just try opening the columns up from the left hand
side.
Jeff Barrows
Outbak Technologies, LLC
Racine, WI
Phone: (262) 634-0653
Mailto: jeff_developer at hotmail.com
www.outbaktech.com
_____
From: John Ruff [mailto:papparuff at attbi.com]
Sent: Wednesday, May 21, 2003 12:50 PM
To: accessd at databaseadvisors.com
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/c11ebfd4/attachment-0001.html>