求助 修改操作无法执行(vb+access)
执行该操作时,显示无法修改自己看了下发现是txtSql出了问题,我把AND 考勤编号=' " & Trim(txtCNum) & " '"删除后,可以保存数据了,但是由于该表我的主键是编号和考勤编号,其中编号是外键,我必需得让修改条件是两个同时满足,请高手帮忙解决下。到底问题在哪,要怎么改?
Private Sub cmdModify_Click()
On Error GoTo DealError
If Trim(txtAttend) = "" Then
MsgBox "出勤不能为空!", vbCritical, "员工信息管理"
txtAttend.SetFocus
Else
txtSQL = "update 考勤绩效 set 出勤 ='" & Trim(txtAttend) & "',旷工='" & Trim(txtAbsence) & "',请假= '" & Trim(txtAsk) & "' , 加班='" & Trim(txtOvertime) & "',工分='" & Trim(txtScore) & "',销售额='" & Trim(txtSell) & "'" & " where 编号='" & Trim(txtNum) & "' AND 考勤编号=' " & Trim(txtCNum) & " '"
objCn.Execute txtSQL, isupdated
If isupdated > 0 Then
MsgBox "信息已被成功修改!", vbInformation, "修改信息"
Else
MsgBox "无法修改!", vbCritical, "修改信息"
End If
End If
Exit Sub
DealError:
msg = "程序执行出错,错误信息如下:" & vbCrLf & Err.Description
ShowError msg
End Sub