Predmet:Re: label print broja

---

Evo kako sam ja rijesio ovaj prblem
1 kreirao sam tabelu barcode
2 iz query_ja napravim drugu tabelu,koja mi je sourcerecod, kalkulacije broja sa ekranske forme,naziva stampabc
3 donjim kodom sa komandnog tastera pozivam pregled labela

Private Sub Command90_Click()
Dim i As Integer, rst As DAO.Recordset, strRep As String, lngBrr As Long
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE * FROM barcode"
DoCmd.RunSQL "SELECT Qkalkulacija.proizvod, Qkalkulacija.kulaz, Qkalkulacija.broj, Qkalkulacija.ime, Qkalkulacija.jedmj, Qkalkulacija.cijena INTO stampabc FROM Qkalkulacija WHERE (((Qkalkulacija.broj)=[Forms]![kalkulacija]![broj]));"

Set rst = CurrentDb.OpenRecordset("stampabc")
Do Until rst.EOF
lngBrr = rst!broj
For i = 1 To rst!KULAZ
DoCmd.RunSQL "INSERT INTO barcode (proizvod,broj) VALUES ('" & rst!proizvod & "'," & lngBrr & ")"
Next i
rst.MoveNext
Loop
rst.Close
If lngBrr = 0 Then lngBrr = InputBox("Broj kalkulacije?")
DoCmd.RunSQL "UPDATE barcode SET broj = " & lngBrr
DoCmd.SetWarnings True
DoCmd.OpenReport "Labels", acViewPreview, "", "", acNormal