ACCESS問題~幫幫忙

Question

表單中我設了一個標籤

名子是:xxxxx(二月份) 我要如何讓那個二月份的二字 是自己由系統讀取的而不每月修改~~ 請教教我 感恩

Answer 1

1:在表單的設計檢視_由工具拖曳一個標籤_假設名稱 label8
2:在form on load 輸入:
Dim SN As Variant
SN = Array("一月份", "二月份", "三月份", "四月份", "五月份", "六月份", "七月份", "八月份", "九月份", "十月份", "十一月份", "十二月份")
For K = 1 To 12
Me!label8.caption = Format(Date, "YYYY年")&SN(Format(Date, "m") - 1)
Next

2007-02-02 09:20:01 補充：
PS:如果你想加入自己的文字敘述_ ex : 123456666
則 Me!label8.caption = " 123456666" &SN(Format(Date, "m") - 1)
若要年度 在 加上 Format(Date, "YYYY年")
視你實施須要.自行編排.
希望有幫上忙!