[5分]在本站上引用了一个通用查找，可是在录入查找信息时，只能一个一个字录入，期间发生鼠标指针经常重新定位

在你的Text14控件更改事件后再加入以下两行代码即可.

    Me.Text14.SetFocus
    Me.Text14.SelStart = Len(Nz(Text14, "0"))

Private Sub Text14_Change()
    Dim strWhere As String
    Dim ctl As Control
    Dim ctlname As String
    strWhere = Trim$(Me.Text14.Text)
    For Each ctl In Me.frmcj_list.Form.Controls
        If TypeOf ctl Is TextBox Then
            ctlname = ctlname & "[" & ctl.Name & "] & "
           Debug.Print ctlname
        End If
    Next
    ctlname = Left(ctlname, Len(ctlname) - 3)
    Debug.Print ctlname
    strWhere = "" & ctlname & "  like  '*" & strWhere & "*'"
    Debug.Print strWhere
    Me.frmcj_list.Form.Filter = strWhere
    '应用筛选
    Me.frmcj_list.Form.FilterOn = True
    Me.Text14.SetFocus
    Me.Text14.SelStart = Len(Nz(Text14, "0"))
End Sub