【通用工具源碼】自動定位輸入框的日期選擇器(Access Calendar)最終版

紅塵如煙

由于Access從2007版開始已經(jīng)有了內(nèi)置的日期選擇器功能，所以此模塊不再更新，但對于使用2003以更早版本的朋友還有些用處（不過這個應(yīng)該更符合大家的使用習(xí)慣）。

說明：純Access實現(xiàn)，不會出現(xiàn)任何引用問題，用于輔助日期輸入，最終版徹底解決了定位問題，在普通窗體、連續(xù)窗體、數(shù)據(jù)表視圖窗體中，都能夠?qū)崿F(xiàn)相對指定于輸入框控件的自動適應(yīng)定位。按回車鍵選擇當(dāng)前系統(tǒng)日期。
   
調(diào)用方法：將frmCalendar窗體和modCalendar模塊導(dǎo)入到你自己開發(fā)的系統(tǒng)中，然后調(diào)用CalendarFor函數(shù)即可，調(diào)用方式有多種：
方式一是如圖1那樣做一個按鈕，然后在按鈕的單擊事件中調(diào)用 ：
Private Sub cmdGetDate_Click()
    CalendarFor Me.txt訂購日期
End Sub

方式二是直接在文本框的單擊事件中調(diào)用：
Private Sub txt訂購日期_Click()
    CalendarFor Me.txt訂購日期
End Sub

方式三和方式二差不多，但無須寫代碼，而是直接把文本框的“單擊”屬性設(shè)為：
=CalendarFor([txt訂購日期])

游客，如果您要查看本帖隱藏內(nèi)容請回復(fù)

tmtony

很好的功能,收藏了

aslxt

好好學(xué)習(xí)天天向上

5988143

加分,收藏了~

fnsmydyang

好東東，收藏了，謝謝。。。

wang1950317

我還用2003，當(dāng)前也是用紅塵版主的日期定位代碼，收藏啦！謝謝！

lkkl66

學(xué)習(xí)！謝謝！

xuwenning

收藏
謝謝分享

石三少

很好，收下

yanwei82123300

很好的功能,收藏了