廖同學的部落格

在訂單的表單交貨日期欄右側加入一個未結合的文字方塊"到期日"
建立表單的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帳號