dcount函数能设定两个条件吗

ycxchen

我想在录入住宿数据时，当某宾馆中的某个区域超过额定的人数时即给予提示，例如，“明星宾馆”中的“A”片区域入宿人数超过2人即提示，但运行时提示“类型不匹配”。在“DCount("id", "入住表", "片号=" & Me.片号 And "宾馆名称=" & Me.宾馆名称)”语句中，“ID”、“片号”、“宾馆名称”三字段均是数字型，为何会出现错误提示？
如果将“DCount("id", "入住表", "片号=" & Me.片号 And "宾馆名称=" & Me.宾馆名称)”语句中的“ And "宾馆名称=" & Me.宾馆名称”去掉就不会有错误提示，是不是用于设定两个条件的AND语句有问题？盼高手指教。

t小宝

And 也是表达式的一部分，应该这样：
DCount("id", "入住表", "片号=" & Me.片号 " And 宾馆名称=" & Me.宾馆名称)

ycxchen

谢谢小宝版主指教！按你的办法，仍不能正确运行，如何修改？

t小宝

少了一个 & ，再试试：
DCount("id", "入住表", "片号=" & Me.片号 & " And 宾馆名称=" & Me.宾馆名称)

ycxchen

行了，小宝版主就是版主，高水平！还想请教一个问题，下面的清空代码为何不能执行？
Private Sub 片号_BeforeUpdate(Cancel As Integer)
Dim Jylou As Integer
Dim Xianlang As Integer
Jylou = DCount("id", "入住表", "片号=" & Me.片号 & " And 宾馆名称=" & Me.宾馆名称)

Xianlang = DLookup("名额", "名额表", "区号=" & Me.片号 & " And 宾馆名称=" & Me.宾馆名称)

If Jylou <= Xianlang Then
MsgBox "该区号还没有住满人！", vbInformation + vbOKOnly, Me.Caption

Else
MsgBox "该区号已经住满人，请选择别的区号！", vbInformation + vbOKOnly, Me.Caption
Cancel = True
Me.片号 = ""   为何此句不能运行？

End If

t小宝

Me.片号 = ""   为何此句不能运行？

""是空字符串，该字段是数字类型，不能赋予字符串类型的值，但可以使它等于空值：Me.片号 = Null

ycxchen

十分多谢小宝版主！其实，我也试过6楼的办法了，是不行的，如何办？