Empty Textbox

[Joanny]

I want to ask one question, I hope someone can help me.

When I add a new record to database, I write this code:

rs.AddNew

rs![Name] = txtName
rs![Closedate] = txtClosedate.
rs![Cost] = txtCost
rs.update

rs.Close
db.Close

In Access database, [Name] is a text, [Closedate] is a date/time, [Cost] is a number. And all the Required = No in their field properties.

The problem is if the user only input the name, but the txtClosedate and txtCost is empty, because it's open, it isn't necessary to close and without cost right now. When you click the Save button, it causes a "Data Type conversion error".

I know Name I can check Allow Zero Length = yes, then whatever you enter nothing, it does't has error, but I don't know how to handle the date/time and number.

Welcome email to me or post on board

Thanks a lot!

Joanny

[jcfowl]

how is the data input??
input box
or
textbox on a form?

[Joanny]

Originally posted by Joanny
I want to ask one question, I hope someone can help me.

When I add a new record to database, I write this code:
They will get the data from TEXT box

rs.AddNew

rs![Name] = txtName
rs![Closedate] = txtClosedate.
rs![Cost] = txtCost
rs.update

rs.Close
db.Close

In Access database, [Name] is a text, [Closedate] is a date/time, [Cost] is a number. And all the Required = No in their field properties.

The problem is if the user only input the name, but the txtClosedate and txtCost is empty, because it's open, it isn't necessary to close and without cost right now. When you click the Save button, it causes a "Data Type conversion error".

I know Name I can check Allow Zero Length = yes, then whatever you enter nothing, it does't has error, but I don't know how to handle the date/time and number.

Welcome email to me or post on board

Thanks a lot!

Joanny

[Joanny]

They are getting the data from TEXT boxes

Joanny

[Hack]

How about something like

Dim DateCheck As Date
If IsNull(txtCost.Text) Then
     rs![Cost]=0
Else
    rs![Cost]=Val(txtCost.Text)
End If
 
DateCheck = IsDate(txtCloseDate.Text)
If DateCheck = True Then
   rs![CloseDate]=CDate(txtCloseDate.Text)
End If

[Joanny]

how about if the txtClosedate.text = "", how can I do?

Joanny

[Hack]

If is equals "" then DateCheck will equal False, and nothing will get written back to the table.

[jcfowl]

Can you just set your access table for default values
and Required = to NO

that way if

IF txtClosedate.text <> "" then
rs![Closedate] = txtClosedate
ELSE
'Do nothing
rs.update

[Hack]

My code is predicated on the fact that CloseDate is not a required field.