Saving empty Date data type to table problem

[sisan]

Help me, please

I have a problem to save the Date data type if it is empty.
Say I have a textbox to input date. I can save to disk if there is a data in it, by :

rsTable!InputDate = txtInputDate

But if the textbox is empty, an error 'Type mismatch' will appear.
How can I do it without an error ? (Don't suggest me to assign 'On Error Resume Next'.

Thank you

 

[TerpFan2001]

Sisan:

Use a variant data type and set its value based on what has been entered by the user.

Dim vDate As Variant

If IsDate(Me.txtInputDate) = True Then

vDate = Me.txtInputDate

Else

vDate = Null

End If

rsTable!InputDate = vDate

 

[sisan]

Thanx a lot !

 

[CCLINT]

I wouldn't us a varinat, but istead use the specific type of variable needed. [/b][/i][/u][sub]*******************************************************
General remarks:
If this post contains any suggestions for the use or distribution of code, components or files of any sort, it is still your responsibility to assure that you have the proper license and distribution rights to do so!