搜索事件代码不起作用

chinaesc

哪位大神帮看下。学着做成语字典。搜索单击事件，不起作用。看下哪错了。

tmtony

把出错代码贴 一下哦。这样方便别人快速看哦

chinaesc

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

搜索一个不存在的，那个msgbox都不弹出。什么原因

wzl8007

Me!sub.Form.Recordset = Me.Recordset 换一下
Me!sub.Form.RecordSource  = Me.RecordSource  

wzl8007

Me!sub.Form.Recordset = Me.Recordset换一下
Me!sub.Form.RecordSource  = Me.RecordSource  

chinaesc

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

还是不行

chinaesc

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

Henry D. Sy

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

chinaesc

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

OK,可以了，谢谢。