Question

access select count提示 编译错误 缺少：case

Private Sub Command2_Click()
Dim x As String
SELECT COUNT([编号]) FROM 登记 WHERE [编号] Is Not Null

x = Count(编号)

Text0.Value = x
End Sub
在access中编写时总提示：编译错误 缺少：case。然后SELECT COUNT([编号]) FROM 登记 WHERE [编号] Is Not Null这段就变成红色得了。
我想要的效果是点下Command2时在文本框text0中显示“登记”表中，“编号”列中不为空的数量。
谁来帮我看看怎么写啊！
在这先谢谢大家了！！
小弟很菜，编写了个数据库，现在就差这一步就完成了，由于不是职业编程的所以也不想学的太多，请帮忙把这段完成了吧。

Answer 1

你的本意是在VBA中运或尘行一段SQL语句？
但是你这么写，它却以为你在使用SELECT CASE语句。

先看看教程里在VBA中是如何使用SQL语句的吧。

对补充问题的回复：
如果你在access中使用vba统计当前凳笑db中的数据，衫粗禅可以用下面的方法
Private Sub Command2_Click()
Text0.Value = Application.DCount("编号", "登记")
End Sub

Dcount本身就忽略Null值