求助：代码错在什么地方？

youchytan

我传了个03版的.那位给看看

youchytan

在保存按钮中有相关代码

kangking

估计是这句有问题了：strSQL = "select * from tblCureStep where Type ='" & Trim(txtID) & "'"
应该是下面的样子：
strSQL = "select * from tblCureStep where id ='" & Trim(txtID) & "'"

youchytan

谢谢.估计是它了

youchytan

是它.我糊了.再次谢谢.

Henry D. Sy

Private Sub cmdOK_Click()
    Dim strSQL As String
    Dim rst As ADODB.Recordset
    If IsNull(txtCureStep) Then
        MsgBox "治疗步骤没有填写！"
        txtCureStep.SetFocus
        Exit Sub
    End If
    If IsNull(cboType) Then
        MsgBox "类别必须选择！"
        cboType.SetFocus
        Exit Sub
    End If
    strSQL = "select * from tblCureStep where Type ='" & Trim(txtID) & "'"
    Set rst = New ADODB.Recordset
    rst.Open strSQL, CurrentProject.Connection, adOpenDynamic, adLockOptimistic
    With rst
        If Not .EOF Then
            ![CureStep] = txtCureStep
            ![Type] = cboType
            .Update
        End If
    End With
    rst.Close
    Set rst = Nothing
    '   Forms("frmCureStep")!subCureStep.Form.Requery
    DoCmd.Close acForm, Me.Name
End Sub