How to print multiple labels of one record from a form

[bosve73]

Hi
I have made a program for printing labels i access 2003 and now the only thing I have left is how to print multiple records of one label?. .
I have a very simple database with one table, one form and one report. I would like to have a control box in the form for how many labels I want to print. I have been searching on internet for tutorials and find some but as I am new to Access and programming the tutorials have been very difficult to follow.

[Datagopherdan]

The easiest way that I have found to do this is to have a form where the user would select the record they want printed and an unbound text box where they would enter the # of labels they need. The procedure would then take that # of labels entered and do an interation where an append query would be ran each time and the record would be appended to a temporary table that would be used as the record source in your report that has the labels.

[bosve73]

The easiest way that I have found to do this is to have a form where the user would select the record they want printed and an unbound text box where they would enter the # of labels they need. The procedure would then take that # of labels entered and do an interation where an append query would be ran each time and the record would be appended to a temporary table that would be used as the record source in your report that has the labels.

I know how to make a form and insert a text box but I don't understand the rest of the procedure.

[Datagopherdan]

The syntax would be just this.

  Dim intCount As Integer
  For intCount = 1 To Me!txtNumPrint.Value
   CurrentDB.Execute "qapp_MyLabels"
  Next

"qapp_MyLabels" is a query that appends the information needed for the labels to a temporary table. It just iterates up to the count that is entered in the text box and will run the query that # of times. You would just need to delete the records in the temp table before you run it each time.

I know how to make a form and insert a text box but I don't understand the rest of the procedure.

[bosve73]

The syntax would be just this.

  Dim intCount As Integer
  For intCount = 1 To Me!txtNumPrint.Value
   CurrentDB.Execute "qapp_MyLabels"
  Next

"qapp_MyLabels" is a query that appends the information needed for the labels to a temporary table. It just iterates up to the count that is entered in the text box and will run the query that # of times. You would just need to delete the records in the temp table before you run it each time.

Ok I understand the process now but where do I insert this code and how do I connect the function to the textbox?

[Datagopherdan]

You would just create a command button and insert that on the button's "On Click" event. "txtNumPrint" just refers to the name of the unbound text box where the users would enter how many labels they want printed.

Ok I understand the process now but where do I insert this code and how do I connect the function to the textbox?

[bosve73]

You would just create a command button and insert that on the button's "On Click" event. "txtNumPrint" just refers to the name of the unbound text box where the users would enter how many labels they want printed.

I did that and I got error message:
Run time error 438
Object doesn't support this property or method


Private Sub Command50_Click()
Dim intCount As Integer
this is the line that is highlighted---> For intCount = 1 To Me!HowManyLabelsText.Value
CurrentDb.Execute "qryMogel"
Next
End Sub

[Datagopherdan]

It looks good. Do you have an unbound text box on that form called "HowManyLabelsText"?

I did that and I got error message:
Run time error 438
Object doesn't support this property or method


Private Sub Command50_Click()
Dim intCount As Integer
this is the line that is highlighted---> For intCount = 1 To Me!HowManyLabelsText.Value
CurrentDb.Execute "qryMogel"
Next
End Sub

[bosve73]

It looks good. Do you have an unbound text box on that form called "HowManyLabelsText"?

Yes I have a unbound text box named "HowManyLabelsText"

[Datagopherdan]

Instead of using CurrentDB.Execute, try this

Docmd.Open "qryMogel"

This is not the preferred method of doing it. Sometimes for whatever reason, I have found that CurrentDB throws errors like that. Let me know if it works that way. Also, "qryMogel" is an append query, correct?

It looks good. Do you have an unbound text box on that form called "HowManyLabelsText"?

[PrintShopSup]

Datagopherdan, I am getting this concept to work for setting up my table which will make the labels. Is there a way to pass a calculation to the query when (or before) It is opened?

For example, if the user enters the quantity per box and how many boxes, can a calculation be made for the "last box" which may have a smaller qty (remainder). I am also interested in putting "box xx of xx" on the label so I know I will need to pass another piece to the query before it appends to the table.

Any ideas?

**UPDATE**

Tried setting up an unbound text box (will be hidden when completed) which is used for the box number (box xx of xx). set the txtbox to the count in the loop and passed that in the query that opens. Got my expected results. I will attempt another calculation for current box qty (remainder calc) when I get more time.