Results 1 to 3 of 3
  1. #1
    Join Date
    May 2003
    Posts
    41

    Unanswered: Passing Variables to a Query

    I have a pretty long query that incorporates a couple of ASK Strings (ther query pops up some boxes to get input from the user).

    Is there any way to set a variable in VBA to pass as the ASK string, instead of popping up a box asking them? I'd like the user to be able to select the choices from a dropdown list on a form, and not have to type them in.

    Thanks.

  2. #2
    Join Date
    Jun 2003
    Location
    USA
    Posts
    1,032

    Re: Passing Variables to a Query

    Originally posted by secutanudu
    I have a pretty long query that incorporates a couple of ASK Strings (ther query pops up some boxes to get input from the user).

    Is there any way to set a variable in VBA to pass as the ASK string, instead of popping up a box asking them? I'd like the user to be able to select the choices from a dropdown list on a form, and not have to type them in.

    Thanks.
    The free downloadable sample database at www.bullschmidt.com/access uses the query by form concept so that on the invoices dialog one can optionally choose a rep, a customer, and perhaps a date range, click on a button that says "Input," and then have the invoice form open up showing all the invoices that match the criteria.

    And here is how the query by form concept can work.

    On the invoices dialog there are the following controls:
    InvDateMin with DefaultValue of =DateSerial(Year(Date())-1,1,1)
    InvDateMax with DefaultValue of =Date()
    InvRepNum with DefaultValue of *
    InvCustNum with DefaultValue of *

    Also on the invoices dialog there is a command button called cmdInput to open the invoices form with the following code behind the OnClick property:
    DoCmd.OpenForm "frmInv"

    And of course there could be a button to open a report the same way:
    DoCmd.OpenReport "rptInv", acViewPreview

    The invoices form (frmInv) has RecordSource property of qryInv.

    And the qryInv query's criteria for the InvDate field has:
    Between [Forms]![frmInvDialog]![InvDateMin] And [Forms]![frmInvDialog]![InvDateMax]

    And the qryInv query's criteria for the RepNum field has:
    Like [Forms]![frmInvDialog]![InvRepNum]

    And the qryInv query's criteria for the CustNum field has:
    Like [Forms]![frmInvDialog]![CustNum]

    One related point is that you probably wouldn't want to allow blanks (i.e. Nulls) in fields that are going to be used with Like in any criteria for that field. Otherwise the blanks wouldn't be shown. And to counter that you might consider creating the query's SQL statement dynamically so that the criteria on a particular field isn't used unless needed.
    J. Paul Schmidt, Freelance Web and Database Developer
    www.Bullschmidt.com
    Access Database Sample, Web Database Sample, ASP Design Tips

  3. #3
    Join Date
    Oct 2003
    Location
    Ger
    Posts
    1,969
    Provided Answers: 1
    Just put int the criteria (which you want to filter)

    [Forms]![YourFormName].[TextBoxContainsYourCriteria]

    Also you can use between, in this case you shoud have two TextBoxes

    P.S Before starting your Query the form must be opend..


Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •