标题: 祝大家情人节快乐 [打印本页] 作者: tmtony 时间: 2004-2-14 04:23 标题: 祝大家情人节快乐 祝大家情人节快乐,愿天下有情人爱得痴痴迷迷,爱得轰轰烈烈,爱得如醉如痴,爱得缠缠绵绵,爱得心花怒放,爱得惊天动地,爱得死去活来,爱没脾气,爱得没商量,爱得Office都不要,爱得ACCESS都不想...........有情人终成眷属作者: ququ 时间: 2004-2-14 04:29
我更爱ACCESS作者: sthxy 时间: 2004-2-14 07:32
Another Saint Valentine's Day ,no sweetie!作者: 竹笛 时间: 2004-2-14 17:12
sub 情人节快乐()
dim strWhere as string
dim strYou as string
if date=#2004-1-24# then
strWhere=me.选择'有三个选项：没有情人；你有情人；你有老公或老婆
select case strWhere
case "没有情人"
strYou="找到情人"
case "你有情人"
strYou="找到老公或老婆"
case "你有老公或老婆"
strYou="快乐,你到底想什么……"
end select
msgbox "情人节快乐!祝您今天" & strYou ,vbinformation,"Access中国"
end if