IN THE SPOTLIGHT: MDE to MDB Conversion Service
(also supports: ACCDE to ACCDB, ADE to ADP, etc)
IN THE SPOTLIGHT: vbWatchdog
VBA error handling just got easier...
" vbWatchdog is off the chart. It solves a long standing problem of how to consolidate error handling into one global location and avoid repetitious code within applications. "
- Joe Anderson,
Microsoft Access MVP
Meet Shady, the vbWatchdog mascot watching over your VBA code →
(courtesy of Crystal Long, Microsoft Access MVP)
IN THE SPOTLIGHT: vbMAPI
An Outlook / MAPI code library for VBA, .NET and C# projects
Get emails out to your customers reliably, and without hassle, every single time.
Use vbMAPI alongside Microsoft Outlook to add professional emailing capabilities to your projects.
Provided by Allen Browne, email@example.com, August 2002. Updated November 2006.
Need several labels for the same record? This tip works for a fixed number of labels (e.g. a whole sheet for each client), or a variable number (where the quantity is in a field).
A common suggestion is to toggle NextRecord (a runtime property of the report) in the Format event of the Detail section.
This approach works if the user previews/prints all pages of the report. It fails if only some pages are previewed/printed: the events for the intervening pages do not fire, so the results are inconsistent.
This approach also fails in the new Report view in Access 2007, since the events of the sections do not fire in this view.
A simpler and code-free solution uses a query with a record for each label. To do this, you need a table containing a record from 1 to the largest number of labels you could ever need for any one record.
Here's the function that will enter 1000 records in the counter table. Paste it into a module. Then press Ctrl+G to open the Immediate window, and enter:
Function MakeData() 'Purpose: Create the records for a counter table. Dim db As Database 'Current database. Dim lng As Long 'Loop controller. Dim rs As DAO.Recordset 'Table to append to. Const conMaxRecords As Long = 1000 'Number of records you want. Set db = DBEngine(0)(0) Set rs = db.OpenRecordset("tblCount", dbOpenDynaset, dbAppendOnly) With rs For lng = 1 To conMaxRecords .AddNew !CountID = lng .Update Next End With rs.Close Set rs = Nothing Set db = Nothing MakeData = "Records created." End Function
(The function requires the DAO library: more information).
|Home||Index of tips||Top|
This is a cached tutorial, reproduced with permission.
Have your say - comment on this article.
What did you think of 'Printing a Quantity of a Label'?
No comments yet.
Why not be the first to comment on this article?!
Have your say...