ACC95: "No current record" Using AddAllToList() Function

• Microsoft Access 7.0

SYMPTOMS

Advanced: Requires expert coding, interoperability, and multiuser skills.

When you use the AddAllToList() function provided in the sample database Solutions.mdb to add (All) items to a combo box or list box list, you may receive the following error message:

No current record.

CAUSE

The combo box or list box RowSource property is set to a table, a query, or an SQL statement that returns no records.

RESOLUTION

To work around this problem, follow these steps:

1. Open the Solutions.mdb database without running its AutoExec macro. To do so, press SHIFT while you open the database.



2. Open the AddAllToListModule module.



3. In the Procedure list box on the toolbar, select AddAllToList.



4. Modify the section of code that reads
   

   
         Case acLBGetRowCount
               ' Return number of rows in recordset.
               rst.MoveLast
               AddAllToList = rst.RecordCount 

   
   to read:
   

   
         Case acLBGetRowCount
               ' Return number of rows in recordset.
               On Error Resume Next
               rst.MoveLast
               AddAllToList = rst.RecordCount + 1 




5. Modify the section of code that reads
   

   
               Else
                  rst.MoveFirst
                  rst.Move lngRow 

   
   to read:
   

   
               Else
                  rst.MoveFirst
                  rst.Move lngRow - 1 




6. Save the module and close the database.

STATUS

Microsoft has confirmed this to be a problem in Microsoft Access version 7.0. This problem no longer occurs in the AddAllToList code provided in the Solutions database that comes with Microsoft Access 97.

MORE INFORMATION

Steps to Reproduce Problem

1. Open the CustomerList query in the Solutions.mdb database in Design view and add the following criteria to the CustomerID field in the query grid:
   

   
         "Return No Records" 




2. Save and close the query.



3. Open the AddAllToList form. Note that you receive the error message:
   
   No current record.

Keywords : kberrmsg kbusage DcmSltn
Version : 7.0
Platform : WINDOWS
Issue type : kbbug