Set MyRecordSet = Dbs.OpenRecordset("TBL_LSH", dbOpenDynase)

wktt6833

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 后提示红色部分出错，请能人解决。