Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Datenbanken
Datenbanken
Fragevon lacasalatina vom 20.03.2021, 23:51 Options
Access: Kontrollkästchen gefilterter DS im Endlosformular markieren
Hallo Profis,
ich habe ein Endlosformular, in dem über entsprechende (Such-)Felder für Name und Ort die Datensätze des Endlosformulars gefiltert werden. Das Feld "Auswahl", ein Ja-/Nein-Feld, soll dann mit einem Klick für die gefilterten DS markiert und demarkiert werden.
Hat jemand eine Idee, ob/wie so etwas funktionieren kann?
ich habe ein Endlosformular, in dem über entsprechende (Such-)Felder für Name und Ort die Datensätze des Endlosformulars gefiltert werden. Das Feld "Auswahl", ein Ja-/Nein-Feld, soll dann mit einem Klick für die gefilterten DS markiert und demarkiert werden.
Hat jemand eine Idee, ob/wie so etwas funktionieren kann?
Antwort 1 von RaHi vom 22.03.2021, 12:30 Options
Hallo,
eine mögliche Lösung wäre
Der Code muss im Codebereich des Formulars stehen. Ersetzen müsstest du noch den Tabellenname. In Me.Filter stehen die Filterkriterien als SQL-Statement. Mit den zwei RunSQL-Statements setzt du dann den Wert für das Feld Auswahl in deiner Tabelle entsprechende auf true und false. Falls du keinen Filter gesetzt hast, muss das getrennt behandelt werden, da sonst das Where-Kriterium nicht syntaktisch korrekt wäre.
Gruß
Ralf
eine mögliche Lösung wäre
Private Sub button_Click()
If Me.FilterOn Then
DoCmd.RunSQL "UPDATE tblTabelle set auswahl= true where " & Me.Filter
DoCmd.RunSQL "UPDATE tblTabelle set auswahl= false where not (" & Me.Filter & ")"
Else
DoCmd.RunSQL "UPDATE blBOOL set b = true"
End If
Me.Requery
End Sub
Der Code muss im Codebereich des Formulars stehen. Ersetzen müsstest du noch den Tabellenname. In Me.Filter stehen die Filterkriterien als SQL-Statement. Mit den zwei RunSQL-Statements setzt du dann den Wert für das Feld Auswahl in deiner Tabelle entsprechende auf true und false. Falls du keinen Filter gesetzt hast, muss das getrennt behandelt werden, da sonst das Where-Kriterium nicht syntaktisch korrekt wäre.
Gruß
Ralf
Antwort 2 von RaHi vom 22.03.2021, 14:56 Options
Hallo,
im Else-Zweig meinte ich natürlich
Gruß
Ralf
im Else-Zweig meinte ich natürlich
DoCmd.RunSQL "UPDATE tblTabelle set auswahl= true"
Gruß
Ralf
Antwort 3 von lacasalatina vom 22.03.2021, 19:07 Options
Hallo Ralf,
super, das hat geklappt!!! Vielen Dank für Deine Hilfe!!!
Hast Du evtl. auch eine Idee, wie ich ALLE angehakten Datensätze wieder "de-markiere"? Also zB habe ich als 1. Schritt alle Schmitt´sgefiltert und die über Deine obige Funktion markiert. Dann filter ich im 2. Schritt nach dem Ort, zB Hamburg. Die werden dann "dazumarkiert" zu den Schmitts. Und dann sollen ALLE Markierungen, also Schmitts und Hamburger, mit einem Klick gelöscht werden.
Wäre super, wenn Du hierfür auch noch eine Idee hättest!!!
Vielen Dank schon mal für die "erste" Lösung :-)
super, das hat geklappt!!! Vielen Dank für Deine Hilfe!!!
Hast Du evtl. auch eine Idee, wie ich ALLE angehakten Datensätze wieder "de-markiere"? Also zB habe ich als 1. Schritt alle Schmitt´sgefiltert und die über Deine obige Funktion markiert. Dann filter ich im 2. Schritt nach dem Ort, zB Hamburg. Die werden dann "dazumarkiert" zu den Schmitts. Und dann sollen ALLE Markierungen, also Schmitts und Hamburger, mit einem Klick gelöscht werden.
Wäre super, wenn Du hierfür auch noch eine Idee hättest!!!
Vielen Dank schon mal für die "erste" Lösung :-)
Antwort 4 von RaHi vom 22.03.2021, 19:39 OptionsLösung
Hallo,
für deine Anforderung (alle Schmidt und alle aus Hamburg) musst du das zweite "Update" im Then-Zweig weg lassen. Bei meiner ersten Lösung wurden entweder alle Schmidts oder alle Hamburger markiert, bzw. die Schnittmenge, wenn du die Kriterien zusammen angegeben hast. So wie ich dich jetzt verstehe, willst du die Vereinigungsmenge.
Für das Löschen der Markierungen verwende einfach einen weiteren Button mit
Gruß
Ralf
für deine Anforderung (alle Schmidt und alle aus Hamburg) musst du das zweite "Update" im Then-Zweig weg lassen. Bei meiner ersten Lösung wurden entweder alle Schmidts oder alle Hamburger markiert, bzw. die Schnittmenge, wenn du die Kriterien zusammen angegeben hast. So wie ich dich jetzt verstehe, willst du die Vereinigungsmenge.
Für das Löschen der Markierungen verwende einfach einen weiteren Button mit
DoCmd.RunSQL "UPDATE tblTabelle set auswahl= false"
Me.Filter = ""
Me.FilterOn = false
Me.requery
Gruß
Ralf
Antwort 5 von lacasalatina vom 22.03.2021, 19:54 Options
Mit EINEM Wort: PERFEKT !!!
Mit VIER Worten: besser geht es nicht !!!
Vielen, vielen Dank, ich hab was gelernt !!!
Mit VIER Worten: besser geht es nicht !!!
Vielen, vielen Dank, ich hab was gelernt !!!
Ähnliche Themen
Abfrageformular mit Kontrollkästchen
esupanetz 24.10.2007 - 94 Hits - 3 Antworten
Kontrollkästchen im Formular
Mrfivejunior 03.12.2007 - 149 Hits - 2 Antworten
Endlosformular: einzelne Zelle formatieren ohne bedingte Formatierung
staelie 21.04.2008 - 44 Hits - 2 Antworten
ACCESS 2003 / Bericht: Anzahl von "wahren" Kontrollkästchen
eva2112 20.03.2009 - 536 Hits - 4 Antworten
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
