We help IT Professionals succeed at work.


qurashi asked
Medium Priority
Last Modified: 2010-04-30
I am working with an access database. I am setting up a query form, where users can set their criteria in text boxes which are labelled.  Now, I understand that I must evaluate
each and every textbox to see if it is valid and run a query on my access table.

Right now I am doing this:

  Dim f_voltacmin As Integer
    If voltacmin.Text = "" Then
      ' do nothing
        f_voltacmin = voltacmin.Text
        Set temprst = dse.Database.OpenRecordset("SELECT *" _
        & " FROM MASTER" _
        & " WHERE VOLTAGE_AC >=  " & f_voltacmin & " OR VOLTAGE_AC_MIN >=  " & f_voltacmin & " ")
End If

Set dse.Recordset = temprst

and then I am running this again and again with different fields, I will modularize it later...

But I have realized that it opens up the table each and every time, and the previous SQL statement gets lost. Even though I have set the database recordset to the temp recordset.  But I think when I fill in the SELECT and FROM, that is what screws it up.  What I want to do is use the WHERE clause without the FROM, because I don't want to select the same table each time, I want to select my query up to date.

How can I execute multiple SQL expressions like above for the same table at different times? I need to execute them multiple times because I need to evaluate the user input, to see if I can do it or not.

What I essentially want to do is query my table, and query that query, query that subquery and so on until I am done.

How do I DO THIS!!!!

Thanks in advance...
Watch Question

Option Explicit

Private Sub Command1_Click()
Dim f_voltacmin 'As Integer not for here
        If voltacmin.Text = "" Then
            MsgBox " Nothing"
          ' do nothing
            f_voltacmin = voltacmin.Text
            MsgBox f_voltacmin
        End If

End Sub

Hi, You can explicit the  f_voltacmin as string
 and  voltacmin.Text  as string as well.

 but You cannot place a string variable into Integer...
 NOT GOOD: >> Dim f_voltacmin As Integer
                         If voltacmin.Text = "" Then
                         f_voltacmin = voltacmin.Text   <<< This is wrong


That is not the answer I am looking for! I guess I was vague.
I don't really care about the data types and such, what I am concerned about is how to perform an SQL subquery on an existing table, and then perform another SQL subquery on that query, and another SQL subquery on that subquery and so on in regards to what I am doing with getting user input.

So essentially I want to filter out records based on one criteria, and then on that list, perform another filter to get it smaller and so on and on... for the rest of the criteria.  It may seem inefficient, but that is the way it has to be done!!!
Each field in your SELECT can be a SELECT.

Something like this:

SELECT (Select Volts from tblVolts1 Where Volts = 123) As Field1, (Select Volts from tblVolts2 Where Volts = 456) As Field2
Seems too easy...what's the catch?

Use the Filter method as in;
' create recordset from first WHERE criteria
  temprs=MainDB.OpenRecordset("SELECT whatever
         FROM Table WHERE Voltage=Something",dbOpenDynaset)
'then loop on subsequent criteria
  Set temprs=temprs.OpenRecordset()

Unlock this solution and get a sample of our free trial.
(No credit card required)
Unlock the solution to this question.
Thanks for using Experts Exchange.

Please provide your email to receive a sample view!

*This site is protected by reCAPTCHA and the Google Privacy Policy and Terms of Service apply.


Please enter a first name

Please enter a last name

8+ characters (letters, numbers, and a symbol)

By clicking, you agree to the Terms of Use and Privacy Policy.