20. september 2014 - 10:08Der er
22 kommentarer og 1 løsning
Modul kode
Hej,
jeg får en fejl i nedenstående kode:
'Option Compare Database Option Explicit
Public Gbl_id As String 'her er en kommentar
Public Function get_global(i As String) Select Case i Case "HentId" get_global = Gbl_id End Select End Function
Public Function SendPdf_Girokort() Dim db As DAO.Database Dim rst As DAO.Recordset Set db = CurrentDb() Set rst = db.OpenRecordset("tbl_Udskriv_Girokort") With rst .MoveFirst Do Gbl_id = !GirokortID DoCmd.OutputTo acOutputReport, "rpt_Girokort_Interval", acFormatPDF, Forms!frm_Udskrivningsinterval.Filplacering& !"Girokortnr. " & ![GirokortID] & ".pdf" .MoveNext Loop Until .EOF .Close End With End Function'
Resultatet af koden skal være en række pdf filer indeholdende alm. girokort oplysninger. Titlen på den enkelte fil skal være 'Girorkortnr. [GirokortID].pdf'
Public Function SendPdf_Girokort() Dim db As DAO.Database Dim rst As DAO.Recordset Set db = CurrentDb() Set rst = db.OpenRecordset("tbl_Udskriv_Girokort") With rst .MoveFirst Do Gbl_id = !GirokortID Dim sFile As String sFile = Forms!frm_Udskrivningsinterval.Filplacering & "Girokortnr. " & ![GirokortID] & ".pdf"
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.