Rapport openen op basis van combo box

Status
Niet open voor verdere reacties.
S

Scallebe

Gebruiker
Lid geworden
29 okt 2014
Berichten
528
Goede middag ontwikkelaars,

Ik heb 5 specifieke rapporten. Ik zou graag op basis van een selectie in een combo-box in mijn formulier het desbetreffende rapport willen openen.

Ik heb reeds volgende code maar ik krijg geen reactie als ik de knop aanklik: (dit is een test voor 1 rapport)

Code: 
Private Sub Toestemming_Click()
Select Case Me.cboSoortPiercing & ""
    Case "Neus"
      DoCmd.OpenReport "Piercing Neus", acViewPreview
End Select
End Sub

Wat doe ik fout?


Groetjes

Pascal
 
Ik heb ondertussen al de fout gevonden.

Ik heb er de Column van de ComboBox bijgezet ...

Code: 
Private Sub Toestemming_Click()
Select Case Me.cboSoortPiercing.[COLOR="#0000FF"]Column(1)[/COLOR] & ""
    Case "Neus"
      DoCmd.OpenReport "Piercing Neus", acViewPreview
End Select
End Sub

En het is opgelost :thumb:

Alle andere suggesties zijn welkom natuurlijk


Thanks

Pascal
 
Als je de naamgeving consequent doet, kan dit ook:
Code: 
Private Sub Toestemming_Click()
   DoCmd.OpenReport "Piercing ", & Me.cboSoortPiercing.Column(1) , acViewPreview
End Sub
 
OctaFish,

Dat is wat ik bedoel met suggesties. :thumb::)

ipv 5 x case te gebruiken is het met één lijn code opgelost.


Ik heb trouwens uw laatste voorbeeldje gezien en het is precies wat ik zocht. Van een bestaande piercing naar een opdracht of omgekeerd, vanuit een opdracht een nieuwe piercing creëren. :thumb:


Thanks

Goe weekend

Pascal
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan