ACC: Sample Function to Open a Form to a Particular Record

Zavrnitev odgovornosti za umaknjeno vsebino KB

Ta članek govori o izdelkih, za katere Microsoft ne ponuja več podpore. Zato je ta članek na voljo »tak, kot je«, in ne bo več posodobljen.

Summary

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


This article shows you how to create a sample Visual Basic for Applications function that uses the InputBox()function to open a form to a particular record.


This article assumes that you are familiar with Visual Basic for Applications and with creating Microsoft Access applications using the programming tools provided with Microsoft Access. For more information about Visual Basic for Applications, please refer to your version of the "Building Applications with Microsoft Access" manual.


NOTE: Visual Basic for Applications is called Access Basic in Microsoft Access versions 1.x and 2.0. For more information about Access Basic, please refer to the "Introduction to Programming" manual in Microsoft Access version 1.x or the "Building Applications" manual in Microsoft Access version 2.0.

More Information

The OpenFormWithInput() function opens the form to the record where the CustomerID (or Customer ID in versions 1.x and 2.0) matches the value that you enter in the input box.


If you change "=" to ">=" on the OpenForm line in the function, the form opens to the record that you want and displays subsequent records as well. For example, if you type CACTU as the CustomerID in the input box, CustomerID AROUT is not part of the form's record set, but THEBI is.

  1. Open the sample database Northwind.mdb (or NWIND.MDB in versions 1.x and 2.0).
  2. Create a module and type the following line in the Declarations section if it is not already there:
    Option Explicit
  3. Type the following procedure:


    In Microsoft Access 7.0 and 97:

          Function OpenFormWithInput()
    Dim Msg, Title, Defvalue, Answer
    Msg = "Enter a Customer ID (AROUT, CACTU, THEBI, etc.)."
    Title = "OPEN CUSTOMERS FORM"
    Defvalue = "CACTU"
    Answer = InputBox(Msg, Title, Defvalue)
    If Answer <> "" Then
    DoCmd.OpenForm "Customers", , , "[CustomerID]='" & Answer & "' "
    Else
    DoCmd.OpenForm "Customers"
    End If
    End Function
    In Microsoft Access 1.x and 2.0:
          Function OpenFormWithInput()
    Dim Msg, Title, Defvalue, Answer
    Msg = "Enter a Customer ID (AROUT, CACTU, THEBI, etc.)."
    Title = "OPEN CUSTOMERS FORM"
    Defvalue = "BOTTM"
    Answer = InputBox(Msg, Title, Defvalue)
    If Answer <> "" Then
    DoCmd OpenForm "Customers", , , "[Customer ID]='" & Answer & "' "
    Else
    DoCmd OpenForm "Customers"
    End If
    End Function
  4. Open the Customers form in Design view.
  5. Add a command button to the form, and set the following property:
    OnClick (or OnPush in version 1.x): =OpenFormWithInput()
  6. Open the form in Form view and click the command button. Accept the default value in the input box (or type any valid CustomerID) and click OK. Note that the form opens to the designated customer.


    NOTE: If you type an invalid CustomerID in the input box, Microsoft Access displays a blank form.
Lastnosti

ID članka: 109818 – Zadnji pregled: 18. jan. 2007 – Revizija: 1

Povratne informacije