Office: (Office 2016) Listenfeld VBA-Code

Helfe beim Thema Listenfeld VBA-Code in Microsoft Access Hilfe um das Problem gemeinsam zu lösen; Hallo Ohrkester, auch beim klicken geht es nicht. Habe es gerade eben auch versucht. Dieses Thema im Forum "Microsoft Access Hilfe" wurde erstellt von André.H, 14. Dezember 2018.

Seite 2 von 4

ANDRé.H

André.H

Listenfeld VBA-Code

Hallo Ohrkester,
auch beim klicken geht es nicht. Habe es gerade eben auch versucht.

André.H, 20. Dezember 2018

#16
OHRKESTER

Ohrkester

Servus,
dann verschieb das Debug.print direkt hinter
Code:

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

und dann Schritt für Schritt weiter nach unten im Code.
Benutze auch die Schritt für Schritt Verfolgung des Codes (links ausserhalb der VBAzeile markieren (dunkelroter Punkt erscheint) und dann mit F8 Schritt für Schritt den Code und seine Auswirkung durchgehen.

Ohrkester, 20. Dezember 2018

#17
ANDRé.H

André.H

Habe es mal gemacht und im Direktfenster zeigt er zwar Zeilenumbrüche an (Zeilenwechsel)
Code:

Private Sub lstKW_Click()
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
'hier gibt er einen leerstring raus, zeilenumbruch im Direktfenster
'aber ohne Inhalt

Debug.Print strFilter 'Ausgabe zur Kontrolle
End With
If Len(strFilter) > 2 Then
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.

Ist der String selbst nicht richtig?

André.H, 20. Dezember 2018

#18
OHRKESTER

Ohrkester

Listenfeld VBA-Code

schieb das Code:

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

mal direkt vor Code:

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

Ohrkester, 20. Dezember 2018

#19
ANDRé.H

André.H

Ja, gemacht...
da tut sich nichts. weder Zeilenumbruch noch eine Ausgabe

André.H, 20. Dezember 2018

#20
EBS17

ebs17

Ist der String selbst nicht richtig?
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Woran kann man das messen?

Hast Du schon eine Vorstellung, wie ein fertiger, funktionierender und genau das gewünschte anzeigende Filter aussehen müsste? Das wäre notwendig, weil man da Abweichungen seines Programmierwerkes dazu gezielt korrigieren könnte.

ebs17, 20. Dezember 2018

#21
OHRKESTER

Ohrkester

nun musst Du weitersuchen...
Code:

Debug.print .ItemsSelected
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

oder
Code:

Debug.print .ItemData(varItem)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

oder
Code:

Debug.print varItem
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Alles natürlich innerhalb der For Each Schleife.

Evtl. wirkt Dein Filter überhaupt nicht und man müsste ihn mal erst selbst untersuchen.

Oder Du sendest Deine DB abgespeckt auf Dein Problem mit anonymisierten
Testdaten zum Ausprobieren.

Ohrkester, 20. Dezember 2018

#22
ANDRé.H

André.H

Listenfeld VBA-Code

Hallo,
es soll nach der Auswahl dann die entsprechenden Datensätze im Formular anzeigen. Was ja schon im lstMonat gemacht wird.
Zum anderen sollen die Auswahl der verschiedenen Listenfelder dann entsprechend die Datensätze Filtern und auch dann im Formular angezeigt werden. später soll ein Button dann den Berichtausdruck machen.

André.H, 20. Dezember 2018

#23
ANDRé.H

André.H

Zum vorigen Thread: Habe eine Beispiel DB angefügt.

André.H, 20. Dezember 2018

#24
MAXEL

Maxel

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

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

Ist der String selbst nicht richtig?

Liest Du die Beiträge? Dann würdest Du so coden:

Code:

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

Maxel, 20. Dezember 2018

#25
ANDRé.H

André.H

Hallo, das hatte ich auch so gecodet wie es in dem Beitrag beschrieben wurde:
Code:

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

Aber da hat es sich auch nichts getan.
Als ich die DB für das Forum gezippt habe war es anders gecodet worden.

André.H, 20. Dezember 2018

#26
EBS17

ebs17

Mehrfachauswahl im Listenfeld und Ereignis AfterUpdate scheinen nicht zusammenzupassen.

ebs17, 20. Dezember 2018

#27
ANDRé.H

André.H

Listenfeld VBA-Code

Hallo Eberhard,
ja, das ist auch beim Klicken eingestellt:
Code:

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

With Me.lstKW
For Each varItem In .ItemsSelected

strFilter = strFilter & ", " & .ItemData(varItem)
Debug.Print strFilter 'Ausgabe zur Kontrolle
Next varItem
'hier gibt er einen leerstring raus, zeilenumbruch im Direktfenster
'aber ohne Inhalt

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

Private Sub lstMonat_Click()

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, 2) '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.

aber irgendwie stimmt da was nicht? Nur die Frage wie und was?

André.H, 20. Dezember 2018

#28
MAXEL

Maxel

Hallo, das hatte ich auch so gecodet wie es in dem Beitrag beschrieben wurde
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich sehe in Deinem Monats-Listenfeld immer noch den gleichen Fehler bei der Zusammensetzung des strFilter-Strings.

Maxel, 20. Dezember 2018

#29
KYRON9000

Kyron9000

Hallo,

da es vermutlich ein String ist die KW (sonst würde es ja funktionieren) sollte es so aussehen...
Code:

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

Noch etwas, habe mir jetzt deine BeispielDB angesehen...
Deine Abfrage im Formular ist defekt, da funktioniert mein Code für IsoWeek nicht...
Habe eine neue SQL erstellt, dann funktioniert der Code...
Code:

Option Compare Database
Option Explicit

Public Function fnISOWeekYear(AnyDate As Date, Optional IsYearWeek As Boolean = True) As Long
Dim bytWeek As Byte
Dim lngFirstThursday As Long

lngFirstThursday = DateSerial(Year(AnyDate - Weekday(AnyDate - 1) + 4), 1, 3)
bytWeek = Int((AnyDate - lngFirstThursday + Weekday(lngFirstThursday) + 5) / 7)

If IsYearWeek Then
If Month(AnyDate) = 12 And bytWeek = 1 Then
fnISOWeekYear = (Year(AnyDate) + 1) * 100 + bytWeek
Else
If Weekday(AnyDate) > vbSunday And Weekday(AnyDate) < vbThursday Then
fnISOWeekYear = (Year(AnyDate)) * 100 + bytWeek
Else
fnISOWeekYear = (Year(CDate(lngFirstThursday))) * 100 + bytWeek
End If
End If
Else
fnISOWeekYear = bytWeek
End If
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wenn du False mitgibst wird nur die KW angezeigt!
Mehr habe ich mir jetzt nicht angesehen.

Kyron9000, 20. Dezember 2018

#30

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

Seite 2 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