Access交流中心

北京 | 上海 | 天津 | 重庆 | 广州 | 深圳 | 珠海 | 汕头 | 佛山 | 中山 | 东莞 | 南京 | 苏州 | 无锡 | 常州 | 南通 | 扬州 | 徐州 | 杭州 | 温州 | 宁波 | 台州 | 福州 | 厦门 | 泉州 | 龙岩 | 合肥 | 芜湖 | 成都 | 遂宁 | 长沙 | 株洲 | 湘潭 | 武汉 | 南昌 | 济南 | 青岛 | 烟台 | 潍坊 | 淄博 | 济宁 | 太原 | 郑州 | 石家庄 | 保定 | 唐山 | 西安 | 大连 | 沈阳 | 长春 | 昆明 | 兰州 | 哈尔滨 | 佳木斯 | 南宁 | 桂林 | 海口 | 贵阳 | 西宁 | 乌鲁木齐 | 包头 |

查询部分匹配的代码

羊角  发表于:2010-10-27 14:21:43  
复制

原来的代码是这样的

Private Sub Command6_Click()
Dim s
If Len([名称]) > 0 Then
s = "名称='" & [名称] & "'"
DoCmd.OpenForm "数据浏览", , , s
End If

End Sub

只当输入的名称完全一致是,才能查询到想要的数据,

我想改成当名称前两个字符合时,就能查询到所有以这两字开头的数据信息,请问代码要怎样改?多谢!

 

Top
wang decheng 发表于:2010-10-27 15:06:13

Private Sub Command6_Click()
Dim s
If Len([名称]) > 0 Then
s = "名称='*" & [名称] & "*'"
DoCmd.OpenForm "数据浏览", , , s
End If

End Sub

*******************

改为以上



羊角 发表于:2010-10-27 19:00:06
wang decheng,改成你说的那样,那什么都查询不到了,连完全匹配的都查询不到

wang decheng 发表于:2010-10-27 20:59:43

最好把例子贴上来

方括号处应该是 me.名称 才合理



羊角 发表于:2010-10-27 21:49:23

附件如下,帮忙看看,谢了

点击下载此附件

wang decheng 发表于:2010-10-28 11:19:35

原来如此!如果你改成只匹配部分文字,那符合条件的记录就多了;而你即将打开的只是一个单一窗体,你让他如何运行?比如匹配“头孢...”的就有2条记录,单一窗体无法显示。

建议还是使用窗体查询,符合人的使用习惯。

见附件中“新查询”

点击下载此附件

羊角 发表于:2010-10-28 11:29:29

哦,谢了,我看看,马上要出去3天,回来再细看,如果有问题再问你哈



羊角 发表于:2010-11-01 10:23:44

我还是想用我的那种查询方式,因为我每个记录中都还有一个结构式的图片,不能用你的新查询,

我想问一下,我如何实现,当有多个匹配时,首先打开第一个匹配的,当我点击下一条记录的时候,出现下一个匹配的

请问这可以实现吗?



羊角 发表于:2010-11-03 18:52:10
有没有哪位好心人帮帮忙,这种查询能够实现吗?

总记录:8篇  页次:1/1 9 1 :