What is missed in this 'Dcount'? please

[clebergyn]

DCount("[codigo]", "locaçao", "[codigo]= "& forms![painel]![codigo] & " And [dtLocação] <= #" & Date & "# And [DtFim] >= #" & Date & "#")

What is missed in this 'Dcount'? how to do a 'dcount' so using the date "date ()" ? can I use the carctere ">="? please

I already used a variable d1="*" & date () &"*", and also it did not give right, when it compiles, the dates do not produce / look the certain result

this 'dcount' above, when he does not give mistake, does not he look for the correct date, because? is it because of the character '>'?
how to do?

[John_G]

Hi -

The only thing I can think of is that your system date format is not mm/dd/yyyy. MS Access insists on this format in things like DCount and other comparisons. Try changing Date to Format(date,"mm/dd/yyyy"):

DCount("[codigo]", "locaçao", "[codigo]= "& forms![painel]![codigo] & " And [dtLocação] <= #" & Format(date,"mm/dd/yyyy") & "# And [DtFim] >= #" & Format(date,"mm/dd/yyyy") & "#")

to for the date to the format MS Access expects. Beyond that, I don't see anything wrong with the DCount.

HTH

John

[orange]

I agree with John -- there doesn't appear to anything in error syntax-wise.

Here is a sample Dcount with a date variable from M$oft

Public Function OrdersCount(ByVal strCountry As String, _  
                                      ByVal dteShipDate As Date) As Integer      
  OrdersCount = DCount("[ShippedDate]", "Orders", _    
                       "[ShipCountry] = '" & strCountry & _    
                      "' AND [ShippedDate] > #" & dteShipDate & "#")
 End Function 

[clebergyn]

it would like that you were trying his examples, since it does not give right the result, I do not know if it is because of the date ' date () ' or because of the characters '>' or '<', I tried for 'betwen', I cannot do them to myself, briefly, it did not give right. if someone knows, and to test, being correct, I would thank

[orange]

Post your data base and someone will test.

[clebergyn]

I sent in annexe

[orange]

Sub testDCount()
Dim intx As Integer
intx = DCount("*", "locaçao", " [dtLocação] <= Date()  And   Date() <=  [dtfim] ")
End Sub

I created this routine (subProcedure) to test some of the values and attempts you have in
your module.

Function c1()

'd1 = "'#'" & Date & "'#'"
'MsgBox d1
'c1 = DCount("[codigo]", "locaçao", "[dtLocação] <= " & d1 & " And [DtFim] >= " & d1)
'c1 = DCount("[codigo]", "locaçao", "Format([dtLocação],'dd/mm/yyyy') <= #" & Format(Now, "mm/dd/yyyy") & "# And format([DtFim],'dd/mm/yyyy') >= #" & Format(Now, "mm/dd/yyyy") & "#")
'c1 = DCount("[codigo]", "locaçao", "[dtLocação] <= #" & Format(Now, "dd/mm/yyyy") & "# And format([DtFim],'dd/mm/yyyy') >= #" & Format(Now, "mm/dd/yyyy") & "#")
c1 = DCount("[dtlocação]", "locaçao", "#" & Date & "# Between format([dtLocação],'dd/mm/yyyy') And format([dtfim],'dd/mm/yyyy')")

'between

End Function

[clebergyn]

Hello, this routine was correct, very much thank you!
these collected functions are very complicated with "date"

Dim intx As Integer
intx = DCount("*", "locaçao", " [dtLocação] <= Date() And Date() <= [dtfim] ")
End Subtanks very much