dnf冰霜灼眼:实时错误‘3426’该操作被关联对象取消 怎么解决?

来源:百度文库 编辑:神马品牌网 时间:2024/05/01 17:58:37
Private Sub Command1_Click()
If Command1.Caption = "添 加" Then
Command1.Caption = "保 存"
Data1.Recordset.AddNew
Text1.Locked = False
Text2.Locked = False
Text3.Locked = False
Text4.Locked = False
Text5.Locked = False
Text6.Locked = False
Text7.Locked = False
Text8.Locked = False
Text9.Locked = False
Text10.Locked = False
Text1.SetFocus

Command2.Enabled = False
Command3.Enabled = False
Command4.Enabled = False
Exit Sub
Else

Text1.Locked = True
Text2.Locked = True
Text3.Locked = True
Text4.Locked = True
Text5.Locked = True
Text6.Locked = True
Text7.Locked = True
Text8.Locked = True
Text9.Locked = True
Text10.Locked = True
Data1.Recordset.Update
Data1.Recordset.MoveLast
Command1.Caption = "添 加"

Data1.Refresh
Command2.Enabled = True
Command3.Enabled = True
Command4.Enabled = True
End If
End Sub
错误指向“Data1.Recordset.Update”
请问怎么解决呢?