Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Listbox Auslesen
zurück: Outlookordner in Treeview anzeigen weiter: Nach Aktivierung Kontrollkästchen "Ereignis" 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
derdem
Access-Einsteiger, Programier-Kenner


Verfasst am:
03. Feb 2011, 12:05
Rufname:

Listbox Auslesen - Listbox Auslesen

Nach oben
       Version: Office 2010

Hi Community ich bins schon wieder
Code:
Private Sub Lieferschein_Kombinationsfeld_AfterUpdate()
    Dim KF As String, idx As Long
    Dim SSQL As String
   
    'weil die Überschriften übergeben werden
    idx = Lieferschein_Kombinationsfeld.ListIndex + 1
    'Der Wert aus Dem Kombinationsfeld wird übernommen
    KF = Lieferschein_Kombinationsfeld.Column(0, idx)
    'Eine SQL Abfrage für Das Auslesen der Daten aus der Abfrage
    'Lieferschein_Abfrage_Angebots_Nr
    SSQL = " SELECT *" _
           & " FROM Lieferschein_Abfrage_Angebots_Nr" _
          & " WHERE ID = " & KF
    'Angebot_Nr,VA_Datum, Dauer, Netto
    With Lieferschein_liste
        .RowSource = SSQL  'Quelle neu definieren &
        .Requery ' erneut abfragen
       ' MsgBox KF
       ' MsgBox idx
       ' MsgBox SSQL
    End With
