MS Access VBA-自定义列是列表框(使用来自表的另一列中的值)

Ace16150s

您好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

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

其他

DateDiff()在SQL中使用该函数。
DateDiff('d')返回天数的差额。

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

本文收集自互联网,转载请注明来源。

如有侵权,请联系[email protected] 删除。

编辑于
0

我来说两句

0条评论
登录后参与评论

相关文章

来自分类Dev

Int()函数MS Access VBA

来自分类Dev

MS Access中VBA代码的继承

来自分类Dev

MS Access VBA IF()

来自分类Dev

MS Access 2013:通过VBA使用MS Word的语法检查

来自分类Dev

MS Access使用VBA从访问文件中删除模块

来自分类Dev

使用MS Access在Excel VBA中运行代码

来自分类Dev

带VBA的MS Access链接表

来自分类Dev

MS Access VBA与AbsolutePosition一起使用

来自分类Dev

如何使用VBA在MS Access中添加新记录?

来自分类Dev

MS-Access:使用vba移至NavigationControl

来自分类Dev

如何使用Access VBA定义要从Excel导出到MS Access表的列数?

来自分类Dev

使用MS Access 2003使用Outlook-VBA

来自分类Dev

如何在MS Access中使用VBA在列表框中添加新项目

来自分类Dev

使用MS Access在Excel VBA中运行代码

来自分类Dev

MS Access VBA显示列表框计数到文本框

来自分类Dev

在MS Access VBA编辑器中查找函数定义

来自分类Dev

使用VBA显示MS Access报告

来自分类Dev

MS ACCESS vba-错误

来自分类Dev

MS Access VBA;从按日期筛选的表中选择记录

来自分类Dev

MS Access,VBA-将交叉表导出到Excel

来自分类Dev

如何基于MS Access中表中另一列的输入来限制“列表框”列中的项目?

来自分类Dev

MS Access VBA 运行查询

来自分类Dev

MS Access VBA 查询多个表

来自分类Dev

MS Access VBA - 使用日期过滤表单

来自分类Dev

MS Access 使用 VBA 对表的列进行排序

来自分类Dev

DLookup:MS Access VBA 中的查询与表?

来自分类Dev

MS Access VBA 跳过插入表之一

来自分类Dev

MS Access 库模板 - VBA 中的参考类别值

来自分类Dev

在 MS Access 中使用 VBA 查询转置表