Question

我有一个不同形式的列表，并且文本框内的值是从列表中以不同形式检索的，我的问题是我无法一次删除所有值，因为它们来自视图而且我不允许一次全部更改多个表，所以我的解决方案是创建一个包含所有文本框的数组，并将值由1变为null并将其单独保存，这样我就不会收到该错误。

我尝试了多种解决方案，例如一次保存所有内容。

Private Sub Comando28_Click()
Dim strTextBoxes(1 To 5) As String

tbAplic = Me.TbUAplicacion.Value

tbUsr = Me.tbuUsuario.Value

tbMail = Me.tbuMailUsuario.Value

tbnmbre = Me.tbuNombrePersona.Value

tbAppld = Me.tbuApellidosPersona.Value

tbDni = Me.tbuDNIPersona.Value

Dim ITM As strTextBoxes.ITM

For Each ITM In strTextBoxes.ITM
    If ITM = Not Null Then ITM = Null
    Guardar_Click '<---- this is a macro which I use to save the items new value
Next ITM

End Sub

按下应该执行该操作的按钮时出现的错误如下：

尚未定义用户定义的类型

Answer 1

尝试一下：

Private Sub Comando28_Click()

    Dim strTextBoxes(1 To 5) As String

    tbAplic = Me.TbUAplicacion.Value

    tbUsr = Me.tbuUsuario.Value

    tbMail = Me.tbuMailUsuario.Value

    tbnmbre = Me.tbuNombrePersona.Value

    tbAppld = Me.tbuApellidosPersona.Value

    tbDni = Me.tbuDNIPersona.Value

    Dim ITM As String
    Dim Item As Long

    For Item = LBound(strTextBoxes) To UBound(strTextBoxes)
        ITM = strTextBoxes(Item)
        If ITM <> "" Then ITM = ""
        Guardar_Click '<---- this is a macro which I use to save the items new value
    Next

End Sub

如何在VBA中创建一个foreach按钮来保存文本框数组的值？

1 个答案: