Office: (Office 2016) Listenfeld VBA-Code

Helfe beim Thema Listenfeld VBA-Code in Microsoft Access Hilfe um das Problem gemeinsam zu lösen; Hallo Forum, in meinem Formular "frmZeit" habe ich Listenfelder eingesetzt, nur die Übergabe der ausgewählten werte werden dann nicht im Datensatz... Dieses Thema im Forum "Microsoft Access Hilfe" wurde erstellt von André.H, 14. Dezember 2018.

Seite 1 von 4

ANDRé.H

André.H

Listenfeld VBA-Code

Hallo Forum,
in meinem Formular "frmZeit" habe ich Listenfelder eingesetzt, nur die Übergabe der ausgewählten werte werden dann nicht im Datensatz angezeigt, ggf. gefiltert. mit "Me.FindFirst wird der datensatz entsprechend der Zeile angesprungen. Nur das möchte ich nicht, es soll nur die Datenzeilen angezeigt werden die auch ausgewählt sind.
Code:

Private Sub lstMonat_AfterUpdate()
Dim i As Long
Dim lngSpalte As Long
Dim varWert As Variant

'Beispiel: Der gesuchte Wert ist ein Text
varWert = ""
' 'Alternativ: Der gesuchte Wert ist eine Zahl
' varWert = 4

'Der gesuchte Wert ist in Spalte 2
lngSpalte = 1

With Me.lstMonat

For i = 0 + Abs(.ColumnHeads) To .ListCount - 1
If .Column(lngSpalte, i) = CStr(varWert) Then
.Selected(i) = True
' Zusatzcode f?r Kombinationsfelder
.Value = .Column(.BoundColumn - 1, i)
End If
Next

End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Oder musst ein Button eingesetzt werden und wie müsste ich es dazu bringen?
Danke!

:)

André.H, 14. Dezember 2018

#1
MAIKEK

maikek

Moin,
kannst du bitte noch mal etwas klarer erläutern, was du da machst und wozu das führen soll?
Im Moment sehe ich einen Code, der nach dem Update (= Auswahl) im Listenfeld einen Leerstring sucht und den gefundenen Eintrag im Listenfeld markiert.
maike

maikek, 17. Dezember 2018

#2
ANDRé.H

André.H

Hallo Maike,
möchte das dieser dann im Formular die entsprechenden Datensätze auswählt und anzeigt. Alle anderen, die nicht ausgewählt wurden, sollten auch nicht angezeigt werden. Also gefiltert im Formular anzeigen.
Gruß André

André.H, 17. Dezember 2018

#3
MAIKEK

maikek

Listenfeld VBA-Code

Du willst also nicht das Listenfeld filtern, sondern das Formular?
Der gezeigte Code ist da nicht wirklich zielführend.
Du musst dir einen Filterstring aus den im Listenfeld markierten Werten zusammenstellen, etwa so:
Code:

Private Sub lstMonat_AfterUpdate()
dim i as long
dim strFilter as String
dim varItem as Variant

With Me.lstMonat
For each varItem in .ItemsSelected
strFilter = ", " & .ItemData(varItem)
Next varItem
End With

if len(strFilter) > 2 then
Debug.Print strFilter 'Ausgabe zur Kontrolle
strFilter = mid(strFilter,3) 'erstes Komma wegschneiden
Me.Filter = "DeinFilterfeld IN (" & strFilter & ")"
Me.FilterOn = true
End If

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Dabei bin ich jetzt davon ausgegangen, dass der Vergleichswert nummerisch ist und in der ersten (gebundenenen) Spalte des Listenfeldes steht.
maike

maikek, 17. Dezember 2018

#4
ANDRé.H

André.H

Hallo Maike,
da habe ich sicher etwas falsch beschrieben. Aber du hast es richtig gesehen. Ich möchte nämlich das Formular selbst filtern, wenn man das Listen- Kombinationsfeld die Auswahl aktualisiert. Ggf. auswählt, mehrfach markiert.
LG André

