Counting a date field in a table

[Gee]

Hi Folks,
I have a small database that contains test dates. We can only sit 9
people per test. I need to count the dates that are the same and NOT go
over 9.

I read MSAcess help on the DCount function and on the Count function,
but I am still lost. It seems DCount will only work with VBA, and Count
is supposed to work in a macro.

I don't know VBA, so I can't use it for this purpose. As always, this
needs to me done yesterday.

I need a way for a message box to pop up when the data entry person
enters a date that is already in the table 9 times, that way they will
pick another test date.

I can have the data entry person enter a date in a query and see how
many records there are with that date, but the problem is that there
are 5 or 6 data entry people that might use this database and the boss
doesn't have time to "train" all of them.

Any help will be greatly appreciated.

Thanks for your time and consideration!

BabaRomBios :-)

[Rick Brandt]

Gee wrote:

Hi Folks,
I have a small database that contains test dates. We can only sit 9
people per test. I need to count the dates that are the same and NOT
go over 9.

I read MSAcess help on the DCount function and on the Count function,
but I am still lost. It seems DCount will only work with VBA, and
Count is supposed to work in a macro.

I don't know VBA, so I can't use it for this purpose. As always, this
needs to me done yesterday.

I need a way for a message box to pop up when the data entry person
enters a date that is already in the table 9 times, that way they will
pick another test date.

I can have the data entry person enter a date in a query and see how
many records there are with that date, but the problem is that there
are 5 or 6 data entry people that might use this database and the boss
doesn't have time to "train" all of them.

Any help will be greatly appreciated.

Thanks for your time and consideration!

BabaRomBios :-)

Find the BeforeUpdate event in the property sheet for the Control on the form
where the date will be entered. From the drop-list of choices enter "[Event
Procedure]" and then press the build button [...] to the right of the event
property. This will take you to the VBA window where you need to enter your
code...

If DCount("*","TableName", "DateFieldName = #" & Me.DateControlName & "#")=9
Then
MsgBox "Date Filled. Choose Another"
Cancel = True
End If

This assumes that all date entries have no time component (actually midnight) in
them.

--
I don't check the Email account attached
to this message. Send instead to...
RBrandt at Hunter dot com