Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Alle Kontrollkästchen aktivieren?
zurück: Eigenschaft: Value weiter: Formular: Listenfeld filtern Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Fräger
Gast


Verfasst am:
19. Jul 2006, 13:20
Rufname:

Alle Kontrollkästchen aktivieren? - Alle Kontrollkästchen aktivieren?

Nach oben
       

Hallo, hab folgendes Problem:
In meinem Formular hab ich mehrere Kontrollkästchen,welche aktiviert werden können und dann nur die ausgewählten im Bericht angezeigt werden.
Nun meine Frage, wie muss ich ein weiteres Kontrllkästchen programmieren, damit, wenn dieses aktiviert ist, ALLE vorherigen aktiviert werden (=Ja) ?

Dank vorab für evtl. Antworten
rita2008
Im Profil kannst Du frei den Rang ändern


Verfasst am:
19. Jul 2006, 13:40
Rufname:
Wohnort: Berlin


AW: Alle Kontrollkästchen aktivieren? - AW: Alle Kontrollkästchen aktivieren?

Nach oben
       

Sind die Kontrollkästchen gebunden, d.h., gehören sie jeweils zu einem Datensatz?
_________________
mfg Rita

Antworten bitte hier im Forum, nicht als private Nachricht. Danke
Gast



Verfasst am:
19. Jul 2006, 14:16
Rufname:

AW: Alle Kontrollkästchen aktivieren? - AW: Alle Kontrollkästchen aktivieren?

Nach oben
       

Wow, geht ja fix

Ja jedes Kästchen gehört zu einem Datensatz. Hab in der dazugehörigen Tabelle eine Spalte "Druck" eingefügt
rita2008
Im Profil kannst Du frei den Rang ändern


Verfasst am:
19. Jul 2006, 14:40
Rufname:
Wohnort: Berlin

AW: Alle Kontrollkästchen aktivieren? - AW: Alle Kontrollkästchen aktivieren?

Nach oben
       

Dann erstelle das zusätzliche Kästchen am besten im Formularfuß oder Kopf und schreibe in die Ereignisprozedur "Beim Klicken" folgenden Code:
Code:
    Dim db As DAO.Database
   
    If Me!Kontrollkaestchen = True Then
        Set db = CurrentDb
        db.Execute "UPDATE Tabelle SET Druck = True"
    End If
Für Tabelle musst Du die zugrundeliegende Tabelle für Dein Formular angeben.
_________________
mfg Rita

Antworten bitte hier im Forum, nicht als private Nachricht. Danke
Fräger
Gast


Verfasst am:
20. Jul 2006, 14:43
Rufname:


AW: Alle Kontrollkästchen aktivieren? - AW: Alle Kontrollkästchen aktivieren?

Nach oben
       

So richtig funzt das nicht, denn beim klicken auf das Kontrollkästchen [Alle] werden nicht sofort alle vorangegangen Kästchen aktiviert. Man muss eines anklicken, damit sie alle markiert werden, dass was man angeklickt hat ist dann wiederum nicht markiert. Möchte auch, wenn das Kästchen [Alle] nicht markiert ist, dass kein vorangegangenes markiert ist.
Code:
Private Sub Kontrollkästchen24_Click()
    Dim db As DAO.Database

    If Me!Kontrollkästchen24 = True Then
        Set db = CurrentDb
        db.Execute "UPDATE Tabelle " & _
                      "SET Druck = True"
      Else
        Set db = CurrentDb
        db.Execute "UPDATE Creform " & _
                      "SET Druck = False"
    End If
    Set db = Nothing
End Sub
Willi Wipp
Moderator


Verfasst am:
20. Jul 2006, 15:40
Rufname:
Wohnort: Raum Wiesbaden

Re: AW: Alle Kontrollkästchen aktivieren? - Re: AW: Alle Kontrollkästchen aktivieren?

Nach oben
       

Hi Fräger,

Du musst die Datenherkunft (RecordSource) bzw. die Anzeige des Formulars aktualisieren.
Code:
    Me.Requery
am Ende der Prozedur
_________________
Eine kurze Rueckmeldung waere nett
SL Willi Wipp

(Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)
Fräger
Gast


Verfasst am:
24. Jul 2006, 11:31
Rufname:

AW: Alle Kontrollkästchen aktivieren? - AW: Alle Kontrollkästchen aktivieren?

