在此环境中不允许操作。

#3219 frm领料单: Sub btnAudit_Click()  在此环境中不允许操作。

rs.close  出错，删掉后全部正常。可以不加 rs.close 吗？

 Dim rst As adodb.Recordset
    Set rst = New adodb.Recordset
    
    Dim strSQL: strSQL = "SELECT * FROM 领料单 "
    rst.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic '
    rst.MoveFirst
          Do Until rst.EOF
           If rst("领料单ID") = Me.[领料单ID] Then
                rst("审核") = "审核已完成"
                MsgBox "审核已完成", vbInformation
                Exit Do
                End If
              rst.MoveNext
          Loop
    rst.Close