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 Jack1109 vom 20.11.2019, 15:10 Options
Abfangen eines nicht markierten Datensatzes im Listenfeld
Hallo zusammen,
ich möchte aus einem Listenfeld einen angezeigten Datensatz löschen, sofern dieser markiert ist (nicht über doppelklick sondern einem einzelnen Buttoen). Wie kann ich den Fall abfangen, dass der User keinen Datensatz markiert hat?
Soll in MS Access SQL durchgeführt werden
Gruß
Jack
ich möchte aus einem Listenfeld einen angezeigten Datensatz löschen, sofern dieser markiert ist (nicht über doppelklick sondern einem einzelnen Buttoen). Wie kann ich den Fall abfangen, dass der User keinen Datensatz markiert hat?
Soll in MS Access SQL durchgeführt werden
Gruß
Jack
Antwort 1 von Teddy7 vom 21.11.2019, 09:28 Options
Hallo Jack !
In SQL geht das natürlich nicht - ist ja weder Abfrage noch Tabelle.
das geht nur mit VBA-Programmierung.
Hier mal ein Ausschnitt eines Beispiels:
If Not IsNull(Me(Listenfeldname).Column(0)) Then
'Anzahl der ausgewählten Zeilen feststellen
n = Me(Listenfeldname).ListCount - 1
'Zeilen durchlaufen und Werte der ersten Spalte in kommagetrennte Zeichenfolge schreiben
For i = 0 To n
If Me(Listenfeldname).Selected(i) Then
If Not varFirst Then
strListe = strListe & Me(Listenfeldname).Column(0, i)
Else
strListe = strListe & "," & Me(Listenfeldname).Column(0, i)
End If
varFirst = True
End If
Next
Müßtest Du natürlich für Deine Zwecke noch anpassen.
gruß
Teddy
In SQL geht das natürlich nicht - ist ja weder Abfrage noch Tabelle.
das geht nur mit VBA-Programmierung.
Hier mal ein Ausschnitt eines Beispiels:
If Not IsNull(Me(Listenfeldname).Column(0)) Then
'Anzahl der ausgewählten Zeilen feststellen
n = Me(Listenfeldname).ListCount - 1
'Zeilen durchlaufen und Werte der ersten Spalte in kommagetrennte Zeichenfolge schreiben
For i = 0 To n
If Me(Listenfeldname).Selected(i) Then
If Not varFirst Then
strListe = strListe & Me(Listenfeldname).Column(0, i)
Else
strListe = strListe & "," & Me(Listenfeldname).Column(0, i)
End If
varFirst = True
End If
Next
Müßtest Du natürlich für Deine Zwecke noch anpassen.
gruß
Teddy
Ähnliche Themen
aktualisiertes Listenfeld in Excel
DiBor 15.04.2007 - 181 Hits - 1 Antwort
Listenfeldeinträge überschreiben
Datenbankmensch 13.08.2007 - 19 Hits - 2 Antworten
Autovervollständigen im Dropdown-Listenfeld
123letterman 04.04.2008 - 141 Hits - 1 Antwort
access
MichaZimmer 21.04.2008 - 58 Hits - 1 Antwort
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
