geselcteerde vakje uit vinken

[sjoemie1985]

ik heb in een database een mogelijkheid om gegevens te selecteren door middel van zo'n selectie vakje die je aan en uit kunt vinken.
maar nu ben ik op zoek naar een mogelijk heid om in 1 keer alle vakjes uit te vinken dus dat ik zo'n aan/ uit vink vakje boven de rij krijg en als ik daar op klik dat dan alle vinkjes of uit of aan gaan.

wie kan mij hiermee helpen
ps ik gebruik nog access 2000

 

[rebmog]

Dat kun je doen met de volgende code:

Private Sub vaktotaal_AfterUpdate()
    If Me.vaktotaal = True Then
        Me.vak1 = True
        Me.vak2 = True
        Me.vak3 = True
    Else
        Me.vak1 = False
        Me.vak2 = False
        Me.vak3 = False
    End If
End Sub

Wel even aanpassen aan je eigen situatie.

Rebmog

 

[sjoemie1985]

oke dankje ik zal het morgen eens proberen.

 

[sjoemie1985]

dat is hem nog niet helemaal, want hij vinkt er maar 1 uit., maar het aantal vink vakjes is afhankelijk van hoeveel rijen met gegevens hebt, dus in de ontwerp weergave zie je maar 1 af vink vakje.

 

[rebmog]

Ik ging er bij mijn antwoord van uit de je gebruik maakte van ongebonden selectievakjes op jouw formulier, maar uit jouw antwoord begrijp ik dat deze selectievakjes in je tabel staan. In dat geval kun je gebruik maken van een update-query, waarbij je de waarden van de betreffende records aanpast in de tabel.

Dit kan in VBA met:
DoCmd.RunSQL "UPDATE tabelnaam Set veldnaam=-1 WHERE .....

Je zult nog wel het WHERE-statement verder moeten aanvullen, want anders worden alle records in de tabel gemuteerd.

Rebmog

 

[Daneron]

of iets met knopjes

Private Sub Knop10_Click()
With Me.RecordsetClone
.MoveFirst
While Not .EOF
.Edit
.Vakje = False
.Update
.MoveNext
Wend
End With
End Sub

Private Sub Knop9_Click()
With Me.RecordsetClone
.MoveFirst
While Not .EOF
.Edit
.Vakje = True
.Update
.MoveNext
Wend
End With
End Sub