ACCESS訂單交期狀況自動提醒

在訂單的表單交貨日期欄右側加入一個未結合的文字方塊"到期日" 建立表單的 On Current 事件程序(填入 紅色字 部分) Private Sub Form_Current() Dim 到期日 As String, 日期 As Integer If 交貨日期 > Date Then 日期 = 交貨日期 - Date Me!到期日 = "還有" & 日期 & "天到期" End If If 交貨日期 = Date Then Me!到期日 = "今天到期" End If If 交貨日期 < Date Then 日期 = Date - 交貨日期 Me!到期日 = "已過期" & 日期 & "天" End If End Sub 開啟訂單時就會自動提醒交貨日期狀況(可透過查詢篩選未交貨的訂單) 以今天是2012/6/10為例，測試以下訂單

如需參考範例請提供E-Mail帳號

---