Office: (Office 2007) Kontrollkästchen im Endlosformular

Hallo zusammen,

ich habe folgendes Problem
In einem Endlosformular (Access 2007) werden mir mehrer Datensätze angezeigt.
Zu jedem Datensatz gibt es ein Kontrollkästchen (Name: Senden).
Nun möchte ich über ein Kontrollkästchen im Formularkopf (Name: AlleSenden)
alle Kontrollkästchen "Senden" aktivieren oder deaktivieren.
Leider funktioniert das bei mir nur für das erste Kästchen.
Mein Code sieht wie folgt aus:
Private Sub AlleSenden_Click()
If Me.AlleSenden = True Then
Me.Senden = True
Else
Me.Senden = False
End If
End Sub

Gruß

Daniel

:)

 

Moin,
ist das Kontrollkästchen "Senden" an ein Tabellenfeld gebunden?
Dann setze das entsprechende Tabellenfeld auf TRUE:
Code:

maike

 

Nachtrag: Sehe gerade deine Anfrage wg. Email. Daher der obige Code nochmal etwas verändert, zum An- und Abwählen von "Senden":
Code:

maike

 

Hallo Maike,

danke für die schnelle Antwort. Funktioniert super.
Nur ein kleines Problem. Sobald ich jetzt auf den Button
AlleSenden klicke, wird mir automatisch ein leerer Datensatz
in meine Tabelle gespeichert, wo nur das Senden Feld angekreutz
ist.

Gruß

Daniel

 

Upps,
wundert mich, dass es überhaupt funktioniert *eek.gif* , hatte das .Edit und .Update vergessen (oben nachgetragen). Bei mir werden nur bereits existierende DS verändert. Poste doch mal deinen genauen Code.
maike

 

Hallo Maike,

Private Sub AlleSenden_AfterUpdate()
With Me.Recordset
do until .eof
.edit
Me.Senden = Me.AlleSenden
.update
.movenext
loop
End With
Me.Requery
End Sub

Hab also deinen Code genommen und nur das .Senden = Me.AllesSenden in Me.Senden = Me.AllesSenden geändernt.
Mir werden also alle selektierten Daten angezeigt und sobald ich auf das AllesSenden-KK anklicke, werden alle KK Aktiviert.
Würde gerne das Ergebniss noch in einer neuen Tabelle speichern, da ich auf die "Basis"-Datensätze gerne immer wieder zurück greifen will.

Gruß

Daniel

 

Hab also deinen Code genommen und nur das .Senden = Me.AllesSenden in Me.Senden = Me.AllesSenden geändernt.

Verstehst Du Deinen Code?

With Me.Recordset ... End With bedeutet, dass sich alles, was dazwischen steht, auf Me.Recordset bezieht, was auch für das Recordset-Feld Senden gelten sollte.

Wenn Du dieses .Senden änderst auf Me.Senden, sprichst Du ein Feld Senden im Formular an. Somit dürfte sich nur der erste Datensatz ändern.

Im Übrigen scheint Dein Code kein Copy & Paste zu sein, sondern ein abgetippter Text, wie die Schreibweise verrät.

 

Neben dem, was Maxel schreibt (Me.Senden ist Käse) warum willst du

Du kannst doch entweder durch erneuten Klick auf "AlleSenden" die Checkboxen wieder zurücksetzen oder z.B. beim Schließen des Formulars dieses tun. Danach sind die "Basisdatensätze" wieder so gut wie neu *biggrin.gif* .
Redundante Datenhaltung in mehreren Tabellen ist nur in den allerseltensten Fällen sinnvoll und in den allermeisten Fällen mindestens problematisch. Da hätte ich doch gern noch eine nähere Erläuterung.
maike

 

\@maike

Ich vermute, er will die "Haken-Auswahl" historisieren, warum auch immer...

 

\@Maxel
Könnte sein *wink.gif* . Mir will allerdings nicht ganz einleuchten, was mir eine Tabelle sagen wollen würde, in der ein Haufen Mailadressen mit einem Haken im Feld Senden steht? Zumindest eine Info, wann und was gesendet wurde täte ich vermissen... Aber vielleicht check ich es ja, wenn Daniel es erklärt.
maike

 

