Beste helpers van het forum,
Ik heb gisteren van VenA een goed werkend script mogen ontvangen voor het importeren van data vanuit acces direct naar een listbox in excel. Daarop heeft VenA ook de zoekroutine verbeterd die ik had.
Ik heb een anders userform voor het printen van de dag/weekstaten van ons personeel. Ik probeer nu dezelfde code van VenA hierin te verwerken zodat alle data direct weer in het listbox wordt opgeladen, alleen voor andere data van ons personeel te importeren.
Zoals de situatie nu is (en waar ik vanaf wil) laat ik eerst de data vanuit access importeren naar een sheet in excel, van daaruit liet ik de opmaak van de personeelsnamen voor de listbox bepalen. Als er geen tussennaam bestaat dan alleen de voornaam en achternaam toevoegen in de listbox.
De listbox zelf had een opmaak met .multiselect.
Oftewel is er een mogelijkheid ipv alle data te laten uploaden zoals met onderstaande code
te vervangen door zoiets?
Ik heb gisteren van VenA een goed werkend script mogen ontvangen voor het importeren van data vanuit acces direct naar een listbox in excel. Daarop heeft VenA ook de zoekroutine verbeterd die ik had.
Ik heb een anders userform voor het printen van de dag/weekstaten van ons personeel. Ik probeer nu dezelfde code van VenA hierin te verwerken zodat alle data direct weer in het listbox wordt opgeladen, alleen voor andere data van ons personeel te importeren.
Zoals de situatie nu is (en waar ik vanaf wil) laat ik eerst de data vanuit access importeren naar een sheet in excel, van daaruit liet ik de opmaak van de personeelsnamen voor de listbox bepalen. Als er geen tussennaam bestaat dan alleen de voornaam en achternaam toevoegen in de listbox.
De listbox zelf had een opmaak met .multiselect.
Oftewel is er een mogelijkheid ipv alle data te laten uploaden zoals met onderstaande code
Code:
ListBox1.Column = rs.GetRows
te vervangen door zoiets?
Code:
With CreateObject("scripting.dictionary")
For Each cl In rs.Column("In_dienst")
If Not rs.Column("In_dienst") = "Uit dienst" Then
If rs.Column("Tussenvoegsel") = "" Then
.Item("Voornaam" & " " & "Achternaam") = cl.Value
Else
.Item("Voornaam" & " " & "Tussenvoegsel" & " " & "Achternaam") = cl.Value
End If
End If
Next cl
With ListBox1
.ListStyle = fmListStyleOption
.MultiSelect = fmMultiSelectMulti
End With
ListBox1.List = .keys
End With