Dcount Help

[sysop470]

Hi.

I have a table which conatains DATE of Entry and Tick Box. I need to DCOUNT those tick boxes which are yes for the month of January from the field date of entry.

Can someone help me please.
Thanks a lot

 

[RuralGuy]

For *any* year?

 

[sysop470]

For *any* year?

For current year.

thanks

 

[RuralGuy]

Try something like:

   Dim MyCount As Long
   MyCount = DCount("*", "[YourTableName]", _
         "([Tick Box] = True) AND " & _
         "(Year([DATE of Entry]) = Year(Date())) AND " & _
         "(Month([DATE of Entry]) = 1)")

...using your table and field names of course.

 

[sysop470]

Try something like:

   Dim MyCount As Long
   MyCount = DCount("*", "[YourTableName]", _
         "([Tick Box] = True) AND " & _
         "(Year([DATE of Entry]) = Year(Date())) AND " & _
         "(Month([DATE of Entry]) = 1)")

...using your table and field names of course.

You are great.. It works perfectly.
Thanks a lot my friend
Keep it up!!!!!!!!!

 

[RuralGuy]

Glad I could help.

 

[sysop470]

Glad I could help.

Thanks. With your help i manage to do it. But now i want to be filtered by COUNTER, becuase i want to dcount for specific user. I have add the COUNTER but its not working. Any help pls?


Dim MyCount As Long
MyCount = DCount("*", "[YourTableName]", _
"([Tick Box] = True) AND " & _
"(Year([DATE of Entry]) = Year(Date())) AND " & _
"(Month([DATE of Entry]) = 1) and " & _
" [Counter] = Forms![Personal Information]![Counter] ")

 

[RuralGuy]

Is [Counter] a Numeric or Text field?

 

[sysop470]

Is [Counter] a Numeric or Text field?

Numeric my friend.

 

[RuralGuy]

Try:

   Dim MyCount As Long
   MyCount = DCount("*", "[YourTableName]", _
         "([Tick Box] = True) AND " & _
         "(Year([DATE of Entry]) = Year(Date())) AND " & _
         "(Month([DATE of Entry]) = 1 AND " & _
         "([Counter] = " & Me.Counter & ")")

 

[sysop470]

Try:

   Dim MyCount As Long
   MyCount = DCount("*", "[YourTableName]", _
         "([Tick Box] = True) AND " & _
         "(Year([DATE of Entry]) = Year(Date())) AND " & _
         "(Month([DATE of Entry]) = 1 AND " & _
         "([Counter] = " & Me.Counter & ")")

Thanks a lot my friend..

 

[RuralGuy]

You are welcome.