Add a forms label to a query

[CD Tom]

I have a query with fields defined from a table. I have a label on a form that I would like to add to this query, the forms name is params and the label name is match4. The labels caption can be changed on the form and I want that new caption to be in the query, can this be done. Any help would be appreciated.
Thanks again for your help.

[CD Tom]

Ok, I changed those labels to textboxs and change the querydefs to .[value] but I get the same thing. I think maybe I need to come up with some other way to get this done.
Thanks for all your help.

[zmbd]

CD Tom,
Don't give up just yet.
Let's look at the two textboxes Params.Club_nam e, Params.Regional Name for ease let's call them txtClubname and txtRegionalName .

When the user enters the information into these two boxes so that [textclubname]=userclubname and [txtRegionalName]=userregionalna me let's determine what you want to do...

Somewhere we have to have a table to work with...

Now this table either has to have fields in it named "userclubna me" and "userregionalna me" or you're trying to gather records where the information in the table field meets that requirement.

Case one:
tbl_example1
[PK] autonumber - primary key
[userclubname] - text(50) required, no duplicate
[userregionalnam e] - text(50) required, no duplicate

'This code is written from memory, it has not
'been checked for typos against the complier
'sorry, not at a PC with Access or VB installed
'
Dim zdb As DAO.Database, zqrydef As DAO.QueryDef
Dim zsql as string
Dim zuserinput1 AS string, zuserinput2 AS string 
'
'setup for the database
Set zdb = CurrentDB
'
'check to see if the query exsists
'qry_example
'and if so then remove it from the collection
For each zqrydef in zdb.querydefs
   '
   if lcase(zqrydef.name)="qry_example" then
      zqrydef.delete "qry_example"
   end if
next zqrydef
'
'now build the query for the selected fields:
zuserinput1 = me.txtclubname.value
'example user entered userclubname
'
zuserinput2 = me.txtregionalname.value
'example user entered userregionalname
'
'very simple select query, no wheres no whys
'just get the two fields from the table and
'show all records within the table tbl_example1
'
'NOTE the space appended in string!
zsql = "Select " & zuserinput1 & "," & _
       "zuserinput2 & " " & _
       "FROM tbl_example1;"
'
'Using our example this string should evaluate to:
'Select userclubname,
'   userregionalname
'From tbl_example1;
 
'create the query (see why we searched first?)
'if you try to create a query with the same name
'access will have a tempertantrum
'
Set zqrydef = zdb.CreateQueryDef("qry_example", zsql)
'
'That's it... you can add code to open the query
'the user can open the query from the navigation pane
'you can use the query in the transfersheet method, etc..
'
'Clean UP - - Always a cleanup step
zdb.close
set zdb = nothing
set zqrydef = nothing
end sub

Case two:
tbl_example2
[PK] autonumber - primary key
[clubnames] - text(50) required, no duplicate
[regionalnames] - text(50) required, no duplicate

We're going to repeat some of the above code:

'This code is written from memory, it has not
'been checked for typos against the complier
'sorry, not at a PC with Access or VB installed
'
Dim zdb As DAO.Database, 
Dim zrs As DAO.recordset '<<<notice
Dim zsql as string
Dim zuserinput1 AS string, zuserinput2 AS string 
'
'setup for the database
Set zdb = CurrentDB
'
'now build the query for the selected fields:
zuserinput1 = me.txtclubname.value
'example user entered userclubname
'
zuserinput2 = me.txtregionalname.value
'example user entered userregionalname
'
'very simple select query, no wheres no whys
'just get the two fields from the table and
'show all records within the table tbl_example2
'
'NOTE the space appended in string!
zsql = "Select * " & zuserinput1 & "," & _
       "FROM tbl_example2 " & _
       "WHERE(([clubnames] = '"  & zuserinput1 & "')" & _
       "AND ([regionalnames] = '" & zuserinput2 & "'));"
'Using our example this string should evaluate to:
'Select *
'From tbl_example2
'WHERE (([clubnames] = 'userclubname') AND
'(regionalnames] = 'userregionalname'));
'
'Now lets open a record set based on the sql string:
set zrs = zbd.openrecordset(zsql,dbOpenDynaset)
'
'That's it... you can add code to pull information out
'of the record set for display on the forms or whatever
'you desire (well... almost)
'
'Clean UP - - Always a cleanup step
zdb.close
set zdb = nothing
set zrs = nothing
end sub

As I said, I pulled all of the code for the two blocks out of my head... amazing how lazy I've gotten with the vba editor window... so there might be a syntax error.
-
z