是否有使用 Split() 函数的简单 VBA 代码来获取组合框的值列表，该组合框最初来自文本框作为字符串？
Is there an easy VBA code using Split() Function to get a list of values for a combo box that was originally from a text box as a string?
在我的访问表单上，我有一个文本框，它是一串字符，整个字符串中有多个“/”。我想使用 split 函数将这个字符串分成一个值列表，以用于子窗体上的组合框。
我知道它在某个地方：
Public Function MakeList()
Dim MyList as String
Dim txt as String
txt = [myTextBoxField].Value
MyList = Split(txt,"/")
或者：
[myComboBox].Value = MyList
或者：
[myTextBoxField].Value = MyList
End Sub
我不确定这是应该在 "Form Load" 上还是在 Public 函数的模块中。
所有其他代码显示 For 循环或 Debug.Print。我希望将此列表作为一个字段存储在我的 table 中，然后将该字段用于我的组合框中的行源。
首先，必须将组合框 RowSourceType 属性 设置为 ValueList。接下来，VBA 设置 RowSource 属性，而不是 Value。列表不是 Access 中组合框的 属性。只需：
Me.myComboBox.RowSource = Replace(Me.myTextBoxField, "/", ";")
表单加载事件应该是合适的。
在我的访问表单上，我有一个文本框，它是一串字符，整个字符串中有多个“/”。我想使用 split 函数将这个字符串分成一个值列表，以用于子窗体上的组合框。
我知道它在某个地方：
Public Function MakeList()
Dim MyList as String
Dim txt as String
txt = [myTextBoxField].Value
MyList = Split(txt,"/")
或者：
[myComboBox].Value = MyList
或者：
[myTextBoxField].Value = MyList
End Sub
我不确定这是应该在 "Form Load" 上还是在 Public 函数的模块中。
所有其他代码显示 For 循环或 Debug.Print。我希望将此列表作为一个字段存储在我的 table 中，然后将该字段用于我的组合框中的行源。
首先，必须将组合框 RowSourceType 属性 设置为 ValueList。接下来，VBA 设置 RowSource 属性，而不是 Value。列表不是 Access 中组合框的 属性。只需：
Me.myComboBox.RowSource = Replace(Me.myTextBoxField, "/", ";")
表单加载事件应该是合适的。