Getting form to recognize duplicate dates

[Remster]

Folks

For some reason, the following code works ...

If DLookup("ReviewDate", "ReviewDateTable", "DocumentID = " & Me.Parent!DocumentID.Value) = Me!ReviewDate.Value Then _
MsgBox "This review date has already been entered for this document.", vbInformation

... but this doesn't ...

 
If DCount("ReviewDate", "ReviewDateTable", "DocumentID = " & Me.Parent!DocumentID.Value & "And ReviewDate = " & Me!ReviewDate.Value) > 0 Then _
MsgBox "This review date has already been entered for this document.", vbInformation

To be more specific, in the first instance it's recognized that the review date is already in the table, but in the second instance it isn't recognized. Can anyone help me as to why? (For info, I need something akin to the second, as each document can have several review dates.)

Thanks

Remster

[NTC]

well here is a suggestion - though it is a bit of a cop out - rather than string together an AND statement involving form & subform - - instead wrap it with if/then logic.....

take out: & "And ReviewDate = " & Me!ReviewDate.Value) > 0

to get back to the IF dcount string that you know works...

and then wrap that string with another if/then:

If Me!ReviewDate.Value) > 0 then

**put your simpler IF dcount statement here

end if

kinda lame but probably works.....

[ssanfu]

"Value" is the default property, so you don't need to add it. And I'm not a big fan of the single line IF statement syntax.

I did notice a couple of things..... Brackets are not required around field names but it helps. You should have delimiters around the date control.
And you are missing a space in front of the "AND".

Try this:

   If DCount("[ReviewDate]", "ReviewDateTable", "[DocumentID] = " & Me.Parent!DocumentID & " And [ReviewDate] = #" & Me!ReviewDate & "#") > 0 Then _
      MsgBox "This review date has already been entered for this document.", vbInformation

[Remster]

Thanks, I worked that out independently last night! I already had the space before the 'And' (what I posted was simplified version of my code, but I made a typo). The key was the delimiters, by which I assume you mean '#'. I had a feeling I needed something like that but couldn't quite work out how to formulate it.