祝大家情人节快乐

tmtony

祝大家情人节快乐,愿天下有情人爱得痴痴迷迷,爱得轰轰烈烈,爱得如醉如痴,爱得缠缠绵绵,爱得心花怒放,爱得惊天动地,爱得死去活来,爱没脾气,爱得没商量,爱得Office都不要,爱得ACCESS都不想...........有情人终成眷属

ququ

我更爱ACCESS

sthxy

Another Saint Valentine's Day ,no sweetie!

竹笛

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

end sub

[此贴子已经被作者于2004-2-14 9:13:37编辑过]

fjde

~~~没有情人的情人节.........

Roadbeg

我觉得这样说,寓意更深刻一点:
"没有情人节的情人"

cai373

有情人节的情人