怎么解决这个问题?

[Generics]

我有个Form里有一个CheckBox, 这个值是绑定表里的一个Column的, 问题是这个值用户不能直接修改, 这个值需要根据其他的值的改变而改变, 现在问题来了, 下面是具体CODE,

Private Sub cboLeak_Class_Code_Change()
On Error GoTo Err_cboLeak_Class_Code_Change

    UpdateIsLeak
    
Exit_cboLeak_Class_Code_Change:
    Exit Sub
    
Err_cboLeak_Class_Code_Change:
    Dim ErrMsg As String, ErrTitle As String
    ErrMsg = "Error # " & Err.Number & " occurred in the cboLeak_Class_Code_Change event." _
              & "  The error is: " & Err.Description
    ErrTitle = "Application Error"
    MsgBox ErrMsg, vbCritical + vbOKOnly, ErrTitle
    Resume Exit_cboLeak_Class_Code_Change

End Sub

Private Sub UpdateIsLeak()
    If Me.Dirty Then
        'Update Is_Leak
        
        Me.RecordsetClone.FindFirst "[Leak_Id] = '" & Me.txtLeak_Id & "'"
        Me.Bookmark = Me.RecordsetClone.Bookmark
        If IsNull(Me!cboLeak_Class_Code.Value) Or UCase(Me!cboLeak_Class_Code.Value) = "N" _
            Or IsNull(Me!cboFclty_Type_Code.Value) Or UCase(Me!cboFclty_Type_Code.Value) = "S" _
            Or IsNull(Me!cboAbove_Below_Grd_Flag.Value) Or UCase(Me!cboAbove_Below_Grd_Flag.Value) = "B" _
            Or IsNull(Me.RecordsetClone.Date_Leak_Repair) _
            Or IsNull(Me.RecordsetClone.Leak_Cause_Code) Or UCase(Me.RecordsetClone.Leak_Cause_Code) = "NT" Or UCase(Me.RecordsetClone.Leak_Cause_Code) = "HC" Then
            chkIs_Leak_Flag.Value = 0
        Else
            chkIs_Leak_Flag.Value = 1
        End If
    End If
End Sub

代码每次运行到
chkIs_Leak_Flag.Value = 0
或者
chkIs_Leak_Flag.Value = 1

就出错,

Error # 3020 occurred in the cboLeak_Class_Code_Change event. The error is: Update or CancelUpdate without AddNew or Edit.

怎么解决这个问题?

[ACMAIN_CHM]

你的窗体是如何绑定的？

建议上传一个测试用文件。

可以上传到 http://www.access911.net/csdn

[Q724481678Q]

记录集不是添加或者编辑呀

[wwwwb]

1、用UPDATE SQL语句替换；
2、打开记录集，
RS.EDIT
RS("chkIs_Leak_Flag")=0
RS.UPDATE

[hahaxiaoa]

Private Sub UpdateIsLeak()
If Me.Dirty Then
'Update Is_Leak

Me.RecordsetClone.FindFirst "[Leak_Id] = '" & Me.txtLeak_Id & "'"
Me.Bookmark = Me.RecordsetClone.Bookmark
If IsNull(Me!cboLeak_Class_Code.Value) Or UCase(Me!cboLeak_Class_Code.Value) = "N" _
Or IsNull(Me!cboFclty_Type_Code.Value) Or UCase(Me!cboFclty_Type_Code.Value) = "S" _
Or IsNull(Me!cboAbove_Below_Grd_Flag.Value) Or UCase(Me!cboAbove_Below_Grd_Flag.Value) = "B" _
Or IsNull(Me.RecordsetClone.Date_Leak_Repair) _
Or IsNull(Me.RecordsetClone.Leak_Cause_Code) Or UCase(Me.RecordsetClone.Leak_Cause_Code) = "NT" Or UCase(Me.RecordsetClone.Leak_Cause_Code) = "HC" Then
currentproject.connection.execute "update 表名 set chkIs_Leak_Flag.Value = 0 where [Leak_Id] = '" & Me.txtLeak_Id & "'"
Else
同上修改
End If
End If
End Sub

[skyskywind]

[Quote=引用 3 楼 wwwwb 的回复:]
1、用UPDATE SQL语句替换；
2、打开记录集，
RS.EDIT
RS("chkIs_Leak_Flag")=0
RS.UPDATE
[/Quote]

同上！~~

[Generics]

谢谢大家, 问题已解决. 笨办法, 用UPDATE SQL语句.