A REAL TOUGH QUERY!!

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
    Else
        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...
qurashiAsked:
Who is Participating?

[Webinar] Streamline your web hosting managementRegister Today

x
 
lawnrangerConnect With a Mentor Commented:

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
   temprs.Filter="Voltage=SomethingElse"
   Set temprs=temprs.OpenRecordset()
0
 
a111a111a111Commented:
Option Explicit

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

End Sub

0
 
a111a111a111Commented:
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
0
The new generation of project management tools

With monday.com’s project management tool, you can see what everyone on your team is working in a single glance. Its intuitive dashboards are customizable, so you can create systems that work for you.

 
qurashiAuthor Commented:
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!!!
0
 
JayMerrittCommented:
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
 
0
 
lawnrangerCommented:
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
  temprs.Filter="Voltage=SomethingElse"
  Set temprs=temprs.OpenRecordset()

0
All Courses

From novice to tech pro — start learning today.