Office中国论坛/Access中国论坛

标题: 搜索事件代码不起作用 [打印本页]

作者: chinaesc 时间: 2016-8-20 21:33
标题: 搜索事件代码不起作用
哪位大神帮看下。学着做成语字典。搜索单击事件，不起作用。看下哪错了。

作者: tmtony 时间: 2016-8-20 21:41
把出错代码贴一下哦。这样方便别人快速看哦

作者: chinaesc 时间: 2016-8-20 21:52

Private Sub Image14_Click()
If Nz(Me.Text12) <> "" Then
      If IsNull(DLookup("cm", "main", "cm like '*" & Me.Text12 & "*'")) Then
            MsgBox "没有包含有" & Me.Text12 & "的成语"
            Me.Text12 = ""
            Exit Sub
         Else
               Me.RecordSource = "select * from main where CM LIKE '*" & Me.Text12 & "*'"
      End If
Else
Me.RecordSource = "main" '如果TEXT12为空

End If
Me.Text12 = ""
Set Me!sub.Form.Recordset = Me.Recordset
Me.Requery
Me!sub.SetFocus
Me.sub.Form.CM.SelLength = 0
End Sub

作者: chinaesc 时间: 2016-8-20 21:53
搜索一个不存在的，那个msgbox都不弹出。什么原因

作者: wzl8007 时间: 2016-8-21 09:10
Me!sub.Form.Recordset = Me.Recordset 换一下
Me!sub.Form.RecordSource = Me.RecordSource

作者: wzl8007 时间: 2016-8-21 09:11
Me!sub.Form.Recordset = Me.Recordset换一下
Me!sub.Form.RecordSource = Me.RecordSource

作者: chinaesc 时间: 2016-8-21 17:37

wzl8007 发表于 2016-8-21 09:11
Me!sub.Form.Recordset = Me.Recordset换一下
Me!sub.Form.RecordSource = Me.RecordSource

还是不行

作者: chinaesc 时间: 2016-8-22 21:21
1、在代码最前面加上 Me.sub.SetFocus 那个文本框的搜索就启作用了。搞不清为什么。
2、程序设置的主、子窗体默认数据源为main,这里main如何改为select的语句的数据源后，只将主窗体的数据指针赋予子窗体就可以吗？它们就是一个数据源吗？

作者: Henry D. Sy 时间: 2016-8-23 11:51
本帖最后由 Henry D. Sy 于 2016-8-23 11:55 编辑

移动一下焦点就可以。
在搜索之前，先更新一下text12，因为你那个搜索是图片，而不是按钮，图片没有焦点，
所以当你按下搜索时，焦点还在text12，也就是还没更新，值仍然为空。

作者: chinaesc 时间: 2016-8-26 16:22

Henry D. Sy 发表于 2016-8-23 11:51
移动一下焦点就可以。
在搜索之前，先更新一下text12，因为你那个搜索是图片，而不是按钮，图片没有焦点， ...

OK,可以了，谢谢。

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