Blank date

[ReidarT]

I am trying to add records to a table with a date field (access-database)
where some of the records have a date and some haven't.
I use
dim dteReturDate as Date
If IsDate(RsMem("Returdato").Value) Then
dteReturdato = RsMem("Returdato").Value
Else
dteReturdato = Null
End If
..addnew
RsMem2.AddNew
RsMem2!Returdato = dteReturdato
..Update

Problem is the Null and the debugging stops at the RsMem2!Returdato-line
regards
reidarT

[Cor Ligthert [MVP]]

Reidar,

This is an adodb question.

There is a small however active newsgroups where at least Paul and Bill are
forever answering on this kind of questions (They both are VB.Net)

microsoft.public.dotnet.languages.vb.data

(Bill is not active in this newsgroup and I did not see Paul for a while, I
don't know if he lives in the south of the US.)

I hope this helps,

Cor

[Ken Tucker [MVP]]

Hi,

Dim null As Object = Convert.DBNull

Ken

------------------------

"ReidarT" <re****@eivon.no> wrote in message
news:OA**************@TK2MSFTNGP14.phx.gbl...

I am trying to add records to a table with a date field (access-database)
where some of the records have a date and some haven't.
I use
dim dteReturDate as Date
If IsDate(RsMem("Returdato").Value) Then
dteReturdato = RsMem("Returdato").Value
Else
dteReturdato = Null
End If
.addnew
RsMem2.AddNew
RsMem2!Returdato = dteReturdato
.Update

Problem is the Null and the debugging stops at the RsMem2!Returdato-line
regards
reidarT