Parameter Question

[n8kindt]

this is a very basic question but i might be making it more complicated than it should be. if i were to have a query with the following code

SELECT Tbl1.ID, Tbl1.[First Name], Tbl1.[Last Name]
FROM Tbl1
WHERE (((Tbl1.ID)=[forms]![frmTest].[id]));

it will automatically pull whatever is in the frmTest's id value.

now, what if i decide that for a particular case i don't want the ID criteria? if frmTest is closed it will prompt me to enter in data to replace [forms!test.id]. if i changed the criteria to Nz([forms!test.id],0) it would fill in the criteria as zero without a prompt. so, instead of using zero, is there a command that can be used to tell the query not to use any criteria and run the query like as if there were nothing in the where statement?

this is also related to when i make a query def parameter in DAO and decide i don't want a parameter in certain situations. how would i bypass the prompt? i have gotten around this by using if/then statements but i'm thinking there is an easier way.

i tried explaining this question the best i could. but it still might be confusing. please let me know if you need more clarification on my question. thanks!

[ADezii]

Howse about?

If IsClosed("<Your Form Name Here>") Then
  SELECT Tbl1.ID, Tbl1.[First Name], Tbl1.[Last Name] FROM Tbl1
Else
  SELECT Tbl1.ID, Tbl1.[First Name], Tbl1.[Last Name]
  FROM Tbl1
  WHERE Tbl1.ID = [forms]![frmTest].[id];
End If

Function IsClosed(ByVal strFormName As String) As Boolean
'Returns True if the specified Form is closed , otherwise returns False
Const conObjStateClosed = 0
Dim intCounter As Integer
Dim blnFormExists As Boolean
 
blnFormExists = False       'initialize
 
'Let's see if the Form actually exists in the Database
For intCounter = 0 To CurrentDb.Containers("Forms").Documents.Count - 1
  If CurrentDb.Containers("Forms").Documents(intCounter).Name = strFormName Then
    blnFormExists = True
      Exit For
  End If
Next
 
If blnFormExists Then
  'Form exists, but is it Closed?
  If SysCmd(acSysCmdGetObjectState, acForm, strFormName) = conObjStateClosed Then
    IsClosed = True
  Else
    IsClosed = False
  End If
Else
  MsgBox "The Form (" & strFormName & ") does not exist in the Current Database", _
         vbExclamation, "Form Does Not Exist"
End If
End Function

[JKing]

Out of curiousity what is the query being used for? By that I mean is the end result to display the query to a user? Or is it being used to supply data to a form or report?

The reason I ask is because that if you write a query that has no where clause to begin with you can add the where condition on the fly to filter your form/report. I'm not sure if it's what you are looking for but it is something to think about. This would also handle the situation where you want all data returned.

[n8kindt]

Howse about?

Function IsClosed(ByVal strFormName As String) As Boolean
'Returns True if the specified Form is closed , otherwise returns False
Const conObjStateClosed = 0
Dim intCounter As Integer
Dim blnFormExists As Boolean
 
blnFormExists = False       'initialize
 
'Let's see if the Form actually exists in the Database
For intCounter = 0 To CurrentDb.Containers("Forms").Documents.Count - 1
  If CurrentDb.Containers("Forms").Documents(intCounter).Name = strFormName Then
    blnFormExists = True
      Exit For
  End If
Next
 
If blnFormExists Then
  'Form exists, but is it Closed?
  If SysCmd(acSysCmdGetObjectState, acForm, strFormName) = conObjStateClosed Then
    IsClosed = True
  Else
    IsClosed = False
  End If
Else
  MsgBox "The Form (" & strFormName & ") does not exist in the Current Database", _
         vbExclamation, "Form Does Not Exist"
End If
End Function

wow, do u create code from scratch and post it on these forums? i admire your dedication to vba! that is a major upgrade over the code i created. i'm afraid to say that i was wondering if there was a way to bypass using a function like that. i was just curious if there was a simple command i could put in the criteria. for example, if i put the IS NULL command (idk if it's called a command, could be keyword.... whatever the technical name for it would be) in the criteria, it will return all the records that have null values for that field. the opposite goes for IS NOT NULL. it returns all the records that are not null. i was wondering if there was a command like (and i'm making this up) RETURN ALL and no criteria will be applied to that field in the where statement--which would return ALL records--no matter what the field contains. that way, i can fill the query parameter with "johnson" and it would return all records containing "johnson." but if i want to return all records, i could simply fill the query parameter with RETURN ALL. i don't know if a method of any sort exists for this or not but that's why i'm asking.

i just got to thinking that maybe to return all records, i would have to fill the parameter with IS NOT NULL OR IS NULL? i'm not sure how i would do that in the case of the querydefs example b/c it would be looking for a string and would simply return records that contain "is null or is not null" in the record.

i'm sorry i know i haven't describe this all that well. i've sat on this post for a while trying to figure out how to put into the best terms i can.

[n8kindt]

Out of curiousity what is the query being used for? By that I mean is the end result to display the query to a user? Or is it being used to supply data to a form or report?

The reason I ask is because that if you write a query that has no where clause to begin with you can add the where condition on the fly to filter your form/report. I'm not sure if it's what you are looking for but it is something to think about. This would also handle the situation where you want all data returned.

ok, i just created a new example. in the past, this is what i have done:

 
If IsNull(Forms!StartEnd!FCFilter) = True Then
 
  Set qdf = db.QueryDefs("qrySource4Email")
  Set rs = qdf.OpenRecordset()
Else
  Set qdf = db.QueryDefs("qrySource4EmailFiltered")
  qdf.Parameters("[FCID]") = Forms!StartEnd!FCFilter
  Set rs = qdf.OpenRecordset()
End If

i would rather simply have this line of code:

 
Set qdf = db.QueryDefs("qrySource4EmailFiltered")
  If IsNull(FCFilter) = False Then
    qdf.Parameters("[FCID]") = Forms!StartEnd!FCFilter
  Else
    qdf.Parameters("[FCID]") = fill in blank 'i want this _
              'to return all records... if i set it to "" it returns nothing
  End If
Set rs = qdf.OpenRecordset()

this is a simple scenario of what i might run into. but there are many other instances besides this. hopefully this example paints a better picture?

[n8kindt]

oh my gosh i think i finally figured it out. i think the theoretical RETURN ALL statement i had been looking for is actually an asterisk! *

duh. i'd seen the asterisk used many times before but never put two and two together. well now i feel like an idiot lol.