Office中国论坛/Access中国论坛

标题: 顺序显示文本框内容请教各位 [打印本页]

作者: qpzm 时间: 2006-8-20 02:50
标题: 顺序显示文本框内容请教各位

[attach]19871[/attach]

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

作者: fan0217 时间: 2006-8-20 03:16
Dim objCtl As Control
For Each objCtl In Me.Controls
      If objCtl.ControlType = acTextBox Then
         MsgBox objCtl.Value
      End If
Next

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

作者: fan0217 时间: 2006-8-20 03:24
也可采用下面的方法，这种方法需要控件的命名有一定的规律。必如：txtName1，txtName2，txtName3....

Dim i As Integer

For i = 1 To 10

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

作者: qpzm 时间: 2006-8-21 04:45
谢谢版主！

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)