Recordset Boş Tarih Sorunu

[Recep İpek]

İyi Geceler.

Access'de Date/Time olarak tanımladığım bir alana ADODB ile bağlanıp kayıt eklerken,
eğer ben bu alanı boş geçmek istediğimde tüm kaydı eklememektedir.

Tarih alanlarına veri girdiğimde ise kayıt işlemini yapmaktadır.

Sanırım kayıt ederken kodlar bu alana Null değeri veriyor.Dolayısıyla Date/Time formatıda bu Null değerini kabul etmiyor.

Bu konu hakkında bilgisi olan var mı?

SQLStr = "SELECT * FROM [CVDATA] WHERE A002TCNO=" & MyForm.ALAN2.Value
RS.Open SQLStr, DB, 1, 3
If RS.RecordCount = 0 Then
RS.AddNew
RS("A001BASNO")=BASNO
RS("A002TCNO")=MyForm.ALAN2.Value
RS("A003ADI")=MyForm.ALAN3.Value
RS("A004SOYADI")=MyForm.ALAN4.Value
RS("A005DTAR")=MyForm.ALAN5.Value ' [COLOR=red]Bu alanı bazen boş geçebilmeliyim.[/COLOR]
RS("A006DYER")=MyForm.ALAN6.Value
RS("A007CINS")=MyForm.ALAN7.Value
RS("A008MHALI")=MyForm.ALAN8.Value
RS("A009UYR")=MyForm.ALAN9.Value
RS("A010ASKDUR")=MyForm.ALAN10.Value
RS("A011ASKTCLTAR")=MyForm.ALAN11.Value ' [COLOR=red]Bu alanı bazen boş geçebilmeliyim.[/COLOR]
RS.Update
Msgbox "Girdiğiniz Bilgiler Kaydetildi.    " & Chr(13) & Chr(13) & "  Başvuru Numaranız:  " & BASNO & "   " ,16
Else
MsgBox MyForm.ALAN2.Value & " TC Numaralı Kişi Kayıtlı.", , "Uyarı"
End If

 

[Recep İpek]

Sanırım en kestirme yol,

RS("A004SOYADI")=MyForm.ALAN4.Value
If MyForm.ALAN5.Value <>"" Then RS("A005DTAR")=MyForm.ALAN5.Value
RS("A006DYER")=MyForm.ALAN6.Value

&#351;eklinde olacak..