Listenfeld im geteilten Formular

[dierk1804]

Hallo zusammen,
ich habe ein Listenfeld in einem geteilten Formular. Wenn ich nun im Tabellenbereich den Datensatz wechsle, wird die Liste nicht aktualisiert. Die Aktualisierung habe ich im Code bei Nach aktualisieren geschrieben. Dies funktioniert aber nur wenn ich nach dem Wechsel des Datensatzes auf das Formular klicke? Was mache ich falsch
Für Hilfe wäre ich dankbar.

[MaggieMay]

Hallo,

zeige bitte den kompletten VBA-Code dazu, also die vollständige Ereignisprozedur.

[dierk1804]

Guten Morgen,

hier der Code:
On Error GoTo Err
   Dim strSchlagwort As String
   Dim objFS As Object
   Dim objFolder As Object
   Dim objFile As Object
   
   strSchlagwort = Me.AN_Nr
   Set objFS = CreateObject("Scripting.FileSystemObject")
'Jahr für Ordner
Dim varj As Integer
varj = Year(Date)
'Ende
   Me.ListBox1.RowSource = ""
   Set objFolder = objFS.getfolder("T:\Common\Einkauf\Angebote Projekte " & varj & "\")
   
   For Each objFile In objFolder.Files
      If InStr(1, Split(objFile.Name, ".")(0), strSchlagwort, 1) > 0 Then ListBox1.AddItem objFile.Name
   Next
   
   Set objFS = Nothing
Exit Sub

Err:
Me!ListBox1.RowSource = "kein Eintrag vorhanden"
Exit Sub

[dierk1804]

Hallo zusammen,

habe das Problem selber gelöst.

Code im "Beim Anzeigen (Current)"  eingetragen ....... funktioniert.

Danke