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.
Hallo,
zeige bitte den kompletten VBA-Code dazu, also die vollständige Ereignisprozedur.
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
Hallo zusammen,
habe das Problem selber gelöst.
Code im "Beim Anzeigen (Current)" eingetragen ....... funktioniert.
Danke