Private Sub cmdTiskCenovek_Click()
Dim db As DAO.Database
Dim obj As AccessObject
Dim rstCenovky As DAO.Recordset
Dim strSQL As String
Dim myCreateSQL As String
Dim myInsertSQL As String
Dim intPocetA As Integer
Dim intPocetZ As Integer
Dim varEANKod As Variant
Dim varCenaMOC As Variant
Dim varNazev As Variant
' Načíst všechny tabulky v databázi
For Each obj In Application.CurrentData.AllTables
' Když pomocná tabulka existuje, pokračujeme v kontrole
If obj.Name = "tblTMP_ProTiskCenovek" Then
' je-li pomocná tabulka otevřena
If obj.IsLoaded Then
'...zavřeme ji
DoCmd.Close acTable, "tblTMP_ProTiskCenovek", acSaveNo
End If
'Nyní pomocnou tabulku odstraníme.
DoCmd.DeleteObject acTable, "tblTMP_ProTiskCenovek"
End If
Next obj
' Když tabulka není, tak ji vytvoříme, včetně potřebných polí.
myCreateSQL = "CREATE TABLE tblTMP_ProTiskCenovek"
myCreateSQL = myCreateSQL & " ([KodEAN] Char,"
myCreateSQL = myCreateSQL & " [CenaMOC]Char,"
myCreateSQL = myCreateSQL & " [Nazev]Char)"
DoCmd.RunSQL myCreateSQL
' vytvoříme potřebný SQL dotaz pro nachystaní potřebných záznamů
strSQL = "SELECT ZboziIdProduktu.NazevProduktu AS Nazev, SkladNakupyRozpisy.Mnozstvi AS Mnozstvi, ZboziCenyProduktu.KoncovaCenaMOC AS Cena, ZboziIdProduktu.VlastniKodProduktu AS EanKod"
strSQL = strSQL & " FROM (ZboziIdProduktu INNER JOIN SkladNakupyRozpisy ON ZboziIdProduktu.Id_Produktu = SkladNakupyRozpisy.Produkt)"
strSQL = strSQL & " INNER JOIN ZboziCenyProduktu ON ZboziIdProduktu.Id_Produktu = ZboziCenyProduktu.Id_ProduktuProCeny"
strSQL = strSQL & " WHERE (((SkladNakupyRozpisy.Id_Nakupu)= " & Id_Nakupu & "))"
Set db = CurrentDb
' Vytvoříme sadu záznamů, které budeme tisknout
Set rstCenovky = db.OpenRecordset(strSQL)
If rstCenovky.EOF Then Exit Sub
' Nastavíme na první záznam
rstCenovky.MoveFirst
Do Until rstCenovky.EOF
' Po jednom vkládáme do pomocné tabulky
intPocetZ = rstCenovky.Fields("Mnozstvi")
' Každý záznam zopakujeme podle počtu položek
For intPocetA = 1 To intPocetZ
' Nachystaní cenovky (řádku v tabulce)
varEANKod = rstCenovky.Fields("EanKod")
varCenaMOC = rstCenovky.Fields("Cena")
varNazev = rstCenovky.Fields("Nazev")
' Vytvoření SQL pro vložení nového řádku do tabulky
myInsertSQL = "INSERT INTO tblTMP_ProTiskCenovek "
myInsertSQL = myInsertSQL & "( KodEAN, CenaMOC, Nazev) "
myInsertSQL = myInsertSQL & " VALUES ( '" & varEANKod & "', '" & varCenaMOC & "', '" & varNazev & "')"
' Vypnutí upozorňující hlášky na přidáni nového záznamu (neoznámí ale žádnou chybu)
DoCmd.SetWarnings False
' Vložení nového řádku do tabulky
DoCmd.RunSQL myInsertSQL
' Znovu zapnout chybové hlášky
DoCmd.SetWarnings True
Next
' Přejdeme na další položku a opakujeme násobeni cenovek dalšího zboží
rstCenovky.MoveNext
Loop
' Zrušíme sadu záznamů
Set rstCenovky = Nothing
Set db = Nothing
' Spustíme připravenou sestavu na datech pomocné tabulky v náhledovém zobrazeni
DoCmd.OpenReport "sesCenovkyRayFilm0527", acViewPreview, , , acWindowNormal
End Sub
