[求助]模糊查询和不在列表两个问题

lyyggb

请看附件的问题，谢谢

海狸先生

1、按钮事件Me.FilterOn = True

Me.Filter = "company like '" & text34 & "*' And name like '" & text37 & "*'"2、在另一贴中不是有网友给你很好的例子了吗？

sgrshh29

凑个热闹

第一个问题:

Me.Filter = "[Name] Like '*' & forms![contact]![text37] & '*' AND [Company] Like '*' & forms![contact]![text34] & '*'"

Me.FilterOn = True

第二个问题:

Private Sub 组合框_NotInList(NewData As String, Response As Integer)

Dim db As Database

Dim strSQL As String

strsql = "Insert Into 表名 (字段名) Values  & "(" & """" & NewData  & """" & ")"                                                   

    if MsgBox( "没有此内容,是否添加到字段列表中?", vbYesNO, "添加新内容")=vbYes Then

        Set db = CurrentDb

        db.Execute strSQL

        Response = acDataErrAdded

        Set db = Nothing

    Else

        Response=acDataErrDisPlay

    End If

End Sub

[此贴子已经被作者于2005-6-3 16:16:24编辑过]

lyyggb

问题一：我是想通过对company和name的模糊查询后，将查询结果在列表中显示出来

lyyggb

以下是引用sgrshh29在2005-6-3 16:16:00的发言：



凑个热闹

第一个问题:

Me.Filter = "[Name] Like '*' & forms![contact]![text37] & '*' AND [Company] Like '*' & forms![contact]![text34] & '*'"

Me.FilterOn = True

第二个问题:

Private Sub 组合框_NotInList(NewData As String, Response As Integer)

Dim db As Database

Dim strSQL As String

strsql = "Insert Into 表名 (字段名) Values  & "(" & """" & NewData  & """" & ")"                                                   

    if MsgBox( "没有此内容,是否添加到字段列表中?", vbYesNO, "添加新内容")=vbYes Then

        Set db = CurrentDb

        db.Execute strSQL

        Response = acDataErrAdded

        Set db = Nothing

    Else

        Response=acDataErrDisPlay

    End If

End Sub

问题二：按你的代码，改了相应的表名和字段名，但好像不行哦，按enter后没反应

海狸先生

列表中？可以把列表的行来源直接写成SELECT Contact.编号, Contact.Company FROM Contact WHERE company like text34 & '*' And name like text37 & '*'; 然后在按钮中写List16.Requery

lyyggb

问题二基本可以了，只是例如，我输入“广”字，广州光亚展览贸易有限公司，广州优一动画多媒体有限公司 都可以搜出来但我输入“优一”，就什么也找不到了。同样的，我输入“Messe”，可以找到Messe Frankfurt(HK) Ltd，但如果输入“Frankfurt”则找不到。也就是说模糊查询只能查找第一个字/字母/单词？？这是Access本身的缺陷还是有办法解决的？

海狸先生

SELECT Contact.编号, Contact.Company FROM Contact WHERE company like '*' & text34 & '*' And name like '*' & text37 & '*';

lyyggb

实在太好了，问题二解决，谢谢

lyyggb

又发现了一个问题，例如，有产品5 slide light和25 slide light，要找出所有5 slide light的报价。于是输入5 slide，但结果得到的是5 slide light和25 slide light都出来了，但我只想要5 slide light，可以解决问题吗？