Private Sub skrFakt_Click()
Dim rst As DAO.Recordset
Dim AntPoster As Integer
Dim i As Integer
Dim Rptl As String, Rpt2 As String, BetDok As String Dim Timeliste_regning As String
'sjekk at det ikke er brukt flere satser for samme art
If DCount("*" "OrdrerTilFakt_sjekkArt") > O Then
MsgBox "Du har brukt forskjellige satser for samme art" & vbCrLf &
"Rett opp ved å kjøre 'Timepriser, endre for ordre' etter feillista '
DoCmd.OpenQuery "OrdrerTilFakt sjekkArt", acViewNormal, acReadOnly
GoTo ut
End If
DoCmd.SetWarnings False
DoCmd.OpenQuery "Pos MVA fixJAI', acViewNormal, acEdit
DoCmd.OpenQuery "Pos MVA fixNEl", acViewNormal, acEdit
DoCmd.SetWarnings True
Set rst = Me.RecordsetClone
' rst.Open "Ordrer_til_fakturering", CurrentProject.AccessConnection rst.MoveFirst
Rptl = "Faktura er"
Rpt2 -- "Matr RA fleir"
BetDok = "Bankgiro_er" Timeliste_regning = "Timer_fakt_regn"
AntPoster = DCount(
' AntPoster = 1
If AntPoster = O Then GoTo ut
For i = 1 To AntPoster Me.Bookmark = rst.Bookmark
Summere påløpt
DoCmd.SetWarnings False
DoCmd.OpenQuery "PosBruktMT OTF", acViewNormal, acEdit
DoCmd.OpenQuery "PosBrukt_OTF", acViewNormal, acEdit
DoCmd.SetWarnings True
Faktura
DoCmd.SelectObject acReport, Rptl, True
DoCmd.PrintOut acPrintAll
' Materialliste
DoCmd.SelectObject acReport, Rpt2, True
DoCmd.PrintOut acPrintAll
' Timeliste
DoCmd.SelectObject acReport, Timeliste_regning, True
DoCmd.PrintOut acPrintAll
Beta lingsdokument
DoCmd.SelectObject acReport, BetDok, True
DoCmd.PrintOut acPrintAll
rst.MoveNext
Next i
rst.Close Set rst = Nothing
Set db = Nothing
ut: End Sub