VBA vraagje

[Verwijderd]

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

[Broken]

Mhhh denk zoiets heb het niet getest of zo maar je moet het zelf maar even controlen.
Maar ik denk dat het dat je zelf ook had kunnen vinden.

anyway hier wat code

code:

dim teller as integer

teller = 0

Do Until teller = 5

rst.Fields("geplaatst") = True

teller = teller + 1

rst.MoveNext
Loop

[whoami]

Welke database gebruik je ?
SQL Server ? Kijk dan eens naar TOP.

* whoami zwijgt ook maar over sql injection.