Office中国论坛/Access中国论坛

标题: ADO搜索后,窗体的Checkbox一修改变ACCESS就死掉!,求解 [打印本页]

作者: 不是高手 时间: 2009-9-25 11:53
标题: ADO搜索后,窗体的Checkbox一修改变ACCESS就死掉!,求解
本帖最后由不是高手于 2009-9-25 12:58 编辑

Dim rst As ADODB.Recordset
Dim strAsk As String
Set rst = Me.Recordset
strAsk = InputBox("请输入供应商ID", "搜索")
If strAsk <> "" Then
      rst.MoveFirst
      rst.Find "Supplier Like '%" & strAsk & "%'"
      Me.Recordset.Find "Supplier Like '%" & strAsk & "%'"

      If rst.EOF Then
         MsgBox "未找到此供应商！", vbExclamation + vbOKOnly
      End If
End If

作者: 不是高手 时间: 2009-9-26 07:17
怀疑是ACCESS的问题,只要一动那个recordset就死掉,今天升级看看!

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)