ACCESS中怎样用VB写查询按钮的代码,实现查询功能
发布网友
发布时间：2022-04-29 18:27
共1个回答
热心网友
时间：2022-06-19 01:35
比如
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就可以了追问按照你的方法写的代码，总是提示说控件没有设置焦点，可是我已经设置焦点了啊 很郁闷，这两天一直在纠结这个问题啊 能不能给个联系方式
追答焦点是在属性里设置的啊，属性里找找，应该能找到
