Jag har ett formulär(Tempform) med en combobox(CBBearingType).
Jag har även en vektor(TableNames) fylld med värden.
Hur skall jag göra för att fylla comboboxen med vektorns värden?

Private Function GetTableNames(Tablenames() As String) As String

Dim Table As AccessObject
Dim CB As ComboBox

DoCmd.OpenForm ("Tempform")
Set CB = Forms!Tempform!CBBearingType

CB = Tablenames() 'Här uppstår problemet
End Function

Förslag!!

/john

Du kan ju göra någont sånt här:
<code>
Private Function GetTableNames(Tablenames() As String) As String
Dim Table As AccessObject
Dim CB As ComboBox

DoCmd.OpenForm "Tempform"
Set CB = Forms("Tempform").CBBearingType

CB.RowSourceType = "Value List"
CB.RowSource = Join(Tablenames(), ";")
End Function
</code>