VBA report code

[Joyce007]

Hallo allemaal,

Ik loop weer even tegen een klein probleempje aan.
Ik heb een knop gemaakt in een formulier dat een rapport opent.
Echter als ik nu op de knop druk dan kan ik het rapport niet zien maar drukt access het rapport gelijk af.
En ik wil graag dat access het rapport opent en dat ik dan nog de keuze kan maken om hem af te drukken.

De volgende VBA code heb ik gebruikt:

Private Sub Knop0_Click()
                        DoCmd.Close acForm, "frmSub"
                        DoCmd.OpenReport "QyIDgegevens"
                        
End Sub

Wie kan me helpen??
XxX Joyce

 

[OctaFish]

Je bent er bijna....

DoCmd.OpenReport "QyIDgegevens", [B][COLOR="blue"]acViewPreview[/COLOR][/B]

Zonder extra parameters wordt de standaardactie uitgevoerd is, en dat is, je raadt het al......

 

[Joyce007]

Nou opent hij na wijziging van de code netjes mijn rapport.
Alleen nu blijft het formulier nog netjes op de voorgrond staan dus voor mijn rapport.
Doe ik nu iets fout?

 

[OctaFish]

Nee, je doet op zich niks fout. Ik vermoed dat je het formulier als PopUp opent; dan blijft hij inderdaad op de voorgrond hangen. Je kunt, als je alles netjes wilt doen, het formulier verbergen voordat je het rapport opent, en bij het sluiten van het rapport maak je het formulier dan weer zichtbaar. Je kunt dan op dezelfde plek verder met je formulier.

 

[Joyce007]

Moet je dit dan oplossen dmv VBA code of is het frm naar Popup "Nee" zetten voldoende?

XxX Joyce

 

[OctaFish]

Met Popup=Nee werkt het ook. Alleen zien je formulieren er dan minder gecontroleerd uit, vind ik. Daarom doe ik het zelf (wel met VBA) door het formulier te verbergen/zichtbaar te maken.

 

[Joyce007]

En moet ik dan de VBA code wie ik nu heb staan op de knop dan wijzigen?
En wat zou dan de code worden?

XxX Joyce

 

[OctaFish]

Op het formulier open je het rapport zo:

Me.Form.Visible = False
DoCmd.OpenReport "rPrinter", acViewPreview

Op het rapport zet je dit:

Private Sub Report_Close()
    Forms![B][COLOR="blue"]JouwFormulierNaam[/COLOR][/B].Form.Visible = True
End Sub