|
Public Sub 更新流水号(TableName As String)
Dim Dbs As Database
Dim MyRecordSet As Recordset
Dim fld As Field
Dim MyLookup As Date
Set Dbs = CurrentDb
Set MyRecordSet = Dbs.OpenRecordset("TBL_LSH", dbOpenDynase)
Set fld = MyRecordSet.Fields("流水号名称")
MyLookup = DLookup("最后更新日期", "TBL_LSH", "流水号名称=" & TableName) '取得『流水号记录』资料表中读取前一笔记录的『最后更新日期』栏位值
If MyLookup = Date Then '若今天已经加入新纪录
MyRecordSet.FindFirst ("流水号名称=" & TableName)
MyRecordSet.Edit
MyRecordSet.Fields("记录值") = MyRecordSet.Fields("记录值") + 1
MyRecordSet.Update
ElseIf MyLookup < Date Then '如果换成隔天
MyRecordSet.FindFirst ("流水号名称=" & TableName)
MyRecordSet.Edit '进入编辑状态
MyRecordSet.Fields("最后更新日期") = Date '将旧的最后更新日期改为今天
MyRecordSet.Fields("记录值") = 1 '将『记录值』栏位指定为 1
MyRecordSet.Update '将资料更新
End If
End Sub
上面函数中,当后台数据库为accessj时可用,但升迁为SQL SERVER 后提示红色部分出错,请能人解决。 |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|