在文本字段中將一個月添加到當前日期的按鈕

Question

我目前使用訪問權限來存儲和輕松管理健身房會員資格和客戶信息等。我有 3 個表單，員工可以在其中添加新會員、查看當前會員，以及一個主頁，他們可以在其中運行各種其他功能，例如運行會員過期報告等。

在選擇成員時打開的配置文件表單上有一個到期日期字段，即客戶會員資格的到期日期。 到目前為止，健身房的員工只是手動輸入客戶支付會員費的日期 +1 個月，但是出現了一些錯誤。

我想要做的是創建一個按鈕，它將簡單地將今天的日期 +1 個月插入到到期文本字段中。 為此，我創建了一個按鈕並使用以下 VBA 代碼，但是這只添加了一天，而不是 1 個月，我不能簡單地添加 +30，因為不同的月份有不同的天數。

++啟動VBA代碼++

Private Sub cmdAddDate_Click()
On Error GoTo ErrorAddDate

    Me.Expiry = Date + 1

ExitAddDate:
    Exit Sub

ErrorAddDate:
    MsgBox Error.Description
    Resume ExitAddDate
End Sub

++結束 VBA 代碼++

如果需要，我可以在我的 FTP 服務器上托管數據庫的副本，但當然必須刪除客戶信息。

先謝謝了。

Answer 1

使用DateAdd函數：

Me.Expiry = DateAdd("m", 1, Date)