plantenlabels

[frankie59]

Ik heb een database gemaakt waar gegevens van planten in staan. ik wil graag dat alle records die in een form staan uitgeprint worden ik gebruik nu dit commando:

If Me.Dirty Then    'Save any edits.
        Me.Dirty = False
    End If

    If Me.NewRecord Then 'Check there is a record to print
        MsgBox "Select a record to print"
    Else
       strWhere = "[id]= " & Me.id
        DoCmd.OpenReport "label", acViewPreview, , strWhere
     End If

maar dan pakt hij de eerste regel van het formulier en gaat niet verder , wie kan mij helpen? alvast bedankt.

 

[OctaFish]

Ik zie niet zo snel wat er verkeerd zou kunnen zijn, al is de regel bij mij:
DoCmd.OpenReport stDocName, acPreview, , sFilter
Dat kan echter met de access versie te maken hebben. Heeft het ooit wel goed gewerkt? Kun je anders een voorbeeldje posten?

P.S. Kun je VBA code opmaken met de CODE tag? (knop #)