Re: How to Find the Date of Last Change in Inventory

I would like to get the results in a query. That way I can add back
some data from the SLOBInventorytbl. If I can't get the results in a
query, I'd like them pasted to a table, with the old data being thrown
out first. I do that type of thing a lot, but with queries and macros,
not VBA---eash!

The ultimate idea is to get it into a report---all of which I know how
to do.

By the way, just to see what would happen, I threw your code in a
command button and got many red lines, and compile errors. It doesn't
seem to like the question mark in:

Set rstItems = qdf.OpenRecordset(dbOpenSnapsh­?ot,

But maybe it's another issue.
It also seems to have line continuation problems.

These individual lines turn red:

Set rstItems = qdf.OpenRecordset(dbOpenSnapsh­?ot,
dbReadOnly)

("SLOBInv2StyColDatUntqry")

(dbOpenSnapsh?ot, dbReadOnly)

If rstInventory
!OnHand =
intCount Then
_____________________________

Is it possible to have this as a function and to introduce it into a
query? Or is it that we have to let the code run and place data into a
table. I do not wish to have the data only appear in a report. The
data should be available for me to see in a query or table.

Thanks so much,

Matt

.