ACCESS如何警示日期要到有效期限了－百科全書

標題:

ACCESS如何警示日期要到有效期限了

發問:

請問各位高手要如何寫才能對日期提出警示例如: 簽發日期:2010/01/01.. 有效期限:2010/03/01 我如何在前15天就可以獲知他要到期了..以上拜託高手賜教..謝謝更新: 拜託高手請不要使用查詢的方式.我比較需要同一表單內的程式碼..謝謝更新 2: 萬分抱歉3位高手:我目前只會在屬性作程式碼.所以我一直找不到你們的建立事件在哪裡..如: 建立表單OnCurrent事件程序.Function ChkDate()..在表單_設定一個按鈕_在_onclick_輸入.實在抱歉.本不敢再煩你們.可是實在找了好久.都還是解不開答案.只好再上來拜託三位高手.再次授業解惑吧..我只會在屬性的ON CLICK.寫程式碼.寫了之後.發現三位寫的都很有趣..可是就是無法如..同學.說得一樣.只要我開啟表單或是轉動名單他就會自己提出警示..都還要我去按牠.他才會顯示要幾天過期.非常感謝你們..造成你們的困擾..實在抱歉.再次拜託你們..慷慨解曩.謝謝

最佳解答:

建立表單OnCurrent事件程序 Private Sub Form_Current() dd = [有效期限] - Date If 有效期限 <= (Date + 15) Then MsgBox "有效期再過" & dd & "天就到期了!" End If End Sub 開啟表單時如有效期與今天比較少於或等於15天就會出現警示"再過?天就到期了!" 如需參考範例可點我名字寫信給我 2010-07-25 18:59:37 補充：抱歉!因補充內容無法貼圖，只好用網址連結圖片1:http://tw.myblog.yahoo.com/jw!j7ZMQqeTQkWaycoT0mPf/photo?pid=785 開啟表單設計-->滑鼠點表單左上角-->再點右上方"屬性"-->顯示表單屬性對話框圖片2:http://tw.myblog.yahoo.com/tone-share/photo?pid=786 事件-->OnCurrent事件程序-->小幫手-->開啟VBA畫面圖片3:http://tw.myblog.yahoo.com/tone-share/photo?pid=787 輸入中間紅框部分關閉VBA-->儲存表單設計 2010-07-25 18:59:44 補充：開啟表單就會有警示畫面試試看有問題再提出補稱發問 2010-07-25 19:04:53 補充： iam_1_001大大好: 您太客氣了小弟的VBA是土法煉鋼您的VBA比小弟強多了小弟就獻醜了就由小弟繼續補充如有碰到困難還請大大鼎力相助謝謝!

其他解答:

非常抱歉:iam_1_001:我實在無意冒犯你.希望望你不要誤解.謝謝你這次的辛勞..萬分感謝|||||因大大指出_同學大大_才是你要的答案.就由同學_完整答覆. 很抱歉!!退出.|||||Access VBA 有提供幾個函數 GetSetting 函數從 Windows 註冊區應用程式的初始化檔案中的資訊中傳回某個應用程式項目的主設定值。語法: GetSetting(appname, section, key[, default]) 例如: x=GetSetting "MyApp","Iimited", "Date" SaveSetting 陳述式從 Windows 註冊區應用程式的初始化檔案中的資訊中儲存或建立一個應用程式項目。語法:SaveSetting appname, section, key, setting 例如:SaveSetting "MyApp","Iimited", "Date", Date()+7 還有 DeleteSetting & GetAllSettings ....(查查 Help 關鍵字) Function ChkDate() Dim Dt As String Dt = GetSetting("MyApp", "Iimited", "DATE") If Dt = "" Then SaveSetting "MyApp", "Iimited", "DATE", Format(Date + 7, "yyyy/mm/dd") Else If (CDate(Dt) > Date And CDate(Dt) - 7 <= Date) Then MsgBox "Limited Date :" & Dt Else MsgBox "Out of Date :" & Dt End If End If End Function