
86263
30.05.2011
Access 2007 ListView
Moin,
kann mir mal jamand erklären wie das folgende funktioniert?
Wenn ein Datensatz in dem ListView angeklickt wird, erscheinen recht die Detaileinträge.
Wie das Listview gefüllt wird, ist mir klar (VBA).
Aber die Detaileinträge haben nichts mir VBA zu tun.
Die Quelle: http://www.access-im-unternehmen.de/fileadmin/files/acc0206kh01.zip
Gruß,
DB
kann mir mal jamand erklären wie das folgende funktioniert?
Wenn ein Datensatz in dem ListView angeklickt wird, erscheinen recht die Detaileinträge.
Wie das Listview gefüllt wird, ist mir klar (VBA).
Aber die Detaileinträge haben nichts mir VBA zu tun.
Die Quelle: http://www.access-im-unternehmen.de/fileadmin/files/acc0206kh01.zip
Gruß,
DB
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 167229
Url: https://administrator.de/forum/access-2007-listview-167229.html
Ausgedruckt am: 20.04.2025 um 19:04 Uhr
2 Kommentare
Neuester Kommentar
Moin Moin
Für das gesamte Formular ist die Tabelle "Personal" als Datenquelle angegeben.
Und jedem Feld der Detaildaten ist als Steuerelementinhalt ein Feld jener Tabelle zugewiesen.
Somit stünden immer alle Datensätze in dem Formular zur Verfügung.
Durch diee Ereignis Prozedur (Wenn man auf ein Listitem Clickt)
Wird die Personal-nr des aktuellen DS ausgelesen und der "Zeiger" der Datenquelle auf eben diese Personal-nr gesetzt.
Hoffe das hilft Dir weiter.
Gruß L.
Aber die Detaileinträge haben nichts mir VBA zu tun.
Fast.Für das gesamte Formular ist die Tabelle "Personal" als Datenquelle angegeben.
Und jedem Feld der Detaildaten ist als Steuerelementinhalt ein Feld jener Tabelle zugewiesen.
Somit stünden immer alle Datensätze in dem Formular zur Verfügung.
Durch diee Ereignis Prozedur (Wenn man auf ein Listitem Clickt)
Wird die Personal-nr des aktuellen DS ausgelesen und der "Zeiger" der Datenquelle auf eben diese Personal-nr gesetzt.
Private Sub lvwPersonen_ItemClick(ByVal Item As Object)
Dim lngKey As Long
lngKey = lvwPersonen.SelectedItem.ListSubItems.Item(3).Text
Me.Recordset.FindFirst "[Personal-Nr] = " & lngKey
End Sub
Gruß L.
Moin,
i.d.R. ist der hat der ListView eine ausgeblendete Spalte mit der ID (hier wohl Personalnummer). Die Details haengen sind dann als UNterfomular mit einem Filter ala PersonalNr=ListView.Value in dem Hauptformular. IM ListView dann noch bei OnChange ein me.unterform.requery und gut.
Disclaimer: Hab' schon lang nix mehr in der Tiefe mit Access gemacht, muss also nicht stimmen
lg,
Slainte
i.d.R. ist der hat der ListView eine ausgeblendete Spalte mit der ID (hier wohl Personalnummer). Die Details haengen sind dann als UNterfomular mit einem Filter ala PersonalNr=ListView.Value in dem Hauptformular. IM ListView dann noch bei OnChange ein me.unterform.requery und gut.
Disclaimer: Hab' schon lang nix mehr in der Tiefe mit Access gemacht, muss also nicht stimmen
lg,
Slainte