各位大佬，本人菜鸟一枚，想要自动更新数据库的入司年限，入司年限需要根据数据库中的入司时间来计算，望大佬们指导一下

Private Sub Command1_Click()
If IsDate(Text1.Text) = False Then
    MsgBox "输入的数据不是日期数据！"
    Exit Sub
End If
Dim RSNX As String, RSSJ As Date
RSSJ = CDate(Text1.Text)    '如果是数据表中的数据，连接数据库、数据表读取入司时间到变量 RSSJ 即可
RSNX = Format((Year(Date) - Year(RSSJ) + (Month(Date) - Month(RSSJ)) / 12 + (Day(Date) - Day(RSSJ)) / 365), "0.00") & "年"
Text2.Text = RSNX    '如果要存储到入司年限字段，存储 RSNX 变量到 入司年限 字段就可以，不需要再啰嗦了吧。
End Sub

很简单的。

一句sql就可以解决的：SELECT *,datediff("d",入司时间,now)/365 & '年' AS 入司年限 FROM 基础档案表

“DateDiff("d",入司时间,Date)/365 & "年"” 与 “Format((Year(Date) - Year(RSSJ) + (Month(Date) - Month(RSSJ)) / 12 + (Day(Date) - Day(RSSJ)) / 365), "0.00") & "年"” 好像3楼 wmf2014 的更简单一点。

根据楼主的要求，是不是应该这样：

Call SJK(cnn)    '调用数据库连接过程，这个过程略
Rs.Open "Select * Froim 基础档案表", cnn, 3, 2   '打开记录集
    Do While Not Rs.EOF   '循环整个数据表的记录
        Rs!入司年限 = Format((DateDiff("d", Rs!入司时间, Date) / 365), "0.00") & "年"    '设置 入司年限 的值
        Rs.Update    '更新记录
    Rs.MoveNext   '指针指向下一条记录
    Loop   '当 Rs.EOF = True 时退出循环
Rs.Close
cnn.Close

cnn 与 Rs 的声明就省略了，这样就修改了整个数据表的 入司年限 的所有记录，使其与 入司时间 相对应。

[此贴子已经被作者于2018-12-23 11:22编辑过]

感谢感谢，根据提供的代码测试成功

非常感谢，根据提供的代码结合3楼 wmf2014的，测试完美通过