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, ...