[Access2003] Raport afdrukken uit Keuzelijst

[Verwijderd]

Beste mensen,

Kan iemand mij vertellen hoe ik van een record uit een keuzelijst dat rapport af kan drukken? De persoonsnamen in de keuzelijst zijn variabel en veranderen dus continue. Wie o wie heeft voor mij een VB script?

Alvast bedankt!!

[TheXception]

Verwijderd schreef op 21 mei 2004 @ 14:10:
Wie o wie heeft voor mij een VB script?

Volgens mij is het niet de bedoeling dat je om complete scripts vraagt. De vraag is wat je zelf al hebt geprobeerd.
Kijk eens in de Noordewind database, daar zit een heel mooi voorbeeld van een dergelijke afdrukselectie. Als je er dan niet uitkomt, kun je concreet aangeven waar het misgaat.

[BtM909]

TheXception schreef op 21 mei 2004 @ 15:24:
[...]
Kijk eens in de Noordewind database, daar zit een heel mooi voorbeeld van een dergelijke afdrukselectie. Als je er dan niet uitkomt, kun je concreet aangeven waar het misgaat.

Een hoop mensen onderschatten die voorbeeld db. Maar daar zit echt veel relevante info in verwerkt, waarbij ik weet dat die rapportselectie werkt.

[Verwijderd]

De voorbeeldbase van MS Access heb ik al eerder doorspit. Ik kon helaas niet vinden wat ik moet hebben, behalve dat ik de huidige record kon afdrukken, maar niet 1 die ik uit een keuzelijst haal. Bij de MS Knowledge base (zie: http://support.microsoft....spx?scid=kb;en-us;Q209560 )vond ik wel wat, maar ook dit was niet geschikt om de gegevens uit een keuzemenu uit te lezen. Sorry, maar ik kom er echt even niet uit...

[TheXception]

Heb je wel gekeken naar "Rapporten afdrukken" wat je in Noordenwind opent vanuit het Hoofdschakelbord?
Als je dan kijkt naar "Omzet per categorie" zul je zien dat daar een keuzelijst achter zit, van waaruit je afdrukt.
Kijk daar eens naar, dat is volgens mij precies wat je zoekt...

En zoals BtM909 ook zegt... Dat werkt echt!

[Verwijderd]

Sorry, ik kan er nog steeds niet uitkomen. Dit is wat ik nu geprobeerd heb, maar werkt helaas niet:

Private Sub Knop416_Click()
On Error GoTo Err_Knop416_Click

Dim stDocName As String
Dim stLinkcriteria As String

stDocName = "Rpt_VARverklaring"
stLinkcriteria = "[Freelancenummer]=" & " ' " & Me![Keuzelijst414] & "'"
DoCmd.OpenReport stDocName, acPreview

Exit_Knop416_Click:
Exit Sub

Err_Knop416_Click:
MsgBox Err.Description
Resume Exit_Knop416_Click

End Sub

[TheXception]

[quote]Verwijderd schreef op 24 mei 2004 @ 11:16:

code:

 Private Sub Knop416_Click()
On Error GoTo Err_Knop416_Click

    Dim stDocName As String
    Dim stLinkcriteria As String
    
    stDocName = "Rpt_VARverklaring"
    stLinkcriteria = "[Freelancenummer]=" & " ' " & Me![Keuzelijst414] & "'"
    DoCmd.OpenReport stDocName, acPreview

Exit_Knop416_Click:
    Exit Sub

Err_Knop416_Click:
    MsgBox Err.Description
    Resume Exit_Knop416_Click
    
End Sub[/quote]

So-wie-so is de OpenReport methode niet volledig... waarom maak je een variabele stLinkcriteria als je deze vervolgens niet gebruikt? .
Hint: Je geeft nu dus geen criterium mee bij het openen van je rapport...

[Verwijderd]

Hmm, zie je maar weer dak er weinig sjoege van heb. Moet ik misschien iets anders dan stLinkCriteria gebruiken?

[TheXception]

Verwijderd schreef op 24 mei 2004 @ 11:32:
Moet ik misschien iets anders dan stLinkCriteria gebruiken?

Nee, maar je moet hem wel gebruiken in de DoCmd.OpenReport stDocName, acPreview .....
Je hebt nu alleen maar een variabele gedeclareed, nu nog gebruiken...

[Verwijderd]

Even wat aangepast, maar dan krijg ik nog steeds de eerste record te zien:

DoCmd.OpenReport stDocName, acPreview, stLinkcriteria

[TheXception]

Verwijderd schreef op 24 mei 2004 @ 12:11:
DoCmd.OpenReport stDocName, acPreview, stLinkcriteria

Dit kan nooit werken, want je stLinkcriteria staat niet op de juiste plaats...
Heb je wel in de help gekeken? Hierin staat namelijk hoe de syntax moet zijn:

code:

DoCmd.OpenReport rapportnaam[, weergave][, filternaam][, where-voorwaarde]

Nu heb je de where-voorwaarde op de plek van de filternaam gezet...


_{BTW: Dit komt uit de help van Access 97, maar in 2003 zal het er warschijnlijk niet veel anders uitzien.}

[ Voor 12% gewijzigd door TheXception op 24-05-2004 12:52 ]

[Verwijderd]

Nou snap ik er helemaal niets meer van . Heb in de help gekeken, maar helaas kon ik door het OpenReport Methode niet veel wijzer worden!

Heb nu geprobeerd:

DoCmd.OpenReport [Rpt_VARverklaring], [acViewPreview], [stLinkcriteria]

[ Voor 29% gewijzigd door Verwijderd op 24-05-2004 14:12 ]

[TheXception]

't Moet erin zitten.
Thuis heb ik ook Access 2003 en ook daar werkt het.
Kijk anders op MDSN of koop een boek VB voor Access.

[Verwijderd]

hmmm...kan jij mij misschien vertellen hoe die ene regel in elkaar zit? Als dat niet helpt, loop ik naar de bruna toe in de hoop dat dat er in staat..

[Verwijderd]

Als je aan het editen bent, krijg je allerlei hints in keuzelijsten en gele vakjes over de syntax van je statement. Bijvoorbeeld als je typt docmd. krig je een keuzelijst van allerlei methoden. Kies dan die van OpenReport en tik op spatie. In een gele box wordt de parameterlijst van getoond. Je hoeft dus niks uit het hoofd te weten. Je moet wel weten en begrijpen wat het allemaal betekend. Het statement zou moeten zijn, gebruik makend van de defaults:
docmd.openreport <rapportnaam>,,,<where-condition>