selectie op (meerdere) keuzerondje(s) nr 2

[Friend]

Beste forummers, OctaFish,

In onderstaande draadje heb je mij geholpen met een groepsvak en keuzerondjes.

http://www.helpmij.nl/forum/showthread.php/911585-selectie-op-(meerdere)-keuzerondje(s)

Dat werkt nog steeds prachtig. Alleen ik loop nu tegen het volgende probleem aan:

Als ik de rapporten man en vrouw samenbreng als sub rapporten in een nieuw rapport rptManVrouw en ik gebruik
het groepsvak met de keuzerondjes (uiteraard aangepast, verwijzende naar het nieuwe rapport rptManVrouw)
dan werkt de selectie niet meer voor leiding of geen leiding.

De groepsvakken heb ik staan op frmKeuzeRapport en heb hier dus 2 groepsvakken: fraLeiding_m en fraLeiding_m_v

fraLeiding_m werkt maar fraLeiding_m_v niet

Dit ligt er waarschijnlijk aan dat ik sub rapporten gebruik.

Alleen ik zou niet weten hoe ik dit in VBA moet veranderen.

Is het wel mogelijk wat ik wil?

Friend

 

[OctaFish]

Ik zal niet snel zeggen dat iets niet mogelijk is, hooguit moeilijk . Maar daar is hier geen sprake van, want de oplossing is best simpel. Namelijk: de query van je rapporten veranderen. Ik zou dat zo doen:

Private Sub fraLeiding_m_v_Click()
Dim strSQL As String
Dim sFilter As String
    
    Select Case Me.fraLeiding_m_v.Value
        Case 1
            sFilter = "[Leiding]=True AND "
        Case 2
            sFilter = "[Leiding]=False AND "
        Case 3
            sFilter = ""
    End Select
    
    strSQL = "SELECT Id, naam, [m/v], leiding FROM tblNaw WHERE " & sFilter & "[m/v] = ""m"" ORDER BY naam;"
    CurrentDb.QueryDefs("qNaw_m").SQL = strSQL
    strSQL = "SELECT Id, naam, [m/v], leiding FROM tblNaw WHERE " & sFilter & "[m/v] = ""v"" ORDER BY naam;"
    CurrentDb.QueryDefs("qNaw_v").SQL = strSQL

    DoCmd.OpenReport "rptManVrouw", acViewPreview
    
End Sub

 

[Friend]

Michel,

Hartelijk dank

Dat is een mooie oplossing van je.
Doet weer wat het moet doen.
Kunnen we weer verder.

Thanks :thumb:

Friend