Umschaltfläche markiert Kontrollkästchen

[squooshie]

Guten Morgen allerseits,

ich benötige bei folgendem Problem etwas Hilfe.

In einer Tabelle gibt es neben einer Auflsitung verschiedener Apparate das Ja/Nein Feld "drucken" .

Über ein Endlosformular werden alle Apparatebezeichnungen aufgelistet und daneben das Kontrollfeld "drucken" dargestellt. Aus diesem Formular heraus wird ein Bericht erstellt, der die Apparate , bei denen das Kontrollfeld "drucken" den Wert -1 hat, ausdruckt.

Soweit funktioniert das alles ganz gut, nun fehlt mir nur noch eine Umschaltfläche mti der ich alle Kontrollkästchen aus- oder abwählen kann.

Wie bringe ich die Umschaltfläche nun dazu die gewünschte Funktion zu erfüllen.

Gruß

Squooshie

[T417]

Guten morgen,

Wenn ich dich richtig verstanden habe, hast du in deiner Tabelle ein Ja/Nein Feld für die Druckwahl.
Dann müsste dir das weiterhelfen:

Code [Auswählen] Erweitern

Currentdb.Execute("UPDATE Deine_Tabelle SET Dein_JaNein_Feld=""0"" ")

Gruß
T.

[squooshie]

Genau so meinte ich das!

Vielen Dank!

Aber wie bekomm ich das nun hin, dass mit der Umschaltfläche bei einmal klicken alle markiert werden und beim nächsten mal klicken alle Markierungen aufgehoben werden?

[T417]

Du könntest einen kleinen Trick anwenden.
Lege zwei Umschaltflächen direkt übereinander und wechsel zwischen beiden Schaltflächen hin und her.

Oder verwende direkt zwei verschiedene Schaltflächen. Das ist wohl auch sinnvoller.

Oder aber verwende eine komplizierten Code:

Code [Auswählen] Erweitern

If Not IsNull(DLookup("Dein_JaNein_Feld", "Deine_Tabelle", "Dein_JaNein_Feld=""0"" ")) Then

Der Code könnte funktionieren, ist aber nicht getestet.
Außerdem les dir für DLookUp am besten das Kapitel dazu in der VBA Hilfe durch.


Gruß
T.

[squooshie]

Ich habe es jetzt über 2 Schaltflächen gemacht. Ist die simpelste Lösung.

Kann ich das ganze noch etwas beschleunigen? Wenn ich auf "alle anwählen" klicke, passiert erstmal nichts, wenn ich dann scrolle sind plötzlich alle Felder markiert. Gibts da noch irgendeine Möglichkeit, sonst muss ich wohl damit leben.

Gruß

Squooshie

[T417]

Probiere mal folgenes:

Code [Auswählen] Erweitern

Me.refresh

Das müsste klappen. 

Gruß
T.

[squooshie]

Klappt.

Genau so habe ich mir das vorgestellt!

Vielen Dank!

[T417]

Bitte sehr.