Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Aktualisierungsabfrage bei Mehrfachauswahl in Listenfeld
zurück: Abfrage durchführen wenn Felder leer sind weiter: Fragen zum Datumssytax in Tabellen 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
Betullam
Im Profil kannst Du frei den Rang ändern


Verfasst am:
04. Jan 2008, 20:27
Rufname:

Aktualisierungsabfrage bei Mehrfachauswahl in Listenfeld - Aktualisierungsabfrage bei Mehrfachauswahl in Listenfeld

Nach oben
       Version: Office 2k (2000)

Hallo,

ich habe in einem Formular ein Listenfeld, in dem Daten zu Kundenaufträgen aufscheinen. Die Datenherkunft ist eine Abfrage. Unter anderem ist in dem Listenfeld eine Spalte namens "Erledigt", die mit "True" oder "False" (Kontrollkästchen) angibt, ob der Auftrag schon abgeschlossen ist oder nicht.

Ich habe einen Button, bei dem ich mit einem Klick von "False" auf "True" wechseln kann. Das geht auch ganz gut mit folgendem Code:
Code:
    DoCmd.SetWarnings False
    DoCmd.OpenQuery "als_erledigt_markieren_A"
    DoCmd.Close acQuery, "als_erledigt_markieren_A"
    DoCmd.SetWarnings True
    Me!Listenfeld.Requery
Ich ändere den "Erledigt"-Status also mit einer Aktualisierungsabfrage, die so ausschaut:
{Grafik angehaengt by Willi Wipp}

Leider geht das ganze aber nur, wenn ich für das Listenfeld die Einstellung "Mehrfachauswahl" auf "keine" stelle. Da wir täglich 20-30 Aufträge abschließen, hätte ich gerne, dass ich mit einer Mehrfachauswahl (am besten "Erweitert") mehrere Zeilen im Listenfeld markieren kann und von allen Markierten den "Erledigtstatus" ändern kann.

Leider hab ich aber keine Ahnung, wie ich das anstellen soll. Hat da jemand eine Lösung? Wäre sehr dankbar.



aktualisierungsabfrage.jpg
 Beschreibung:
 Dateigröße:  32.58 KB
 Angeschaut:  767 mal

aktualisierungsabfrage.jpg


stpimi
Moderator Access


Verfasst am:
04. Jan 2008, 20:59
Rufname:
Wohnort: Graz


AW: Aktualisierungsabfrage bei Mehrfachauswahl in Listenfeld - AW: Aktualisierungsabfrage bei Mehrfachauswahl in Listenfeld

Nach oben
       Version: Office 2k (2000)

Servus!

Da du in einer Abfrage nicht direkt auf ein Listenfeld zugreifen kannst, solltest Du gleich das Listenfeld selbst per VBA durchlesen und auf die Abfrage verzichten.

Im Button_Click-Ereignis könnte das (ungetestet!) so aussehen, wenn die gebundene Spalte des Listenfeldes gleich der Schlüsselspalte der zu aktualisierenden Tabelle ist:
Code:
    Dim varItm As Variant
   
    For Each varItm In Me!Listenfeldname.ItemsSelected
        CurrentDb.Execute "UPDATE Tabellenname " & _
                             "SET Erledigt = True " & _
                           "WHERE Bestellnr = " & ctl.ItemData(varItm)
    Next varItm

_________________
Lg, Michael

Dein Feedback hilft auch anderen - vergiß es nicht!
Betullam
Im Profil kannst Du frei den Rang ändern


Verfasst am:
04. Jan 2008, 21:54
Rufname:

AW: Aktualisierungsabfrage bei Mehrfachauswahl in Listenfeld - AW: Aktualisierungsabfrage bei Mehrfachauswahl in Listenfeld

Nach oben
       Version: Office 2k (2000)

Vielen Dank für die schnelle Antwort.

Ich hab's gleich mal ausprobiert, doch leider funktioniert es nicht. Mein Code sieht jetzt so aus (Statistik08 = Tabellenname; Suchliste = Listenfeld):
Code:
Private Sub erledigt_markieren_Click()
    Dim varItm As Variant
   
    For Each varItm In Me!Suchliste.ItemsSelected
        CurrentDb.Execute "UPDATE Statistik08 " & _
                             "SET Erledigt = True " & _
                           "WHERE Bestellnr = " & ctl.ItemData(varItm)
    Next varItm
    Me!Suchliste.Requery
End Sub
Wenn ich aber auf den Button klicke, kommt leider die Fehlermeldung "Laufzeitfehler 424: Objekt erforderlich". Beim Debuggen wird folgende Zeile gelb hinterlegt:
Code:
        CurrentDb.Execute "UPDATE Statistik08 " & _
                             "SET Erledigt = True " & _
                           "WHERE Bestellnr = " & ctl.ItemData(varItm)
Noch zur Info: die gebundenen Spalte des Listenfeldes ist die Spalte "Bestellnr". Die Bestellnummern, die in der Spalte stehen, haben das Format 2008_00001.

Grüße
Michael
jens05
Moderator


Verfasst am:
04. Jan 2008, 22:03
Rufname:
Wohnort: ~~~~~

AW: Aktualisierungsabfrage bei Mehrfachauswahl in Listenfeld - AW: Aktualisierungsabfrage bei Mehrfachauswahl in Listenfeld

Nach oben
       Version: Office 2k (2000)

Hallo,
CTL dürfte zu diesem Zeitpunkt nicht bekannt sein ;)
Versuche es mal so
Code:
    Dim varItm As Variant
   
    For Each varItm In Me!Suchliste.ItemsSelected
        CurrentDb.Execute _
           "UPDATE Statistik08 " & _
              "SET Erledigt = True " & _
            "WHERE Bestellnr ='" & Me!Suchliste.ItemData(varItm) & "'"
    Next varItm
    Me!Suchliste.Requery
BTW. Bei Verwendung von Option Explicit im Deklarationsteil hätte sich der Code nicht Kompilieren lassen. ;)
_________________
mfg jens05 Wink
stpimi
Moderator Access


Verfasst am:
04. Jan 2008, 22:12
Rufname:
Wohnort: Graz

AW: Aktualisierungsabfrage bei Mehrfachauswahl in Listenfeld - AW: Aktualisierungsabfrage bei Mehrfachauswahl in Listenfeld

Nach oben
       Version: Office 2k (2000)

Servus!
Sorry, war ein Kopierfehler ... Crying or Very sad

_________________
Lg, Michael

Dein Feedback hilft auch anderen - vergiß es nicht!
Betullam
Im Profil kannst Du frei den Rang ändern


Verfasst am:
04. Jan 2008, 22:25
Rufname:


AW: Aktualisierungsabfrage bei Mehrfachauswahl in Listenfeld - AW: Aktualisierungsabfrage bei Mehrfachauswahl in Listenfeld

Nach oben
       Version: Office 2k (2000)

Super,

Danke vielmals. So funktioniert's perfekt.

Grüße
Michael
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: Voneinander Abhängige Kombinationsfelder mit Mehrfachauswahl 3 Xia0 2467 20. Nov 2009, 14:44
MissPh! Voneinander Abhängige Kombinationsfelder mit Mehrfachauswahl
Keine neuen Beiträge Access Tabellen & Abfragen: Mehrfachauswahl von Datensätzen 0 Sluyter 219 01. Okt 2009, 10:10
Sluyter Mehrfachauswahl von Datensätzen
Keine neuen Beiträge Access Tabellen & Abfragen: Verknüpfung Tabellen / Feld mit Mehrfachauswahl 2 PeterD 305 10. Sep 2009, 16:34
PeterD Verknüpfung Tabellen / Feld mit Mehrfachauswahl
Keine neuen Beiträge Access Tabellen & Abfragen: Mehrfachselektion bei Abfrage+Listenfeld im Formular 16 rantz 2443 15. Nov 2008, 20:27
Willi Wipp Mehrfachselektion bei Abfrage+Listenfeld im Formular
Keine neuen Beiträge Access Tabellen & Abfragen: Laufzeitfehler bei Übertrag in Listenfeld 1 Gast 511 01. Okt 2008, 22:20
MiLie Laufzeitfehler bei Übertrag in Listenfeld
Keine neuen Beiträge Access Tabellen & Abfragen: Abfragen nach letztem Datum erstellen mit Listenfeld ? 19 Topotec 1324 25. Sep 2008, 13:36
Topotec Abfragen nach letztem Datum erstellen mit Listenfeld ?
Keine neuen Beiträge Access Tabellen & Abfragen: Mehrfachauswahl aus Listenfeld in Abfrage darstellen 15 sternpfeifer 6415 13. Aug 2008, 15:13
Willi Wipp Mehrfachauswahl aus Listenfeld in Abfrage darstellen
Keine neuen Beiträge Access Tabellen & Abfragen: Tabellennamen der Abfrage aus dem Listenfeld entnehmen 4 Donny 1017 04. Jul 2008, 17:00
Marmeladenglas Tabellennamen der Abfrage aus dem Listenfeld entnehmen
Keine neuen Beiträge Access Tabellen & Abfragen: checkbox umwandeln in Listenfeld 1 lucie_skywalker 520 03. Jun 2008, 15:18
MAPWARE checkbox umwandeln in Listenfeld
Keine neuen Beiträge Access Tabellen & Abfragen: Listenfeld nach SQL-Abfrage befüllen 4 Badfunk 3277 24. März 2008, 22:05
Badfunk Listenfeld nach SQL-Abfrage befüllen
Keine neuen Beiträge Access Tabellen & Abfragen: Summe von den Optionen im Listenfeld 4 Disastro 491 22. Jan 2008, 08:08
jens05 Summe von den Optionen im Listenfeld
Keine neuen Beiträge Access Tabellen & Abfragen: requery listenfeld 6 max112 1227 02. Dez 2007, 22:46
KlausMz requery listenfeld
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Excel Tipps