So der erste teill Funktioniert ja ^^
da wird die Ausgewählte ID Angezeigt siehe Bild
Code:
    '''
    ' Artikel Ausgeben
    SSQL = "SELECT ID_Inventar" _
          & " FROM Angebote_Inhalt" _
         & " WHERE Angebot_ID = " & KF
    With Artikel_Liste
         .RowSource = SSQL
         .Requery
    End With
so das hier stimmt ja auch dort werden die ID der gegenstände ausgelesen und in dem zweiten Listfeld angezeigt siehe Bild

so jetzt will ich die ID in der Liste auslesen und dann mich auf die Tabelle Inventar beziehen den dort stehen Geräte Name, Geräte Preis, Gewicht,usw
diese Informationen will ich dann auch in der Listbox anzeigen, aber wie ?
Nachtrag: derdem am 03. Feb 2011 um 11:38 hat folgendes geschrieben:
Ich hatte überlegt

man muss ja nur die Länge des Listfeldes auslesen
dann ein Array machen dort die ID einlesen. Das Array ist dann immer so groß wie die Länge des Listfeldes
dann eine Schleife bauen die so lang ist wie die Länge des Listfeldes
und dann die ID mit der Tabelle Inventar vergleichen und so dann die Informationen ausgeben
^^ Theoretisch ist es ja das, aber wie geht die Praktische Umsetzung

Nachtrag: derdem am 03. Feb 2011 um 11:56 hat folgendes geschrieben:
ok die Länge habe ich ^^
Artikel_Liste.ListCount
dann fehlt mir eig. nur noch wie ein Array geht und wie man eine sinnvolle Schleife baut

Danke für die Hilfe

Nachtrag: derdem am 03. Feb 2011 um 12:38 hat folgendes geschrieben:
das habe ich mir mal zusammen gebastelt
um die Listbox daten in das Array rein zubekommen
Code:
    Dim MyArray() As Inteeger
    Dim i As Integer
   
    ReDim MyArray(0 To Zahl)
    For i = 1 To Zahl
        MyArray(i) = Artikel_Liste.Column(i)
    Next i
Zitat:
Laufzeitfehler '94' Unzulässige Verwendung von Null ???????
was ist das ?
kann mir einer helfen



Lieferschein.jpg
 Beschreibung:
 Dateigröße:  20.94 KB
 Angeschaut:  1064 mal

Lieferschein.jpg


MissPh!
Office-VBA-Programmiererin


Verfasst am:
03. Feb 2011, 14:58
Rufname:
Wohnort: NRW

AW: Listbox Auslesen - AW: Listbox Auslesen

Nach oben
       Version: Office 2010

Hallo,

das Steuerelement selbst hat erst einen Wert, wenn du etwas markiert hast in der Liste, du aber willst die kompletten Werte auslesen.
Schau mal ob du mit der Eigenschaft ItemData weiterkommst.

Und bedenke bitte, dass die Indizierung bei 0 beginnt und bei Artikel_Liste.ListCount -1 endet!

_________________
Gruß MissPh!
derdem
Access-Einsteiger, Programier-Kenner


Verfasst am:
07. Feb 2011, 09:37
Rufname:


AW: Listbox Auslesen - AW: Listbox Auslesen

Nach oben
       Version: Office 2010

derdem am 07. Feb 2011 um 08:24 hat folgendes geschrieben:
Zitat:
Und bedenke bitte, dass die Indizierung bei 0 beginnt und bei Artikel_Liste.ListCount -1 endet!
oh Danke ^^

aber mit dem ItemData weiß ich nicht wie ich das anwenden soll ...

ah ok verstanden ^^

Funktioniert
Code:
    Dim Zahl As Integer
    Dim MyArray() As Integer
    Dim i As Integer
    Dim Parameter As Integer
   
    Zahl = Artikel_Liste.ListCount - 1
    ReDim MyArray(0 To Zahl)
    For i = 0 To Zahl
        Parameter = Me!Artikel_Liste.ItemData(i)
        MyArray(i) = Parameter
    Next i
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: Informationen in mehreren Tabellen suchen und auslesen 4 informatikerin 477 07. Apr 2009, 08:00
informatikerin Informationen in mehreren Tabellen suchen und auslesen
Keine neuen Beiträge Access Tabellen & Abfragen: logische Verknüpfung von Kriterien über Listbox 7 Juergen_190 1178 28. Dez 2008, 22:25
Juergen_190 logische Verknüpfung von Kriterien über Listbox
Keine neuen Beiträge Access Tabellen & Abfragen: Username unter AC 2003 auslesen - Environ funktioniert nicht 12 andreczogalla 3209 03. Sep 2008, 14:29
andreczogalla Username unter AC 2003 auslesen - Environ funktioniert nicht
Keine neuen Beiträge Access Tabellen & Abfragen: in Zeile springen, auslesen und verknüpfen 4 bubes 396 02. Aug 2008, 20:10
bubes in Zeile springen, auslesen und verknüpfen
Keine neuen Beiträge Access Tabellen & Abfragen: Mehrere Werte aus Listbox als Kriterium für eine Abfrage ? 4 besserist 1713 17. Jun 2008, 20:28
besserist Mehrere Werte aus Listbox als Kriterium für eine Abfrage ?
Keine neuen Beiträge Access Tabellen & Abfragen: Schnittpunkt einer Matrix auslesen 0 derMatze 801 12. Feb 2008, 22:33
derMatze Schnittpunkt einer Matrix auslesen
Keine neuen Beiträge Access Tabellen & Abfragen: Ersten 3 Zeichen auslesen 1 testgast 691 15. Jan 2008, 13:04
KlausMz Ersten 3 Zeichen auslesen
Keine neuen Beiträge Access Tabellen & Abfragen: Summe + Wahrheitswert auslesen 2 pktm 373 11. Dez 2007, 11:56
pktm Summe + Wahrheitswert auslesen
Keine neuen Beiträge Access Tabellen & Abfragen: 2 Tabellen auslesen und als excel exportieren 0 Hobo2k 391 27. Nov 2007, 10:50
Hobo2k 2 Tabellen auslesen und als excel exportieren
Keine neuen Beiträge Access Tabellen & Abfragen: Max-Wert per VBA aus einer Tabellenspalte auslesen 3 Riko 7809 26. Sep 2007, 16:32
jmc Max-Wert per VBA aus einer Tabellenspalte auslesen
Keine neuen Beiträge Access Tabellen & Abfragen: Erste Zeichen einer Zeichenkette auslesen 1 HSB 988 16. Aug 2007, 10:33
blicki Erste Zeichen einer Zeichenkette auslesen
Keine neuen Beiträge Access Tabellen & Abfragen: abfrageproblem: auslesen mehrfach abhängiger DS 0 rolandA 467 12. Jul 2007, 17:27
rolandA abfrageproblem: auslesen mehrfach abhängiger DS
 

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