ms access vba动态阵列--为什么赢得'；这不管用吗？

我有一个带有名为

txtInput

的文本框和按钮名

btnAdd

的访问表单

以下是按钮单击事件的子过程；每次用户在文本框中输入一些文本并单击按钮时，都应该将文本字符串添加到动态数组中

Public Sub btnAdd_Click()
    Dim equipArray() As String
    Dim ctr As Integer

    ctr = 0
    Do While txtInput <> "stop"        
        ReDim Preserve equipArray(x)
        equipArray(x) = txtInput
        ctr = ctr + 1
    Loop

End Sub

Public Sub btnAdd_Click（）
字符串形式的数组（）
作为整数的Dim ctr
ctr=0
在TXT输入“停止”时执行
雷迪姆阵列（x）
equipArray（x）=txtInput
ctr=ctr+1
环
端接头

---

但它不工作，有人能帮忙吗？

每次单击按钮时，它都会重新创建阵列。在重新创建之前，您不会保存它。最好的做法是在窗体上放置一个隐藏的文本框，并将值写入该文本框，然后在某个事件（form close？随您所愿）上，您可以将该文本框中的值写入表。

如果按下按钮时，假定只将文本框值添加到数组中，为什么要执行循环？