MS Access：使用VBA将文本框中的字符串拆分到其他文本框中

Question

我想使用 Access 中的 vba 将文本框中的字符串拆分为许多文本框，每个文本框包含一个单词

所以我们可以说文本框名称text1，它包含一个字符串，例如hello I'm asking a question

我想将该字符串拆分为文本框，所以它就像

text2 = hello
text3 = I'm
text4 = asking
 ...etc 

有简单的方法吗？

Answer 1

Access 有一个内置的 split() 命令可以执行此操作。

所以，这段代码将起作用：

Dim v        As Variant
Dim sOne     As Variant
Dim i        As Integer

v = Split(Me.TextBox0, " ")
i = 0
For Each sOne In v
   i = i + 1
   Me("text" & i) = sOne
Next

因此，上面将从表单上的文本框 0 中获取字符串，并将 3 个值放入文本框 1 到 3 中。

因此不需要大量代码。