顺序显示文本框内容请教各位

qpzm

我想在例子中点击Display按钮，让它依次显示出文本框 Text1.....Text5 的内容，请问怎样在按钮中写代码？

fan0217

    Dim objCtl As Control
    For Each objCtl In Me.Controls
        If objCtl.ControlType = acTextBox Then
            MsgBox objCtl.Value
        End If
    Next

以上代码如果文本框的值为空，将发生错误，实际应用时，需要注意这点。

fan0217

也可采用下面的方法，这种方法需要控件的命名有一定的规律。必如：txtName1，txtName2，txtName3....

Dim i As Integer  

For i = 1 To 10

      MsgBox Me.Controls("txtName" & i).Value
Next

qpzm

谢谢版主！