关于Access VBA中控件用法

东晴西雨　发表于：2011-06-03 16:46:37 　

复制

我的窗体上有10个文本控件，我要判断这10个控件是否为空，如果不为空则用Msgbox分别显示控件内容，这10个控件的名字分别为Text1,Text2...Text10

我是这样写的，但是似乎没用这样的写法。希望大家指点下有没有能够用循环语句实现我要的这个功能。如果有的话能否附上代码？

For i = 1 To 10

If IsNull(Me.Text(i)) = False Then
MsgBox Me.Text(i)
End If

Top

瞿丽忠发表于：2011-06-03 18:22:56

我也尝试过，但不成功。

期待

Top

煮江品茶发表于：2011-06-03 19:23:58

Dim ctrls as controls

set ctrls=me.controls

For i = 1 To 10

If IsNull(ctrls("Text" & i).value) = False Then
MsgBox ctrls("Text" & i).value

End If

Top

丘山发表于：2011-06-03 21:39:16

2楼正解

Top

zhcosin 发表于：2011-06-04 21:39:23

2楼是标准答案，这个Text1,Text2……最后的数字都是字符而不再是变量了，所以Text(i)不合法。

Top

zhcosin 发表于：2011-06-04 21:39:29

2楼是标准答案，这个Text1,Text2……最后的数字都是字符而不再是变量了，所以Text(i)不合法。

Top

大夏发表于：2011-06-05 00:17:26

多谢!煮江品茶老师,在这我又学会一招。

Top

大夏发表于：2011-06-06 14:41:29

煮江品茶老师:

Dim ctrls as controls

set ctrls=me.controls

For i = 1 To 10

If IsNull(ctrls("Text" & i).value) = False Then
MsgBox ctrls("Text" & i).value

End If

测试时不成功,后来修改为以下代码,通过测试,

    Dim ctrls As Controls
    Set ctrls = Me.Controls
    For i = 1 To 10
        If IsNull(ctrls("Text" & i).Value) = True Then
        MsgBox ctrls("Text" & i).NAME & "没有数据"
        End If

        Next

请多多指点.

Top

总记录：7篇页次：1/1 9 1 :

Access交流中心

关于Access VBA中控件用法