Inventory Query in Form

[Marvinator]

I've created a database of equipment we keep in a vault. Every so often the boss wants a count of items by model. I would like to create a button on the switchboard that can bring up this count for him.



First I have created a query which will count by model. The SQL of that query is here:
SELECT Count(*) AS Expr1
FROM [Count Query]
WHERE ((([County Query].[Model]) Like "nnn"));
(nnn is the model number I will want and will have a diff query for each model.)

Now, I'm trying to get these into a form for the boss to simply click. When I do, I get the #Name? error. What am I doing wrong here?

This is my first foray into Counts and such. Anyone with a better way of handling this, please let me know.

[ItsMe]

What is it you are trying to display in your form, the count? Perhaps a domain function like DCount() is the solution.

[Marvinator]

Dcount works much better, but I'm havng problems in coding it right. (Sorry, really a newbie at this...)
I need to count the records by both Model and Date In (where Date In is not Null.)

[ItsMe]

You can use the query builder to help you with your DCount. Create a temporary query to help generate the Where criteria. For instance, typing nnn in the criteria for the Model field gives you
WHERE ((([County Query].[Model]) Like "nnn"));

If this was satisfactory, you could extract the needed syntax and place it in your Dcount. Start with a dcount code snippet
Dim intCount As Integer
intCount = DCount("", "", "")

Then you can paste your syntax
intCount = DCount("", "", "((([County Query].[Model]) Like ""nnn""))")

Note that I changed
"nnn"

to
""nnn""

Preserving quotes in a VBA string can be chalanging. The difference is adding another double quote so VBA does not think you are closing your literal text.

Also, be sure to remove the semicolon that closes the SQL statement within the original query object.
));

becomes
))