Nach oben
       

Danke Willi Wipp
sojus 93
Gast


Verfasst am:
21. Jul 2011, 11:21
Rufname:

AW: Alle Kontrollkästchen aktivieren? - AW: Alle Kontrollkästchen aktivieren?

Nach oben
       

hallo habe gerade den thread gefunden.
und noch einen Anmerkung dazu:
so sollte es kürzer gehen:
Code:
Private Sub Kontrollkästchen24_Click()
    Dim db As DAO.Database

    Set db = CurrentDb
    db.Execute "UPDATE Tabelle " & _
                  "SET Druck = " Kontrollkästchen24
    Set db = Nothing
End Sub
oder irre ich mich?
gruß Sojus
MissPh!
Office-VBA-Programmiererin


Verfasst am:
21. Jul 2011, 12:40
Rufname:
Wohnort: NRW


AW: Alle Kontrollkästchen aktivieren? - AW: Alle Kontrollkästchen aktivieren?

Nach oben
       

Hallo miteinander,

es geht noch kürzer, denn für den einmaligen Gebrauch wird kein Database-Objekt benötigt:
Code:
     CurrentDB.Execute "UPDATE Tabelle " & _
                      "SET Druck = " & Me!Kontrollkästchen24   
(inkl. Fehlerbereinigung)
_________________
Gruß MissPh!
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Access Tabellen & Abfragen: Checked Kontrollkästchen aus mehreren Werten 2 amorphis123 107 05. Apr 2013, 07:32
amorphis123 Checked Kontrollkästchen aus mehreren Werten
Keine neuen Beiträge Access Tabellen & Abfragen: Kontrollkästchen in Tabelle aktivieren 3 Demi86 104 21. Nov 2012, 12:01
KlausMz Kontrollkästchen in Tabelle aktivieren
Keine neuen Beiträge Access Tabellen & Abfragen: JA/Nein Kontroll-Kästchen in Abfrage 24 Cihande 1047 13. März 2012, 00:30
Gast JA/Nein Kontroll-Kästchen in Abfrage
Keine neuen Beiträge Access Tabellen & Abfragen: Checkbox/Kontrollkästchen in Formular als Abfragenkriterium 3 Pinpal 1008 15. Sep 2011, 16:56
MiLie Checkbox/Kontrollkästchen in Formular als Abfragenkriterium
Keine neuen Beiträge Access Tabellen & Abfragen: Kontrollkästchen in Formular / Listenfeld 1 schwinni79 310 18. Okt 2010, 16:45
kyron9000 Kontrollkästchen in Formular / Listenfeld
Keine neuen Beiträge Access Tabellen & Abfragen: Ja und Nein Wert aus Kontrollkästchen in Word Brief 42 Gast 2657 09. Jul 2010, 13:27
Gast Ja und Nein Wert aus Kontrollkästchen in Word Brief
Keine neuen Beiträge Access Tabellen & Abfragen: Mehrere Tabelleneinträge aktivieren 3 SebastianB. 203 09. Jul 2010, 10:14
Marmeladenglas Mehrere Tabelleneinträge aktivieren
Keine neuen Beiträge Access Tabellen & Abfragen: Kontrollkästchen im Formular über SQL-Abfrage füllen 24 Jerry60b 1534 19. Jan 2010, 15:48
Jerry60b Kontrollkästchen im Formular über SQL-Abfrage füllen
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage alle Werte wo Kontrollkästchen Wert Wahr ist 15 pali 1626 01. Okt 2009, 13:39
berndh76 Abfrage alle Werte wo Kontrollkästchen Wert Wahr ist
Keine neuen Beiträge Access Tabellen & Abfragen: Deaktivierung von Drop-Down bei "JA" auf Kontrollk 8 SilkeIST 303 27. Jul 2009, 10:16
SilkeIST Deaktivierung von Drop-Down bei "JA" auf Kontrollk
Keine neuen Beiträge Access Tabellen & Abfragen: Darstellungsart "Kontrollkästchen" per Code setzen 3 fragerer 286 13. März 2009, 16:32
Gast Darstellungsart "Kontrollkästchen" per Code setzen
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage kriterium kontrollkästchen 4 beat78 5540 01. Dez 2008, 11:23
beat78 Abfrage kriterium kontrollkästchen
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: HTML Forum