How to find a record from a drop-down list in a data access page

Support for Office 2003 has ended

Microsoft ended support for Office 2003 on April 8, 2014. This change has affected your software updates and security options. Learn what this means for you and how to stay protected.

This article was previously published under Q285353
This article has been archived. It is offered "as is" and will no longer be updated.
Moderate: Requires basic macro, coding, and interoperability skills.

For a Microsoft Access 2000 version of this article, see 247823.
This article shows you how to find a record in a data access page based on an entry that you select from a drop-down list.
To create the data access page and the appropriate script to find a selected record, follow these steps:
  1. Open the sample database Northwind.mdb.
  2. In the Database window, click Pages under Objects, and then double-click Create data access page by using wizard.
  3. Under Tables/Queries, click the arrow, and then click Table: Customers in the list.
  4. Click the >> button to move all the fields from the Available Fields list to the Selected Fields list, and then click Finish.
  5. If the toolbox is not displayed, click Toolbox on the View menu.
  6. In the toolbox, click Dropdown List, and then click anywhere on the page to add the dropdown list control.
  7. Set the following properties for the dropdown list control:
    ID: CustID
    ListRowSource: Table: Customers
    ListBoundField: CustomerID
  8. Right-click anywhere on the page, and then click Microsoft Script Editor on the shortcut menu to open the HTML source.
  9. In the Client Objects & Events dropdown list, click CustID, and then click onchange in the Events dropdown list.
  10. Type or paste the following script:
    <SCRIPT LANGUAGE=vbscript FOR=CustID EVENT=onchange><!--    Dim rs    Set rs = MSODSC.DefaultRecordset    rs.Find "[CustomerID] = '" & document.all.item("CustID").value & "'", 0, 1, 1    '0 = Skip zero records before starting the search.    '1 = Search in a forward direction.    '1 = Always begin the search with the first record in the recordset. --></SCRIPT>					
    Note To search for numeric data, change the command line in the script as follows:
          rs.Find "[CustomerID] = " & document.all.item("CustID").value					
  11. Save the page as Page1.htm, and then click Page View on the View menu.
  12. Click a value in the CustID drop-down list to move the data access page to that record.
OfficeKBHowTo inf dap mod dhtml search move to ACC2002 reviewdocid

Article ID: 285353 - Last Review: 12/05/2015 23:53:08 - Revision: 5.4

Microsoft Office Access 2003, Microsoft Access 2002 Standard Edition

  • kbnosurvey kbarchive kbscript kbprogramming kbdapscript kbhowto KB285353