Office中国论坛/Access中国论坛

标题: 求助老师~把数据库转为SQL2000 后代码出错 [打印本页]

作者: kpsimon 时间: 2012-6-5 02:16
标题: 求助老师~把数据库转为SQL2000 后代码出错
我把ACCESS数据库,转为SQL2000后就出现以下错误了!

[attach]49301[/attach]
Private Sub 列表36_AfterUpdate()
Dim Rst As Recordset
Set Rst = CurrentDb().OpenRecordset("tabRight")
Rst.Index = "PrimaryKey"  '<----------------------这里报错,说:行运时错误'3251':这种对象类型不支持该操作.请问老师用什么代码替换呢
Rst.Seek "=", Me.列表38, Me.列表36
If Rst.NoMatch Then
      Me.复选53 = False
      Me.复选56 = False
Else
      If Rst![Right] = 1 Then
         Me.复选53 = True
         Me.复选56 = False
      Else
         If Rst![Right] = 2 Then
            Me.复选53 = False
            Me.复选56 = True
         Else
            Me.复选53 = False
            Me.复选56 = False
         End If
      End If
End If
End Sub

在些先谢过...

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)