Individuele records printen

[gebo51]

Beste allemaal,

Met behulp van onderstaande thread heb ik geprobeerd mijn probleem op te lossen, maar het is me nog niet gelukt.

http://www.helpmij.nl/forum/showthread.php?t=338695&highlight=openreport

Probleem:
Ik heb een tabel en formulier 'Leveranciers' met gelinkt aan het fomulier een subformulier met contactpersonen. Een leverancier kan meerdere contactpersonen hebben, maar ik wil natuurlijk slechts 1 contactpersoon op mijn rapport hebben.

Via een keuzelijst op het formulier 'leveranciers' kan ik de betreffende contactpersoon selecteren. Via een button op het formulier zou, via de code van 'Bartuls' hieronder, de juiste contactpersoon op het rapport moeten verschijnen, echter dit lukt me niet.
Ik krijg de foutmelding 'de expressie bevat een ongeldige verwijzing...'

Hierbij het bericht van Bartuls met de code:
Bartuls
Giga Senior

Geregistreerd op: May 2001
Locatie: Maarssen
Afstand tot server: ±126.39 km Maak een rapport dat alle records toont.
Maak een multiselect listbox (keuzelijst) op een formulier.
Maak op dat formulier met de wizard een knop om je rapport te openen.
Pas de code onder de knop een beetje aan zodat de geselecteerde records aan het rapport doorgegeven worden.
Voorbeeldcode:

Private Sub cmdReportContract_Click()
    Dim itm As Variant
    Dim ctl As Control
    Dim strIDs As String
    Dim blnReturn As Boolean
    
    On Error GoTo Err_cmdReportContract_Click
    
    Set ctl = Me.lsttblContract
    strIDs = ""
    
    If ctl.ItemsSelected.Count < 1 Then
        MsgBox "Eerst één of meerdere contracten selecteren", vbCritical + vbOKOnly, "Fout"
        Me.lsttblContract.SetFocus
        Exit Sub
    End If
    
    For Each itm In ctl.ItemsSelected
        strIDs = strIDs & CStr(ctl.Column(0, itm)) & ", "
    Next itm
    
    strIDs = Left(strIDs, Len(strIDs) - 2)
    
    DoCmd.OpenReport "rptContract", acViewPreview, , "ID IN (" & strIDs & ")", acWindowNormal
    
Exit_cmdReportContract_Click:
    Exit Sub

Err_cmdReportContract_Click:
    MsgBox Err.Description
    Resume Exit_cmdReportContract_Click
End Sub

Ik sluit een uitgekleed voorbeeld van mijn db bij.
Ik hoop dat iemand mij kan helpen.
Alvast bedankt
Groeten

 

[huijb]

Dan gaan we natuurlijk daar ook verder. Deze gaat dicht.