Microsoft KB Archive/247823: Difference between revisions
(importing KB archive) |
m (Text replacement - """ to """) |
||
(3 intermediate revisions by the same user not shown) | |||
Line 64: | Line 64: | ||
<li>In the Database window, click '''Pages''' under '''Objects''', and then double-click '''Create data access page by using wizard'''.</li> | <li>In the Database window, click '''Pages''' under '''Objects''', and then double-click '''Create data access page by using wizard'''.</li> | ||
<li>Under '''Tables/Queries''', click the arrow, and then click '''Table: Customers''' in the list.</li> | <li>Under '''Tables/Queries''', click the arrow, and then click '''Table: Customers''' in the list.</li> | ||
<li>Click ''' | <li>Click '''>>''' to move all the fields from the '''Available Fields''' list to the '''Selected Fields''' list.</li> | ||
<li>Click '''Finish'''.</li> | <li>Click '''Finish'''.</li> | ||
<li>In the toolbox, click '''Dropdown List''', and then click anywhere on the page to add the Dropdown List control.</li> | <li>In the toolbox, click '''Dropdown List''', and then click anywhere on the page to add the Dropdown List control.</li> | ||
Line 76: | Line 76: | ||
</div></li> | </div></li> | ||
<li>Right-click anywhere on the page, and then click '''Microsoft Script Editor''' on the shortcut menu to open the HTML source.</li> | <li>Right-click anywhere on the page, and then click '''Microsoft Script Editor''' on the shortcut menu to open the HTML source.</li> | ||
<li>On the '''View''' menu, point to '''Other Windows''', and then click '''Script Outline'''. This places the focus in the Script Outline window pane, at the top-most node that is labeled '''Client Objects & | <li>On the '''View''' menu, point to '''Other Windows''', and then click '''Script Outline'''. This places the focus in the Script Outline window pane, at the top-most node that is labeled '''Client Objects & Events'''. Expand '''Client Objects & Events''', expand '''CustID''', and then double-click the '''onchange''' event.</li> | ||
<li><p>Insert the following script:</p> | <li><p>Insert the following script:</p> | ||
<pre class="codesample"> | <pre class="codesample"><SCRIPT LANGUAGE=vbscript FOR=CustID EVENT=onchange> | ||
<!-- | |||
Dim rs | Dim rs | ||
Set rs = MSODSC.DefaultRecordset | Set rs = MSODSC.DefaultRecordset | ||
rs.Find | rs.Find "[CustomerID] = '" & document.all.item("CustID").value & "'", 0, 1, 1 | ||
'0 = Skip zero records before starting the search. | '0 = Skip zero records before starting the search. | ||
'1 = Search in a forward direction. | '1 = Search in a forward direction. | ||
'1 = Always begin the search with the first record in the recordset. | '1 = Always begin the search with the first record in the recordset. | ||
-- | --> | ||
</SCRIPT> | |||
</pre> | </pre> | ||
<p>'''NOTE''': To search for numeric data, change the command line in the script as follows:</p> | <p>'''NOTE''': To search for numeric data, change the command line in the script as follows:</p> | ||
<pre class="codesample"> rs.Find | <pre class="codesample"> rs.Find "[CustomerID] = " & document.all.item("CustID").value | ||
</pre></li> | </pre></li> | ||
<li>Save the page as Page1.htm, and then click '''Page View''' on the '''View''' menu.</li> | <li>Save the page as Page1.htm, and then click '''Page View''' on the '''View''' menu.</li> |
Latest revision as of 13:50, 21 July 2020
Article ID: 247823
Article Last Modified on 6/28/2004
APPLIES TO
- Microsoft Access 2000 Standard Edition
This article was previously published under Q247823
Moderate: Requires basic macro, coding, and interoperability skills.
For a Microsoft 2002 version of this article, see 285353.
SUMMARY
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.
MORE INFORMATION
To create the data access page and the appropriate script to find a selected record, follow these steps:
- Open the sample database Northwind.mdb.
- In the Database window, click Pages under Objects, and then double-click Create data access page by using wizard.
- Under Tables/Queries, click the arrow, and then click Table: Customers in the list.
- Click >> to move all the fields from the Available Fields list to the Selected Fields list.
- Click Finish.
- In the toolbox, click Dropdown List, and then click anywhere on the page to add the Dropdown List control.
- Set the following properties for the Dropdown List control:
ID: CustID
ListRowSource: Table: Customers
ListBoundField: CustomerID - Right-click anywhere on the page, and then click Microsoft Script Editor on the shortcut menu to open the HTML source.
- On the View menu, point to Other Windows, and then click Script Outline. This places the focus in the Script Outline window pane, at the top-most node that is labeled Client Objects & Events. Expand Client Objects & Events, expand CustID, and then double-click the onchange event.
Insert 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
- Save the page as Page1.htm, and then click Page View on the View menu.
- Click a value in the CustID drop-down list to move the data access page to that record.
Additional query words: inf dap mod dhtml search move to
Keywords: kbhowto kbdap kbdapscript KB247823