按钮在文本字段中添加一个月到当前日期

Question

我目前使用访问存储并轻松管理健身房会员资格和客户信息等。我有3个表单，员工可以添加新成员，查看当前成员，以及可以运行各种其他功能（如运行报告）的主页已过期的会员资格等。

在选择成员时打开的个人资料表单上有一个到期日期字段，即客户成员资格到期的日期。到目前为止，健身房的员工只是在客户支付会员资格时手动输入日期为+1个月，但是出现了一些错误。

我想要做的是创建一个按钮，只需将今天的日期+1个月插入到期文本字段中。要做到这一点，我创建了一个按钮并使用以下VBA代码但是这只增加了一天，而不是1个月，我不能简单地添加+30，因为不同的月份有不同的天数。

++启动VBA Code ++

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)