[求助]查询的记录数

无情

我想在VBA里知道一个查询有多少条记录？应该怎么写？我的写法什么地方不对？

xx = "SELECT Count(*) AS 计数 FROM 材料类别 WHERE ((材料类别.钢材代码 Like 'Q235 * ') AND (材料类别.钢材名称 Like ' * 板 * ')) "

tz-chf

写法不对，即使得到也是一个记录集。

用dcount

无情

那怎么写呢？能再详细指点下吗？

xx = DCount("材料ID", "材料类别", [材料类别].[钢材代码] = "Q235*" And [材料类别].[钢材名称] = "*板*")

上述写法也不对。

sgrshh29

试试这样: xx = DCount("材料ID", "材料类别", "钢材代码= 'Q235*' And 钢材名称= '*板*'")

tz-chf

不要=，用like

无情

在窗体的查询VBA事件内。

问题有二个：

1.查询时，昨天还好好的，能用模糊查询，今天怎么回事，IF语句失误了，怎么出错了？

If Not IsNull(Me.钢材代码) Then strWhere = strWhere & "([钢材代码] like '*" & Me.钢材代码 & "*') AND "

2. 根据窗体内容，判断有无该条记录，DCount到底怎么写？（在Private Sub cmnewkind_Click()事件中）

我干脆把文件发上来，大家帮我看看，谢谢

hi-wzj

xx = DCount("*", "材料类别",[钢材代码] like "Q235*" And [钢材名称] like "*板*")

hi-wzj

xx = DCount("*", "材料类别", "[钢材代码]= '" & Me.钢材代码 & "' And [钢材名称]= '" & Me.钢材名称 & "' And [规格]='" & Me.规格 & "'")

hi-wzj

未考虑  Me.钢材代码=""  的情况，增加这个判断即可。

无情

哦，谢谢，我先试试这个问题

还有一个问题，为什么IF语句会失效？昨天可以用，有效，今天没有做任何改动，就出错了？