MS Access VBA-“自定义列”为列表框（使用来自表的另一列中的值）

Question

您好Stackoverflow社区！

我的问题是在使用SQL从表中提取的列表框中创建自定义列。 参考下面当前列表的代码和图片，我想创建一个未存储在表中的自定义列，该列将称为“ DaysActive”，并且将采用今天的日期减去所显示的每个记录的StatusEffect日期，并给出在其自己的列中的天数，例如StatusEffect和Yr之间的天数。 这可能吗？ 预先感谢您抽出宝贵的时间阅读此内容。

Private Sub Form_Load()

DoCmd.RunCommand acCmdWindowHide

Dim rs As Recordset
Dim strSQL As String
Dim lstnum



strSQL = "SELECT LastName, FirstName, Status, StatusEffect, Yr, Make, Model, VIN, Deduction, USLicense, RegistrationState, Dependents,Notes, ID FROM InsuranceTable" & _
"WHERE SentRegistration = False And Status IN ('active','add') Order By StatusEffect Desc "

Set rs = CurrentDb.OpenRecordset(strSQL, dbOpenSnapshot)
Set Me.lstInfo.Recordset = rs

lstnum = [lstInfo].[ListCount]
Me.lstcount.Value = lstnum - 1
End Sub

链接到我当前列表的图片，因为我没有足够的代表点来嵌入它； /

Answer 1

在SQL中使用DateDiff()函数。
DateDiff('d')返回以天为单位的差额。

SELECT ..., StatusEffect, DateDiff('d',[StatusEffect],Date()) AS DaysActive, Yr, ...