Mininaaml en maximaal

[justmehaxe]

Hallo,

Ik heb de volgende code:

Dim rst As New ADODB.Recordset
Dim strSQL As String

strSQL = "Select geplaatst,heraanmelding From tblinschrijving where cursuscode='" & Me!cursuscode.Value & "'"

rst.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic, 1

rst.MoveFirst


Do Until rst.EOF

rst.Fields("geplaatst") = True

rst.MoveNext
Loop

End Sub

Deze code zorgt er voor dat hij een subformulier door loopt met behulp van een LOOP en alle checkboxen in geplaatst op true zet. Nou vinkt hij alle checkboxen aan, dit wil ik veranderen naar bijvoorbeeld de eerste 5 records.

bvd.

Greetz

 

[joost verdaasdo]

Hai,

Leuke methode welke je daar gebruikt maar er is een aparte collectie beschikbaar (Controls) om jou te helpen..(Zie mijn antwoord vorige vraag)

Je kunt voor dit vraagstuk dezelfde Loop gebruiken.

Nu moet je alleen de eigenschap "Extra info" (Tag) gebruiken om die controls uniek te maken welke jij aan wilt zetten.

Private Sub Knop10_Click()
Dim x As Control

    For Each x In subfrmPlaatsing.Controls
       If x.ControlType = 106 Then
         If x.Tag = "Aan" Then
            x.Value = True
         End If
       End If
    Next x
End Sub

Dus elke checkbox waarvan extra info op "Aan" is ingevuld wordt nu aangezet!

See Yah! :thumb: