Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: -----> Wiederbelebt: Aktien-Forum <-
Werte aus Listbox auslesen
zurück: Möchte Fehlermeldung, wenn übergebene Daten nicht vorhanden weiter: Änderungen Protokollieren, mit sicherung des original Datens 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
stargazer01
Access-Entwickler


Verfasst am:
07. Feb 2006, 16:48
Rufname:
Wohnort: Leverkusen

Werte aus Listbox auslesen - Werte aus Listbox auslesen

Nach oben
       

Hallo
ich habe eine Listbox mit deren Hilfe ich den Schulungsbedarf unserer Mitarbeiter ermitteln möchte. Dazu stelle ich in der Listbox den Namen und das zu schulende Tool und einige weitere Infos dar. Ich möchte dann dem Benutzer ermöglichen, einfach mehrere Zeilen zu selektieren und die selektierten Daten in eine neue Tabelle schreiben.
mit folgendem Code
Code:
Private Sub Befehl13_Click()
On Error GoTo Err_Befehl13_Click
    Dim Pruefwert As Variant
    Dim Element As Variant

    If Me!Liste1.ItemsSelected.Count = 0 Then Exit Sub
    For Each Element In Me!Liste1.ItemsSelected
        Pruefwert = Me!Liste1.ItemData(Element)
        MsgBox Pruefwert
    Next Element
       
Exit_Befehl13_Click:
    Exit Sub
kann ich für die selektierten Zeilen meinen Listboxindex anzeigen.
Ich möchte jetzt aber aus der Listbox für alle selektierten Zeilen mehrere Spalteninhalte in eine neue Tabelle schreiben. Ich weiss allerdings nicht, wie ich die Spalten einzeln ansprechen kann. Dies scheint nur bei der gebundenen Spalte möglich. Ist das so oder gibt es da noch einen anderen Weg???

mfg
Ralf
accessmichel
Im Profil kannst Du frei den Rang ändern


Verfasst am:
08. Feb 2006, 21:54
Rufname:

AW: Werte aus Listbox auslesen - AW: Werte aus Listbox auslesen

Nach oben
       

Hallo Ralf,
so müsste es gehen wenn Du die Namen änderst:
Code:
Private Sub Befehl13_Click()
On Error GoTo Err_Befehl13_Click
    Dim db  As DAO.Database
    Dim rs  As DAO.Recordset
    Dim Element As Variant
   
    Set db = CurrentDb
    Set rs = db.OpenRecordset("DeinTabellenameInDieDuSchreibenMöchtest")
    If Me!Liste1.ItemsSelected.Count = 0 Then Exit Sub
    For Each Element In Me!Liste1.ItemsSelected
        rs.AddNew
        rs!DeinFeldnameInDerTabelle = Me!Liste1.ItemData(Element)
        'rs!EinWeiteresFeld = Me!Liste1.Column(1).ItemData(Element)
         'z.B. für die zweite Spalte in der Liste
        rs.Update
        rs.Close
     Next Element
    Set rs = Nothing
    db.Close
Exit_Befehl13_Click:
    Exit Sub

mfg
Thomas

_________________
mfg
Thomas

Access 2003/XP
stargazer01
Access-Entwickler


Verfasst am:
09. Feb 2006, 11:58
Rufname:
Wohnort: Leverkusen


AW: Werte aus Listbox auslesen - AW: Werte aus Listbox auslesen

Nach oben
       

Hallo

danke, werde ich gleich mal ausprobieren, ich hatte inzwischen eine etwas kompliziertere Variante mit einem zweiten Loop, die auch funktioniert.

mfg
Ralf
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: Werte aus 2 Tabellen in einer angleichen 9 Saskia 818 20. Okt 2005, 18:43
rita2008 Werte aus 2 Tabellen in einer angleichen
Keine neuen Beiträge Access Tabellen & Abfragen: Benutzer auslesen 9 shine05 3776 06. Okt 2005, 10:45
jens05 Benutzer auslesen
Keine neuen Beiträge Access Tabellen & Abfragen: Software zum auslesen des Quelltextes 4 rIchIe 798 04. Okt 2005, 18:53
jens05 Software zum auslesen des Quelltextes
Keine neuen Beiträge Access Tabellen & Abfragen: Werte von Feld1 in Feld2 kopieren 2 cixz 895 30. Sep 2005, 11:50
Gast Werte von Feld1 in Feld2 kopieren
Keine neuen Beiträge Access Tabellen & Abfragen: Namen der MS-Access-Abfragen via Perl auslesen 2 thu 1307 07. Sep 2005, 12:01
thu Namen der MS-Access-Abfragen via Perl auslesen
Keine neuen Beiträge Access Tabellen & Abfragen: Max. Werte über mehrere Datensätze ermitteln 1 Gast 1198 22. Aug 2005, 14:56
lothi Max. Werte über mehrere Datensätze ermitteln
Dieses Thema ist gesperrt, du kannst keine Beiträge editieren oder beantworten. Access Tabellen & Abfragen: Access Werte innerhalb einer Tabelle berechnen 1 Elmar9700 1682 21. Jun 2005, 16:26
Willi Wipp Access Werte innerhalb einer Tabelle berechnen
Keine neuen Beiträge Access Tabellen & Abfragen: Werte Zählen, aber bestimmte nicht dazu addieren 1 MrMarley 897 14. Jun 2005, 02:21
tobes Werte Zählen, aber bestimmte nicht dazu addieren
Keine neuen Beiträge Access Tabellen & Abfragen: Numerische Werte in als Text definiertem Feld 4 Terminator 809 25. Apr 2005, 07:50
stpimi Numerische Werte in als Text definiertem Feld
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage zum auslesen von doppeleinträgen 2 Spawny2407 695 10. März 2005, 13:31
Spawny2407 Abfrage zum auslesen von doppeleinträgen
Keine neuen Beiträge Access Tabellen & Abfragen: Werte eines Formulares in neue Tabelle speichern 1 jk2005 732 08. März 2005, 12:26
Mario Kobolla Werte eines Formulares in neue Tabelle speichern
Keine neuen Beiträge Access Tabellen & Abfragen: Generierte Felder aus Unterformular auslesen 2 gott50000 828 03. März 2005, 13:45
gott50000 Generierte Felder aus Unterformular auslesen
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: MS Frontpage