If the field Purpose is not a text field try:
DCount("[BuildingID]","tblARoom"," [Purpose]=1")
[i.e. remove the single quotes from around the 1].
For the second line the check value of [Building ID] appears to be missing, try something like:
=DCount("[BuildingID]","tblARoom","[BuildingID]=2...