Question

ACCESS中怎样用VB写查询按钮的代码，实现查询功能

请大师们帮我看下：在Access中，选择组合框中的值，无论是选择一个还是多个，点击查询按钮都能查结果来，就是这个查询支持模糊查询、联合查询等等，急求帮助啊 在线等！！！

Answer 1

先用文本做查询语句，再执行
比如
dim strA as string
dim strsql as string
strsql="select * from 表1"
strA=“”
if text1.text<>"" then
strA=strA & " and 列名1 like %text1.text%"
end if
if text2.text<>"" then
strA=strA & " and 列名2 like %text2.text%"
end if
........

if strA<>"" then
strA=right(strA,len(strA)-4)

strsql=strsql & "where" & strA

end if
然后执行strsql就可以了

追问

按照你的方法写的代码，总是提示说控件没有设置焦点，可是我已经设置焦点了啊 很郁闷，这两天一直在纠结这个问题啊 能不能给个联系方式

追答

焦点是在属性里设置的啊，属性里找找，应该能找到