checkbox

[justmehaxe]

Hallo,

ik heb een formulier in acces waarin allemaal checkboxses in zitten. Deze wou ik graag allemaal laten aanvinken als ik op een knop druk.

Weet iemand de code hiervoor? Tis trouwens wel een formulier met daarin een subformulier waarin de checkboxses aangevinkt moeten worden, de knop zit op het normale formulier.

Ik heb het nu voor elkaar dat hij via een knop een checkbox aanvinkt, maar hij doet er maar 1 terwijl ik wel 14 checkboxes heb (dus 14 records). subfrmPlaatsing!geplaatst = true heb ik nu gedaan.


bvd

Greetz,

 

[joost verdaasdo]

Hai,

Zo dus:

Private Sub Knop10_Click()
Dim x As Control

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

See Yah! :thumb:

 

[Guus2005]

Geplaatst door joost verdaasdo
Hai,

Zo dus:

Private Sub Knop10_Click()
Dim x As Control

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

See Yah! :thumb:

Ik zou de code iets anders formuleren:

For Each x In subfrmPlaatsing.Controls
   If TypeOf x Is CheckBox Then
      x.Value = vbChecked
   End If
Next x

Weest gegroet,
Guus

 

[joost verdaasdo]

Hai,

Dat kan..maar is wel een beetje appels met appels vergelijken! :thumb:

 

[Guus2005]

Je hebt gelijk dat allebei de code voorbeelden exact hetzelfde doen.
Wat appels betreft je hebt granny's en goudreinetten :thumb:

 

[joost verdaasdo]

Hai Granny,

Zolang we ons doel maar bereiken hé...

De groeten van de goudreinet..:thumb:

 

[Guus2005]

Ik vroeg me al af hoe je zou reageren.
Nu kan ik je plaatsen.

Weest gegroet,
Guus

 

[joost verdaasdo]

Geplaatst door Guus2005
Ik vroeg me al af hoe je zou reageren.
Nu kan ik je plaatsen.

Hai Guus,

Geen idee hoe jij mij nu geplaatst heb..maar niks dan goeds van mijn kant hoor!

Leef het leven met een lach...en houd het luchtig!

 

[Guus2005]

Om het kort te houden:

DITO.

Weest gegroet,
Guus

 

[joost verdaasdo]

Ah...gelukkig maar!

See Yah!