[Access 2007]Een bestaand rapport openen vanuit een combobox

[Clyde Barrow]

Beste Tweakers,

ik probeer de selectie van een keuzelijst met invoervak (Combobox) te koppelen aan het openen van een rapport.

Heb verschillende rapporten opgeslagen die dezelfde naam hebben als de keuzemogelijkheden in de combobox.

Dan heb ik naast het invoervak een button staan. Daar probeer ik al lang de juiste code achter te brengen om het juiste rapport te openen...

naam Combobox = cboInvoer
naam formulier waar combobox instaat is frmZoekformulier

Dim stDocName As String
stDocName = frmZoekformulier!cboInvoer.ItemText
DoCmd.OpenReport stDocName, acPreview


Hoop dat iemand me hiermee kan verder helpen...

[Witte]

Wat is je probleem? Foutmelding?

Je kan een na bijwerken-event instellen met ongeveer jouw code. Dan zou het moeten werken.
onderstaande code werkt prima (cboInvoer is de combobox)

code:

Private Sub cboInvoer_AfterUpdate()
  On Error Resume Next  
  DoCmd.OpenReport Me.cboInvoer.Value, acViewPreview
  If Err.Number <> 0 Then MsgBox Err.Description, vbExclamation
End Sub

Ik heb er ook een stukje error-handling ingestoken, anders zou je wel eens een programma onderbreking kunnen krijgen.

En met een knop (btnKnopje) op een ander formulier zou onderstaande code moeten werken:

code:

Private Sub btnKnopje_Click()
  On Error Resume Next 
  DoCmd.OpenReport Forms!frmZoekformulier.cboInvoer.Value, acViewPreview
  If Err.Number <> 0 Then MsgBox Err.Description, vbExclamation
End Sub

[ Voor 37% gewijzigd door Witte op 21-12-2011 16:22 ]

[Clyde Barrow]

Hartelijk bedankt voor de code, Witte! Het is me eindelijk gelukt nu!