André.H, 18. Dezember 2018

#5
ANDRé.H

André.H

Habe es mal so geändert. Das ist sehr schön, und wie ist es bei der Mehrfachauswahl im Listenfeld? Denn es werden ja dann mehrere Werte ausgewählt. Must hier der Code ganz geändert werden, oder muss ich wenn man die Auswahl getroffen hat, über einen Button es dann selektieren lassen im Formular?

André.H, 18. Dezember 2018

#6
ANDRé.H

André.H

So, nun bin ich nochmal...wollte den Code für ein weiteres Listenfeld übernehmen. Entsprechend auch geändert, aber dann die Meldung: Methode oder Datenbankobjekt nicht gefunden" Was ist da nun los bzw. was habe ich da nun nicht beachtet?
Code:

Private Sub lstKW_AfterUpdate()
Dim i As Long
Dim strFilter As String
Dim varItem As Variant

With Me.KW
For Each varItem In .ItemsSelected '---Hier markiert der Compiler "Ethode oder Datenbankobjekt nicht gefunden"
strFilter = ", " & .ItemData(varItem)
Next varItem
End With

If Len(strFilter) > 2 Then
Debug.Print strFilter 'Ausgabe zur Kontrolle
strFilter = Mid(strFilter, 3) 'erstes Komma wegschneiden
Me.Filter = "KW IN(" & strFilter & ")"
Me.FilterOn = True
End If
End Sub

Private Sub lstMonat_AfterUpdate()

Dim i As Long
Dim strFilter As String
Dim varItem As Variant

With Me.lstMonat
For Each varItem In .ItemsSelected
strFilter = ", " & .ItemData(varItem)
Next varItem
End With

If Len(strFilter) > 2 Then
Debug.Print strFilter 'Ausgabe zur Kontrolle
strFilter = Mid(strFilter, 3) 'erstes Komma wegschneiden
Me.Filter = "zei_DMonat IN(" & strFilter & ")"
Me.FilterOn = True
End If

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Habe hier die beiden Code angefügt wegen dem Vergleich.
Danke!

André.H, 18. Dezember 2018

#7
MARSU65

Marsu65

Listenfeld VBA-Code

Hallo!

finde den Unterschied *wink.gif*
Code:

Private Sub lstKW_AfterUpdate()
vs.
With Me.KW
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Marsu65, 18. Dezember 2018

#8
ANDRé.H

André.H

Danke :-)
ja, manchmal sieht man den Wald vor Bäumen nicht...
Kleinigkeiten die eine große Wirkung haben.

André.H, 19. Dezember 2018

#9
ANDRé.H

André.H

Habe den Code korrigiert,
jetzt keine Fehlermeldung und so, nur es werden keine daten entsprechend gefiltert im Formular. Was ist nun da falsch?
Code:

Private Sub lstKW_AfterUpdate()
Dim i As Long
Dim strFilter As String
Dim varItem As Variant

With Me.lstKW
For Each varItem In .ItemsSelected
strFilter = ", " & .ItemData(varItem)
Next varItem
End With

If Len(strFilter) > 2 Then
Debug.Print strFilter 'Ausgabe zur Kontrolle
strFilter = Mid(strFilter, 3) 'erstes Komma wegschneiden
Me.Filter = "KW IN(" & strFilter & ")"
Me.FilterOn = True
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

André.H, 19. Dezember 2018

#10
MAIKEK

maikek

Was ergibt denn das Debug.Print im Direktfenster? Passt der Filterstring?
maike

maikek, 19. Dezember 2018

#11
MAXEL

Maxel

Code:

strFilter = ", " & .ItemData(varItem)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

=>
Code:

strFilter = strFilter & ", " & .ItemData(varItem)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Maxel, 20. Dezember 2018

#12
MAIKEK

maikek

Listenfeld VBA-Code

Code:

