老牛哥 发表于：2020-09-26 21:27:43
想做一个窗体查询功能，在窗体上有个文本框，text0,输入名称，在在一张汇总表上查询是否这个名称已存在。语录去下
private sub command2_click()
select count(*) from 汇总表 where 名称=text0
end sub
为什么才写一句就出错，提示缺少表达式或缺少case
错在哪里？怎么解决？
本人小白，在自己摸索着，问题较弱，敬请谅解
select 在两个域中使用:
1,vba代码域
select case xxx
case 值1
... '当xxx的值为"值1"的vba代码
case 值2
... '当xxx的值为"值2"的vba代码
end select
2,SQL语法域
select count(*) from 汇总表 where ...
sub ...end sub是vba域
private sub command1_click()
dim strsql as string
strsql =select count (*) from 人员信息 where 姓名=' "& me.text0 &" '
debug. print strsql
目的是查询人员信息表中有没有和文本框中名字一样的
但一直提示缺少表达式，要么在select语录两头加上双引号，就把整个语句输出来了。
private sub command1_click()
dim strsql as string
strsql =select count (*) from 人员信息 where 姓名=' "& me.text0 &" '
debug. print strsql
目的是查询人员信息表中有没有和文本框中名字一样的
但一直提示缺少表达式，要么在select语录两头加上双引号，就把整个语句输出来了。
使用dcount 函数
Access DCount函数获取指定记录数示例
http://www.accessoft.com/article-show.asp?id=7712
Private Sub Command2_Click()
Dim sql
sql = "select count(*) from 汇总表 where 名称='" & Text0 & "'" '根据Text0的值生成查询语法
CurrentDb.QueryDefs("汇总表_CX").sql = sql '动态修改查询[汇总表_CX]的查询语法
DoCmd.OpenQuery "汇总表_CX" '打开查询
End Sub
语句出现了错误3265，这个集合中找不到此项目是怎么回事？
总记录：7篇 页次：1/1 9 1 :
