Code zum deaktivieren von allen Kontrollkästchen in Vba Access (Formular)

[Tobs2012]

Hallo Leute, ich hab da ein kleines Prob. ich habe in meinem Access Formular ein paar Kontrollkästchen die ich gerne per drücken einer Schaltfläche alle gleichzeitig deaktivieren möchte ! Da ich bis jetzt nur Codes zum aktivieren gefunden hab und noch ein Newbie bin in sache Vba bitte ich um eure Hilfe !! Muss nur ein BSP Code sein anpassen kann ich den dann ja selber

Danke im Vorraus

Tobi

[bahasu]

Hi


Me.DeinKontrollKaestchen.enabled = false  ' Deaktivieren


Me.DeinKontrollKaestchen.enabled = true   ' Aktivieren


Me.DeinKontrollKaestchen.visible = false  ' unsichtbar machen

Me.DeinKontrollKaestchen.visible = true  ' sichtbar machen

Diese Zeilen sind alternativ zu nehmen.

Harald

[DF6GL]

Hallo,



etwa so:



Sub btnKKReset_Click()
Me!KK1.Enabled=False
Me!KK2.Enabled=False
Me!KK3.Enabled=False
.
.

End Sub

[bahasu]

Hi Tobi,

wenn wirklich alle deaktiviert werden sollen und es so viele sind, dass viele Programmzeilen herauskommen, dann gibt es noch eine Variante (siehe Anhang).

Harald

[Anhang gelöscht durch Administrator]

[Tobs2012]

Danke für die Hilfe ) Habs am Ende einfach so gemacht :

Code [Auswählen] Erweitern

Private Sub Befehl328_Click()

          Kontrollkästchen1.Value = False
           Kontrollkästchen2.Value = False
           Kontrollkästchen3.Value = False
           Kontrollkästchen4.Value = False
                             .
                             .
                             .
          End Sub



MFG Tobi

[DF6GL]

Hallo,

das ist aber kein "Deaktivieren"... Das ist Zuweisen eines Wertes an ein Steuerelement und bedeutet hier das Entfernen des KK-"Hakens"...

[Beaker s.a.]

Hallo Tobi,
Wenn Deine Controls alle so durchnummeriert sind, kannst Du das doch
mit einer Schleife machen.
---
@Harald
Dein Beispiel habe ich mir jetzt nicht angesehen, nehme aber an, dass es
da ähnlich gelöst ist; - wahrscheinlich per Schleife durch die Controls)
---

Code [Auswählen] Erweitern

For i = 1 To NummerLetzteCheckbox
    Me.Controls("Kontrollkästchen" & i).Value = False
Next i

@DF6GL

das ist aber kein "Deaktivieren"... Das ist Zuweisen eines Wertes an ein Steuerelement und bedeutet hier das Entfernen des KK-"Hakens"...

Aufgrund des Titels glaube ich, dass er genau das gemeint hat mit "Kontrolkästchen deaktivieren"
.Value = False -> Häkchen weg -> Checkbox deaktiviert.
gruss ekkehard

[bahasu]

@Harald
Dein Beispiel habe ich mir jetzt nicht angesehen, nehme aber an, dass es
da ähnlich gelöst ist; - wahrscheinlich per Schleife durch die Controls)

Hi Ekkehard,

Deine obige Annahme ist korrekt.

Diese Art ziehe ich vor, auch wenn vielleicht ein paar Zeilen mehr erforderlich sind.
Mittels solch einer Schleife braucht man nicht zu wissen, wieviele Controls zu behandeln sind und auf welche Art der Name aufgebaut ist.

Harald

[Beaker s.a.]

Hallo Harald,

Deine obige Annahme ist korrekt.

Diese Art ziehe ich vor, auch wenn vielleicht ein paar Zeilen mehr erforderlich sind.

Ich auch, bin da ganz bei Dir. Ist ja auch viel einfacher zu warten.
Dies war mal so "quick & dirty" 
gruss ekkehard