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

youchytan

建有一个表tblCure：ID（文本型）、Cure（文本型）、Type（文本型），一个未绑定窗体用于对表中的数据进行修改。代码“Select * From tblCure where ID='" & txtID & "'"(txtID——窗体控件）用于数据源。不知道为何不能找到数据？各位给个提示？

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

youchytan

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

youchytan

谢谢.估计是它了

kangking

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

youchytan

在保存按钮中有相关代码

youchytan

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

youchytan

kangking

想看看，可是ACC2007看都不能看。
估计是联接方式有问题。

youchytan

谢了.