Option button

[Rap261]

Hallo,


Ik heb een Sub formuliertje met daarin 3 opties.
Het is de bedoeling dat wanneer je een optie kiest en op de knop "open rapport" drukt
het betreffende rapport (table) geopend wordt. Kies je voor een andere optie dan wordt het rapport behorende bij die optie getoond enz. Zie bijlage voor voorbeeld

Nu zoek ik een code die dit realiseerd. Zelf denk ik aan een Case situatie die "hangt" onder de "Open rapport" knop, zie onderstaand

Private Sub Openrapport_BeforeUpdate(Cancel As Integer)
FollowLink (Openrappoprt.ListIndex)
End Sub

Private Sub FollowLink(ByVal intIndex As Integer)
Select Case intIndex
Case 0
If option1 = selected then
Open form "Dag Rapportage Marktorders (Cash)"
Case 1
If option2 = selected then
Open form "Dag Rapportage Marktorders (Stukken)"
Case2
If option3 = selected then
Open form "Issues Overview Funds"
End Select
End Sub

Bovenstaande code werkt niet en misschien zit ik er wel helemaal naast.
Wie kan me verder helpen

Alsvast bedankt

 

[Rap261]

Ik heb een deel van het antwoord kunnen vinden op
http://www.datapigtechnologies.com/flashfiles/optiongroups.html
Hier wordt als voorbeeld een msgbox geopend bij elke keuze

Het lukt mij alleen nog niet om een table te openen.

Met onderstaande code werkt het niet

DoCmd.OpenTable "Souscription Fam23", [ViewAsAcView = acViewNormal], [DataMode As AcOpenDataMode = acEdit]

Wie kan mij verder helpen

 

[OctaFish]

Als je radiobuttons wilt gebruiken om een actie te triggeren, maak je eerst een groep aan met de wizard radiobuttons, om de verschillende radiobuttons te definieren, en de waarde ervan vast te leggen. Vervolgens hang je de Case Select code aan de eigenschap OnChange van het frame, en niet aan de radiobuttons. Je gedachte was dus in beginsel goed, maar de uitwerking niet helemaal.
De radiobuttons zelf gebruik je alleen maar om de waarde van het frame te genereren, je hoeft er dus geen code aan te hangen.

Voorbeeld: in een frame met 3 buttons met de waarden 1,2 en 3 ziet het er ongeveer zo uit:

OnChange fraOpties()

Select Case fraOpties.Value
     Select Case 
          Case 1
               DoCmd.Openreport "Rapport1"
          Case 2
               DoCmd.Openreport "Rapport2"
          Case 3
               DoCmd.Openreport "Rapport3"
          Case Else
    End Select

Tis misschien niet gelijk opgevallen, maar de hier beschreven variant opent gelijk het aangeklikte rapport; aangezien ik liever lui dan moe ben, klik ik liefst zo weinig mogelijk... Uiteraard kun je deze code ook aan het Click Event van de knop hangen!

Succes ermee!

Michel

 

[Rap261]

Michel,

Bedankt voor je reactie. Ik begreep het gedeelte dat je de onder de buttons zelf geen code hangt. Het ging mij erom welk sukje code ik moest gebruiken om een Table te openen.

DoCmd.OpenTable "Rapport1"

Ik zat veel te diep met mijn script zie ik nu

Vraag is nu: hoe sluit ik mijn Subformulier zdat ik alleen nog de Table zie?
Met ondestaande code lukt het me niet

DoCmd.Close acForm = acDefault, "Test"
of
DoCmd.Close.Form "Test"

 

[Rap261]

Gevonden:

DoCmd.Close acForm, "Test"

Vraag is opgelost