Copy Button on a form

[dead7]

I need a copy button [COPYBttn] on a form that will open a query [qry1] hidden and then copy the single record that is filtered to be pasted some where else then closes the query [qry1]. Please help

 

[greely]

try the DLookup function

 

[dead7]

I need a copy button [COPYBttn] on a form that will open a query [qry1] hidden and then copy the single record that is filtered to be pasted some where else then closes the query [qry1]. Please help

 

[greely]

Hi

The DLookup function will do just that.

For example:

If you have a table named ATable with two fields:
TheFieldYouWant field and TheFilterField field

and a query named qry1
qry1="SELECT ATable.TheFieldYouWant, ATable.TheFilterField FROM ATable;"

On a form you have a textbox named text1 and a commandbutton named COPYBttn

The following code in the onClick event of COPYbttn will put the filtered results into text1:

Dim aFld
aFld = DLookup("[TheFieldYouWant]", "qry1", " [TheFilterField] ='AFilterCriterion'")
Me!Text1 = aFld

Hope this helps.