Access-o-Mania

Access-Forum (Deutsch/German) => Formular => Thema gestartet von: Tobs2012 am Juli 25, 2012, 14:59:46

Titel: Code zum deaktivieren von allen Kontrollkästchen in Vba Access (Formular)
Beitrag von: Tobs2012 am Juli 25, 2012, 14:59:46
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
Titel: Re: Code zum deaktivieren von allen Kontrollkästchen in Vba Access (Formular)
Beitrag von: bahasu am Juli 25, 2012, 15:21:23
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
Titel: Re: Code zum deaktivieren von allen Kontrollkästchen in Vba Access (Formular)
Beitrag von: DF6GL am Juli 25, 2012, 15:23:33
Hallo,



etwa so:



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

End Sub
Titel: Re: Code zum deaktivieren von allen Kontrollkästchen in Vba Access (Formular)
Beitrag von: bahasu am Juli 25, 2012, 15:45:37
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]
Titel: Re: Code zum deaktivieren von allen Kontrollkästchen in Vba Access (Formular)
Beitrag von: Tobs2012 am Juli 25, 2012, 16:25:55
Danke für die Hilfe :)) Habs am Ende einfach so gemacht :

Private Sub Befehl328_Click()

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



MFG Tobi
Titel: Re: Code zum deaktivieren von allen Kontrollkästchen in Vba Access (Formular)
Beitrag von: DF6GL am Juli 25, 2012, 19:23:27
Hallo,

das ist aber kein "Deaktivieren"... Das ist Zuweisen eines Wertes an ein Steuerelement und bedeutet hier das Entfernen des KK-"Hakens"...
Titel: Re: Code zum deaktivieren von allen Kontrollkästchen in Vba Access (Formular)
Beitrag von: Beaker s.a. am Juli 25, 2012, 21:51:12
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)
---

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


@DF6GL
Zitat
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
Titel: Re: Code zum deaktivieren von allen Kontrollkästchen in Vba Access (Formular)
Beitrag von: bahasu am Juli 25, 2012, 22:10:31
Zitat von: Beaker s.a. am Juli 25, 2012, 21:51:12
@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
Titel: Re: Code zum deaktivieren von allen Kontrollkästchen in Vba Access (Formular)
Beitrag von: Beaker s.a. am Juli 25, 2012, 23:24:37
Hallo Harald,
ZitatDeine 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