如何实现弹出生日提示的功能

paladinqyd

做了一个关于联系人的数据库
想要实现一个功能
就是在打开主界面的当天如果是其中任何一名成员的生日
则系统弹出提示“今天是成员：XX的生日”
不知怎么写语言
望达人指教

[ 本帖最后由 paladinqyd 于 2007-12-5 15:55 编辑 ]

andymark

请修改标题
http://www.office-cn.net/forum.p ... &extra=page%3D1

kangking

用查询建立一个记录集,如果记录集是空的,没有人今天过生日,如果不是空的,则可以用一个变量保存这些人的名字,然后可以用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

to 1楼：很抱歉，我是新来的，不太懂规矩
to 2楼：谢谢，我试试看

paladinqyd

Set rs = CurrentDb.OpenRecordset(sql)
运行时错误‘3061’，参数不足，期待是1
？？