Help with DLookup? (a2k (9.0.6926) SP-3 Jet 4.0 SP-8)

[Support4John]

The following code works if there is a date in dtmInsExpDate

If dtmInsExpDate isblank or null I want it to be equal to today

Thanks, John

<pre> If Nz(Format(DLookup("dtmInsExpDate", "tblContractor", _
"lngContractorID =" & ID), "yyyymmdd"), Format(Date, "yyyymmdd")) _
< Format(Date, "yyyymmdd") Then
</pre>

[HansV]

Try
<code>
If Nz(DLookup("dtmInsExpDate", "tblContractor", _
"lngContractorID =" & ID), Date) < Date Then
</code>
All those formats aren't needed, and since Format(...) doesn't ever result in Null, it doesn't help to apply Nz to it.

[Support4John]

Good news and bad news

Good news - it works
Bad news - I was getting paid by number of lines of code

Thanks, John

[HansV]

You can always insert extra line continuation characters and line breaks... <img src=/S/evilgrin.gif border=0 alt=evilgrin width=15 height=15>