求教:access中数组的应用问题

cocopig1980 2015-05-03 09:31:25
我想制作一个窗体,编写模块过程,在按钮事件后自动检测指定文本框是否为空和0,写了以下代码,求教代码是否正确:

Public Sub IsTextBoxEmpty(tbs() As textbox)

Dim tb as TextBox (这里有as textbox,编译提示tb要[color=#FF0000]使用变体,取消则不再提示。而我在其他窗体过程写:dim ctl as control for each ctl in me.controls则没有此提示,何解?)[/color]

For Each tb In tbs()

If Len(Nz(tb.Value)) = 0 Then

Msgbox................
Exit Sub
End If
Next
End Sub

在窗体代码作如下调用:
Dim tbs() As textbox

tbs() = Array(Me.txtUserName, Me.txtPassword)

Dim a As New SystemUser

a. IsTextBoxEmpty (tbs()) (这里对tbs()提示“缺少数组或用户自定义类型”)

现在程序是不能过编译,也不知道能否运行,我也对vb集合控件、数组的使用、赋值写法有不清晰和混淆的地方,在此先贴出代码,求高人更正。

当初想法是想写一个类似sub xx(a,b,c,d........)的过程,可以动态添加过程的参数数量,这样我就可以随意指定要检测的文本框(或者有人会说可以使用controls来历遍搜索。因为窗体中不是每个文本框都有用,就没考虑这种写法),可惜功力有限,如果有更好的、更简单的写法,请高人指出。谢谢!!!!
...全文
595 回复 打赏 收藏 转发到动态 举报
写回复
用AI写文章
回复
切换为时间正序
请发表友善的回复…
发表回复

5,140

社区成员

发帖
与我相关
我的任务
社区描述
其他开发语言 Office开发/ VBA
社区管理员
  • Office开发/ VBA社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