标题: Set MyRecordSet = Dbs.OpenRecordset("TBL_LSH", dbOpenDynase) [打印本页] 作者: wktt6833 时间: 2008-2-18 15:14 标题: Set MyRecordSet = Dbs.OpenRecordset("TBL_LSH", dbOpenDynase) 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 后提示红色部分出错，请能人解决。