ACC2000: How to Print Randomly Selected Records

ID: Q207593


The information in this article applies to:

Moderate: Requires basic macro, coding, and interoperability skills.

This article applies only to a Microsoft Access database (.mdb).


SUMMARY

This article describes a method that you can use to print records that are randomly selected.


MORE INFORMATION

There may be occasions where you need to print a selection of records that do not have a common criteria. For example, you may need to send an acknowledgment to each customer who responded to a survey, but you do not want to keep a permanent record of these responses. To do this, you need to add a Yes/No field to a table, add a check box to a form, and build two new queries. The first query will be a select query that you will use as the record source for the report; the second query will be an update query that you will use to reset the Yes/No field. This example uses the sample database Northwind.mdb.

Add a Yes/No Field to the Table

  1. Open the sample database Northwind.mdb.


  2. Select the Customers table, and click Copy on the Edit menu.


  3. On the Edit menu, click Paste.


  4. In the Table Name text box of the Paste Table As dialog box, type tblExample.


  5. Under Paste Options, select Structure And Data, and then click OK.


  6. Open the tblExample table in Design view and add the following field:


  7. 
       Table: tblExample
       --------------------
       Field Name: ysnPrint
       Data Type: Yes/No
       Required: No
       Indexed: No 
  8. Save the changes and close the table.


Add a Check Box to a Form

  1. Make a copy of the Customers form as frmExample.


  2. Open the frmExample form in Design view.


  3. Change the Caption and RecordSource properties of the form as follows:


  4. 
       Form: frmExample
       -------------------------
       Caption: Print
       RecordSource: tblExample 
  5. Add the following check box to the form:


  6. 
       Check box:
       -----------------------
       Name: chkPrint
       ControlSource: ysnPrint 
  7. Change the Caption property of the adjacent label as follows:


  8. 
       Label:
       ---------------------
       Name: lblPrint
       Caption: Print Record 
  9. Save the changes and close the form.


Build the Query for the Record Source of the Report

  1. Build the following query:


  2. 
       Query: qryExample
       -------------------
       Type: Select Query
    
       Field: tblExample.*
       Table: tblExample
    
       Field: ysnPrint
       Table: tblExample
       Show: No
       Criteria: Yes 
  3. Make a copy of the Customer Labels report as rptExample.


  4. Open the rptExample report in Design view.


  5. Change the RecordSource property of the report to qryExample.


  6. Save the changes and close the report.


Build the Update Query that Resets the Yes/No Field

  1. Build the following query:


  2. 
       Query: updExample
       ------------------
       Type: Update Query
    
       Field: ysnPrint
       Table: tblExample
       Update To: No
       Criteria: Yes 
  3. Save the changes and close the query.


Test the Example

  1. Open the frmExample form in Form view.


  2. Move through the records and, at random, click to select the Print Record check box for a number of records and make a note of those selected.


  3. Close the form and open the rptExample report in Print Preview.


  4. You should see a mailing label for each of the customers that you selected in Step 2.


  5. Close the report and run the qryExample query.


  6. Open the frmExample form in Form view and move to each record that you had previously selected in Step 2. Note that the Print Record check box is no longer selected.



REFERENCES

For more information about update queries, click Microsoft Access Help on the Help menu, type "update queries, creating" in the Office Assistant or the Answer Wizard, and then click Search to view the topics returned.

For more information about creating check boxes, click Microsoft Access Help on the Help menu, type "check boxes, creating" in the Office Assistant or the Answer Wizard, and then click Search to view the topics returned.

Additional query words: limit inf


Keywords          : kbprint kbdta GnlOthr 
Version           : WINDOWS:2000
Platform          : WINDOWS 
Issue type        : kbhowto 

Last Reviewed: May 13, 1999