Come back with the exact code that you are using and the line(s) causing the
error.

--
Duane Hookom
MS Access MVP

"hobbit2612 via AccessMonster.com" u27332@uwe wrote in message
news:67c0ad6bd886e@uwe...
Hi Duane,

Thanks for getting back to me.

Unfortunately the code doesn't seem to work, it still won't work if the
test
dates are blank.

The error message that it shows is Run-Time error '13': Type mismatch.

I know the code you gave me was to test whethe the field are blank. Due to
the query that i've set up I can see whether the fields are blank. is
there
anyway to actually say to ignore any blank test date fields?

Many thanks

Chris

Duane Hookom wrote:
You can test for Null with the function IsNull().

For intTextBox = 1 to 7
If IsNull(Me("txtTest" & intTextBox)) Then
Me("txtTest" & intTextBox).Visible = False
Else
Me("txtTest" & intTextBox).Visible = True
lngStart = DateDiff("d", datStart, Me("txtTest" & intTextBox)
Me("txtText" & intTextBox).Left = (lngStart * dblFactor) +
lngLMarg
End If
Next

Duane,

[quoted text clipped - 38 lines]
you
mean?

--
Message posted via http://www.accessmonster.com