strFilter = strFilter & ", " & .ItemData(varItem)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

*redface Das hatt' ich doch glatt übersehen ...
Danke, Maxel.
maike

maikek, 20. Dezember 2018

#13
ANDRé.H

André.H

Hallo, ihr zwei,
leider kein Erfolg :-/
im Direktfenster wird nichts angezeigt, wenn ich Listenfeld was auswähle.
Aber in dem anderen Listenfeld "Monat" sehe ich immer dann den ausgewählten Wert im Direktfenster.
Mit anderen Wollten im Direktfenster wird da nichts angezeigt an Filterstring.

André.H, 20. Dezember 2018

#14
OHRKESTER

Ohrkester

Servus,
hast Du es schon mal im Ereignis beim Klicken versucht?

Ohrkester, 20. Dezember 2018

#15

(Du musst angemeldet oder registriert sein, um eine Antwort erstellen zu können.)

Seite 1 von 4

Thema:

Listenfeld VBA-Code

Die Seite wird geladen...

Listenfeld VBA-Code - Similar Threads - Listenfeld VBA Code
Listenfeld in Word 2016
in Microsoft FrontPage Hilfe
Listenfeld in Word 2016: Hallo, leider konnte ich keinen Eintrag zu meinem Problem finden: Wegen der größeren Länge von Texten kann ich nicht nur einfach eine listbox verwenden. Die listbox zur Auswahl der Alternativen...
Formular mit Bedingung öffnen aus einem Listenfeld heraus (VBA)
in Microsoft Access Hilfe
Formular mit Bedingung öffnen aus einem Listenfeld heraus (VBA): Hallo zusammen, ich möchte aus einem Listenfeld ein Formular mit einer Bedingung öffnen, wenn ich die Enter/Return-Taste drücke. Hinweis: im gleichen Formular ist bereits die Enter-Taste schon...
Listenfeld wird nicht immer gefüllt
in Microsoft Access Hilfe
Listenfeld wird nicht immer gefüllt: Hallo alle Kenner, in einer Datenbank sind die Werke verschiedener Komponisten mit ihren Werken erfasst. Über ein Kombinationsfeld werden z.B. die Kategorien ausgewählt und die entsprechen Werke...
Listenfeld mit VBA auslesen und Textfeld befüllen
in Microsoft Access Hilfe
Listenfeld mit VBA auslesen und Textfeld befüllen: Guten Tag alle zusammen, ich habe ein Listenfeld in einem Formular, ich möchte auf diesem einen Wert aus der Liste auswählen, dann auf einen "OK" button klicken, den Ausgewählten Wert in einer...
Listenfeld: Spalten-Update per VBA Laufzeitfehler 424
in Microsoft Access Hilfe
Listenfeld: Spalten-Update per VBA Laufzeitfehler 424: Hallo zusammen, mein Access 2003 bringt 'Laufzeitfehler 424 - Objekt erforderlich'. Hintergrund: Unverbundenes Listenfeld in einem Formular. Die 9 Spalten werden von einer Abfrage geliefert, in...
Zeile im Listenfeld per VBA auswählen
in Microsoft Access Hilfe
Zeile im Listenfeld per VBA auswählen: Hallo, ich habe in meiner DB ein Formular mit je einem Text- und Listenfeld. Das Listenfeld wird abhängig von der Eingabe gefüllt. Nun möchte ich wenn nur noch ein Eintrag im Listenfeld ist...
Listenfeld nach Änderung aktualisieren (VBA)
in Microsoft Access Hilfe
Listenfeld nach Änderung aktualisieren (VBA): Hallo zusammen! Ich hoffe, ihr könnt mir helfen, ich bin langsam echt am verzweifeln.. Ich habe ein Listenfeld, was mit Daten aus einer Abfrage gefüllt ist: Me!liste.RowSource = "SELECT...

Anmelden oder registrieren

Suche

Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.

Akzeptieren Weitere Informationen...

Information ausblenden