[RESOLVED] Simple querry that stuck the programme.

[seema_s]

Hi,

Sometimes I need to keep blank the "ExpiryDate" textbox (txtExpiryDate). How can I do this. The present code doesnt allow me to save data until I enter this textbox.

With rs
 .AddNew
  .Fields("IssuedDateH").Value = CDate(txtIssuedDateH.Text)
 .Update

Regards.

Seema_s

[cssriraman]

Is your IssuedDateH filed will allow null/blank?

[seema_s]

Is your IssuedDateH filed will allow null/blank?

I think it needs to be set to null to allow save other data. Could you please rewrite the same code to accept null values?

Regards.

Seema_S

[si_the_geek]

To set a field (in a new record) to Null, just don't set it to anything.

Use an If statement to check if there is text in the textbox - if there is, set the field value (otherwise dont set it).

[Al42]

If the problem is that the database doesn't allow null inputs for that field, you'll have to change that in the database (if you really want to allow null date entries).

[seema_s]

If the problem is that the database doesn't allow null inputs for that field, you'll have to change that in the database (if you really want to allow null date entries).

In the database it is like the following:

Required - No
Indexed - No

Though I am getting error when any textbox has null value.

Seema_S

[Hack]

In the database it is like the following:

Required - No
Indexed - No

Though I am getting error when any textbox has null value.

Seema_S

Yes, but, does it allow NULLS? What is the error that you are getting?

[si_the_geek]

"Required - No" is the Access equivalent of "Allow Nulls".

The problem is in the VB code - the required correction is explained in my post above.

[seema_s]

"Required - No" is the Access equivalent of "Allow Nulls".

The problem is in the VB code - the required correction is explained in my post above.

Hi,

But, the below code is not working:

If txtExpiryDate.Text <> "" Then
   .Fields("ExpiryDate").Value = CDate(txtExpiryDate.Text)
   Else
    txtExpiryDate.Text = vbNull
 End If

Seema_S

[ganeshmoorthy]

Seema: try this

If IsDate(txtExpiryDate.Text) Then
   .Fields("ExpiryDate").Value = CDate(txtExpiryDate.Text)
End If

[Frans C]

Don't use vbNull but Null. Also don't set the text property of the textbox to null, because this is not possible. You should set the field to Null.

If txtExpiryDate.Text <> "" Then
    .Fields("ExpiryDate").Value = CDate(txtExpiryDate.Text)
Else
    .Fields("ExpiryDate").Value  = Null
End If

[seema_s]

Thanks for the help.

Seema_S