[ 本帖最后由 paladinqyd 于 2007-12-5 15:55 编辑 ]作者: andymark 时间: 2007-12-5 15:24
请修改标题 http://www.office-cn.net/forum.p ... &extra=page%3D1作者: kangking 时间: 2007-12-5 15:28
用查询建立一个记录集,如果记录集是空的,没有人今天过生日,如果不是空的,则可以用一个变量保存这些人的名字,然后可以用msgbox函数显示.
dim rs as dao.recordset
dim sql as string
dim sname as string
sql="select 姓名 from 表 where 出生日期=#" & date & "#"
set rs=currentdb.openrecordset(sql)
if rs.recordcount=0 then
msgbox "今天没有人过生日"
else
do until rs.eof
sname=aname & rs(0) & ","
rs.movenext
loop
msgbox "今天有 " & sname & " 过生日"
end if
没有测试,大概就是这样了.作者: paladinqyd 时间: 2007-12-5 15:53
to 1楼：很抱歉，我是新来的，不太懂规矩
to 2楼：谢谢，我试试看作者: paladinqyd 时间: 2007-12-5 16:12
Set rs = CurrentDb.OpenRecordset(sql)
运行时错误‘3061’，参数不足，期待是1
？？