7,732
社区成员
发帖
与我相关
我的任务
分享判断表1有无数据，无数据执行A,有数据执行B
想完成这样一个过程：判断表1有无数据，无数据执行A,有数据执行B
access里的vba怎么实现？
access里的vba怎么实现？
...全文
请发表友善的回复…
发表回复
zjcxc 2003-11-01
- 打赏
- 举报
好,原来还有dcount这么好用的函数.
hiyo 2003-10-31
- 打赏
- 举报
以mdb文件（使用dao技术）为例（如果你使用adp文件需改为ado进行访问）：
function Demo()
dim Rst as Recordset,Sql as String
Sql="SELECT 表1.* FROM 表1;"
Set Rst=Currentdb().OpenRecordset(Sql)
If Rst.Eof then
call A '执行A
Else
Call B '执行B
Endif
Set Rstt=Nothing
Endif
function Demo()
dim Rst as Recordset,Sql as String
Sql="SELECT 表1.* FROM 表1;"
Set Rst=Currentdb().OpenRecordset(Sql)
If Rst.Eof then
call A '执行A
Else
Call B '执行B
Endif
Set Rstt=Nothing
Endif
changechange 2003-10-31
- 打赏
- 举报
Access环境吗？哪需要那么麻烦？
看下面代码：
function test()
if dcount("*","表1")=0 then
call a
else
call b
end if
end function
看下面代码：
function test()
if dcount("*","表1")=0 then
call a
else
call b
end if
end function
