ACC97: How to Create Custom Navigation Buttons on an ASP Page (165629)

MORE INFORMATION

NOTE: This section contains information about editing ASP files and assumes that you are familiar with editing HTML files, Active Server Pages, and Visual Basic Scripting. Microsoft Access Product Support professionals do not support customization of any HTML, HTX, IDC, or ASP files.

This article demonstrates a method that creates custom navigation buttons that enable you to move through the form by modifying the VBScript for the Active Server Page file. To modify the VBScript for a particular form, follow these steps:

1. Create the form that you will be using as an Active Server Page and add the following command buttons to the form:

      Command Button:
         Name: MoveNextRecord
         Caption: MoveNextRecord
   
      Command button:
         Name: MoveFirstRecord
         Caption: MoveFirstRecord
   
      Command button:
         Name: MoveLastRecord
         Caption: MoveLastRecord
   					

2. Set the Navigation property of the Form to No.
3. Export the form to Active Server Page format and note the folder to which the file is exported. There should be two files in this folder that are associated with your Active Server Page. One of the files will contain the characters "alx" (without the quotation marks).
4. Use Notepad or another text editor to open the file that contains the characters "alx." You should see code similar to the following:

         <SCRIPT LANGUAGE=VBScript>
         <!--
         Dim rgszCtrls(6,2)
         Dim cMaxCtrls
         cMaxCtrls = 6
   
         Sub AddCtrlToList(szCtrl, szCtrlSrc)
             Dim i
             for i = 1 to cMaxCtrls
                 if rgszCtrls(i, 1) = szCtrl Then Exit Sub
                 if rgszCtrls(i, 1) = "" Then
                     rgszCtrls(i, 1) = szCtrl
                     rgszCtrls(i, 2) = szCtrlSrc
                     Exit Sub
                  End If
              next
          End Sub
   					

5. Add the following three Sub procedures to the code just before the line that reads </SCRIPT>.
   
   NOTE: In the following sample code, an underscore (_) at the end of a line is used as a line-continuation character. Remove the underscore from the end of the line when re-creating this code.

         Sub FirstRecord_MoveFirstRecord_Click()
   
             Window.Location.Href =
                 "/scripts/formname.asp?nav_btn=nav_btn_MoveFirstRecord&" _
             & GetCtrlQueryString()
   
         End Sub
   
         Sub NextRecord_MoveNextRecord_Click()
   
             Window.Location.Href =
                 "/scripts/formname.asp?nav_btn=nav_btn__MoveNextRecord&" _
             & GetCtrlQueryString()
   
         End Sub
   
         Sub LastRecord_MoveLastRecord_Click()
   
             Window.Location.Href =
             "/scripts/formname.asp?nav_btn=nav_btn__MoveLastRecord&" _
             & GetCtrlQueryString()
   
         End Sub
   					

6. Modify the OBJECT ID's for the above controls in the </SCRIPT> section and replace the names as follows:

          FirstRecord = FirstRecord_MoveFirstRecord.
          NextRecord = NextRecord_MoveNextRecord.
          LastRecord = LastRecord_MoveLastRecord.
   					

7. Close and save the file.
8. Open your Web browser and your Active Server Page form. Click one of the custom command buttons. The buttons should now enable you to move through the pages.