Kontrollkästchen "Alle markieren"

[Roli Lantz]

Hallo allerseits,

ich versuche auf einem Unterformular ein Kontrollkästchen zu erstellen das
durch anklicken mehrere andere Kästchen markieren soll um das leidige
durchklicken abzukürzen. Wie weise ich dem Kästchen die Funktion "Alle
markieren" zu ?

Danke für Hilfestellung

Roland

[Jörg Ackermann]

Hi,

"Roli Lantz" <rla...@t-online.de> schrieb:

> ich versuche auf einem Unterformular ein Kontrollkästchen zu erstellen das
> durch anklicken mehrere andere Kästchen markieren soll um das leidige
> durchklicken abzukürzen. Wie weise ich dem Kästchen die Funktion "Alle
> markieren" zu ?

Indem Du sinnige Namen für die Checkboxen
vergibst und dann sowas tust:

Annahme:
checkbox0 ist deine *Main*-Checkbox
checkbox1-...100 sollen durch Main
beeinflusst werden

Private Sub checkbox0_AfterUpdate()
For i = 1 To 100
Me("checkbox" & i).Value = Me!checkbox0.Value
Next i
End Sub

Gruß

[Roli Lantz]

Hallo nochmals,

stelle eben fest dass meine formulierung wohl zu ungenau war, bzw dachte ich
das ginge einfacher. also nochmals das ganze etwas detaillierter:

ich hab ein formular inkl unterformular. das unterformular filtert mir
datensätze und ich hab dann 3 checkboxen hinter jeden angezeigten datensatz
wo ich entsprechend häkchen oder eben keine häkchen setzen will
(ja/nein/vielleicht)
um nicht alle zurückgegebenen datensätze anzuklicken wenn alle zB den wert
ja kriegen sollen, wollte ich oben im kopfbereich die möglichkeit schaffen
allen entweder ja oder nein usw zuzuweisen.

wenn ich der "alle markieren" checkbox nun den namen "ja" gebe und als
ereignis folgendes:

Private Sub ja_GotFocus()

Me!CBJA.Value = checked

End Sub

hatte ich die hoffnung, dass er die checkboxen CBJA in 1 bzw häkchen
ändert. ich krieg nun die fehlermeldung: laufzeitfehler 2448 und ich könne
diesem objekt keinen wert zuweisen.

CBJA ist die checkbox die ich ändern will.

was mach ich falsch

>schnipp>

[Roli Lantz]

sehe ich das nun richtig, dass niemand dazu eine geniale Idee hat ?
schade eigentlich :-(

"Roli Lantz" <rla...@t-online.de> schrieb im Newsbeitrag
news:#3vo3mTg...@TK2MSFTNGP11.phx.gbl...
> Hallo nochmals,
>
<schnipp>

[Doerthe Weber]

Hallo Roland

Roli Lantz wrote:

> Hallo nochmals,
>
> stelle eben fest dass meine formulierung wohl zu ungenau war, bzw dachte ich
> das ginge einfacher. also nochmals das ganze etwas detaillierter:
>
> ich hab ein formular inkl unterformular. das unterformular filtert mir
> datensätze und ich hab dann 3 checkboxen hinter jeden angezeigten datensatz
> wo ich entsprechend häkchen oder eben keine häkchen setzen will
> (ja/nein/vielleicht)
> um nicht alle zurückgegebenen datensätze anzuklicken wenn alle zB den wert
> ja kriegen sollen, wollte ich oben im kopfbereich die möglichkeit schaffen
> allen entweder ja oder nein usw zuzuweisen.
>
> wenn ich der "alle markieren" checkbox nun den namen "ja" gebe und als
> ereignis folgendes:
>
> Private Sub ja_GotFocus()
>
> Me!CBJA.Value = checked
>
> End Sub
>
> hatte ich die hoffnung, dass er die checkboxen CBJA in 1 bzw häkchen
> ändert. ich krieg nun die fehlermeldung: laufzeitfehler 2448 und ich könne
> diesem objekt keinen wert zuweisen.
>
> CBJA ist die checkbox die ich ändern will.
>
> was mach ich falsch

Wenn Du den Wert aller Sätze im Unterformular auf "ja" setzen willst
solltest Du es per SQL machen (eine Aktualisierungsabfrage mit den gleiche
Filterbedinungen per vba ausführen) und das am besten im Ereignis "nach
Aktualisierung" Deiner Checkbox. Ach ja, und danach die Anzeige aktualisieren...

Gruss
Doerthe