ACC2000: "An Unknown Error Has Occurred" Error Setting Form's Maximum Record Limit or Server Filter (223204)

RESOLUTION

Resolving the Maximum Record Limit

You can disable the built-in Max Rec button and create a custom button on your form to set the maximum number of records. The following steps show you an example of how to do this.

1. Open the sample Microsoft Access project NorthwindCS.adp.
2. Create a new form based on the Customers table.
3. Set the MaxRecButton property of the form to No.
4. Add a command button to the form and set the following properties:

      Name: cmdMaxRecs
      Caption: Max Records
   					

5. On the View menu, click Code, and type the following code:

   Dim rs As New ADODB.Recordset
   
   Private Sub cmdMaxRecs_Click()
   
      Dim strSQl as String
   
      Set rs = Nothing
   
      'Type your own SQL statement.
      strSQl = "SELECT * FROM Customers"
   
      rs.MaxRecords = CLng(InputBox("Type desired maximum ", _
        "Max Records", 10))
      rs.Open strSQL, CurrentProject.Connection, adOpenKeyset
      Set Me.Recordset = rs
   
   End Sub
   					

6. Close the Visual Basic Editor.
7. On the View menu, click Form View.
   
   Note that using the SQL statement provided, there are 91 records.
8. Click Max Records, and then click OK.
   
   Note that there are only 10 records now.

Resolving the Server Filter By Form

You can create a custom button on your form to filter the number of records. The following steps show you an example of how to do this.

1. Open the sample Access project NorthwindCS.adp.
2. Create a new unbound form.
3. Set the Server Filter By Form property to No.
4. Add a text box to the form and set the ControlSource property a follows:

       CompanyName
   					

5. Add a combo box to the form and set the following properties:

      Name: cmbCusts
      RowSource: Customers
      ColumnWidths: 1"
   					

6. Add a command button to the form and set the following properties:

      Name: cmdFilter
      Caption: Filter
   					

7. On the View menu, click Code, and type the following code:

   Private Sub cmdFilter_Click()
       Me.FilterOn = True
       Me.Filter = "[CustomerID] = '" & Me!cmbCusts & "'"
   End Sub
   					

8. Save and run the form.

Resolving F9 or Shift+F9

Disable F9 or Shift+F9 by using AutoKeys. The following steps show you an example of how to do this.

1. Open a new macro in Design view.
2. On the View menu, click Macro Names.
3. Create the following macro:

   Macro Name	Action
   {F9}	Beep
   +{F9}	Beep

   
   
4. Close and save the macro as AutoKeys.