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'

Fejlen er tilsyneladende i denne linie:

DoCmd.OutputTo acOutputReport, "rpt_Girokort_Interval", acFormatPDF, Forms!frm_Udskrivningsinterval.Filplacering& !"Girokortnr. " & ![GirokortID] & ".pdf"

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'