Pop-up rapport in VBA

• 

  Alfred

  06-05-2005 09:36

  Hallo

  Ik heb een formulier die als een Pop-up formulier is geopend.

  Hoe kan ik in VBA een gebeurtenis schrijven (doormiddel van een druk op een knop) waardoor ik een rapport in afdrukvoorbeeld krijg die dan als Pop-up is geopend voor mijn formulier en niet achter mijn formulier.

  M.v.g. Alfred
• 

  ERic B

  06-05-2005 23:07

  Kies een knop uit de werkset (icoon hamer en sleutel), zorg dat het toverstafje is ingedrukt. Kies nu Rapportbewerkingen en Afdrukvoorbeeld en voltooien.

  Vraag de eigenschappen van de knop en kijk bij tabblad Gebeurtenis

  Zet de cursor in het event Bij klikken…en klik op de knop met de puntjes

  Je krijgt ongeveer zoiets als het onderstaande te zient.

  Voeg nu het volgende statement toe Docmd.close

  en DoCmd.OpenForm “naamvanmijnpop”, , , “” indien je wilt dat het popscherm weer naar boven komt indien er een fout optreed.

  Private Sub Knop20_Click()

  On Error GoTo Err_Knop20_Click

  Dim stDocName As String

  Docmd.close 'Toegevoegd

  stDocName = “mijnrapprt”

  DoCmd.OpenReport stDocName, acPreview

  Exit_Knop20_Click:

  Exit Sub

  Err_Knop20_Click:

  MsgBox Err.Description

  DoCmd.OpenForm “naamvanmijnpop”, , , “” 'Toegevoegd

  Resume Exit_Knop20_Click

  End Sub

  Als je wilt dat nadat het rapport wordt gesloten het formulier weer naar boven komt dan vraag je de eigenschappen van je rapport op. Kies tabblad Gebeurtenis

  Kies bij sluiten en klik daarna op de knop met puntjes rechts in beeld. Vul tussen Private en End Sub

  DoCmd.OpenForm “naamvanmijnpop”, , , “”

  in.

  Private Sub Report_Close()

  DoCmd.OpenForm “naamvanmijnpop”, , , “” 'Toegevoegd

  End Sub