Ja doch, wann und an wen und welche Mail würde Sinn machen, wobei nicht die Mail-Adressen, sondern nur die ID der Empfänger zu speichern wäre.

 

Morgen zusammen,

also ich habe mich vertan. Mein Code sieht wie folgt aus:

Private Sub AlleSenden_AfterUpdate()
With Me.Recordset
Do Until .EOF
Me.Senden = Me.AlleSenden
.MoveNext
Loop
End With
Me.Requery

End Sub

Ich würde gerne das alle Datensätze die mit "Senden" versehen sind in eine extra Tabelle speicher, damit ich mich auf diese beziehen kann wenn ich eine Mail erstellen will.
Weil ich z. B. heute eine Mail an DS 1, 2, 3 und 4 schicken will, aber morgen nur an 1 und 4. So ist es für mich einfacher eine Tabelle zu haben wo alles "Basisdatensätze" drin stehen.

Um das Ganze noch verständlicher zu machen. Die DB dient dazu Kundennewsletter zu verschicken.
Und da nicht immer alle einen bekommen sollen, wäre es halt gut wenn ich einen Stammdatensatz hätte auf den ich immer wieder zugreifen kann.
Das das nicht die beste Lösung bei einer RDB ist, ist mir klar. Nur so hätte ich halt eine Tabelle, wo ich nachschauen kann welche Kunden den letzten Newsletter gekriegt haben und welche nicht.

EDIT:
Wann und was ich an wen geschickt hätte wäre auch eine Option. Ich habe da gestern noch eine Beispiel gefunden wo eine Historie angelegt wird. Allerdings geht das über mein Wissen hinaus.
Wäre erstmal froh wenn ich es schaffe eine Mail zu erstellen wo die mit Senden angekreuzten Mailadressen drin erscheinen.

Gruß

Daniel

 

Na, dann lass uns das doch Schritt für Schritt angehen.
Mein Code aus #3 sollte Schritt 1 erledigen: Alle im Formular angezeigten Mails mit einem Haken versehen. Hast du das fertig, funktioniert das?
Schritt 2 wäre dann, diese Adressen versandfertig zu machen und die Email zu generieren.
In Schritt 3 kümmern wir uns dann um eine Historie.

Noch eine Frage zu Schritt 1: Kann man die Kunden von vornherein in Gruppen einteilen, wer welche Mail erhält? Oder ist das eine Nasen-Auswahl (der war gestern doof am Telefon, der kriegt heut' keine *wink.gif* )?
Im ersten Fall könnte man die Kunden direkt Gruppen zuordnen und einen Befehl einbauen "Mail an Newsletter-Abonenten" oder "Mail an Spezial-Info-Interessierte" oder ....
maike

 

Hallo Maike,

also es wird vorher festgelegt welcher Kunde einen Newsletter kriegen soll.
Z. B. sind da Infos zum Thema XY drin, also sollen alle Kunden für die das Thema relevant ist diesen Newsletter kriegen. Eine Gruppierung ist höchstens über das Feld Mandant (Steht in der Basistabelle und auf dem Formular), da einem Mandanten mehrer E-Mail-Adressen zugeordnet sein können.

Private Sub AlleSenden_AfterUpdate()
With Me.Recordset
do until .eof
.edit
.Senden = Me.AlleSenden
.update
.movenext
loop
End With
Me.Requery
End Sub
Das ist der Code den ich nehme.
Bevor ich den Hacken setze wird allerdings schon ein neuer Datensatz angefügt.

Gruß

Daniel

 

Wenn ich nur das Unterformular öffne ist alles gut.
Es wird nur ein neuer Datensatz eingefügt wenn ich das über das Hauptformular mache.

Wenn ich das über zwei Formular mache, also ich rufe über das eine das andere auf funktioniert das. Also werde ich das so lassen.

Nun ist halt nur das Prob mit der Mail, dem Text und dem Anhang.

Gruß

Daniel