3421: data type conversion error

tegb

Registered User.
Local time
Today, 06:02
Joined
Feb 14, 2012
Messages
49
I have a textbox on a form for entering date. this field is optional meaning it could be blank. when I leave this field blank & click save to update table (table is not bound to form), I get 3421 data type conversion error. how can i get this field to accept blanks as well as dates? it works perfectly alright when a date is entered
 
could we see the update query that you are using?
 
thanks for helping,

I am not using a query, i am using the below code

Dim db As Database
Set db = CurrentDb
Dim tblpool As Recordset
Dim Sixtyplus As Integer
Dim rstemp As Recordset
Dim rstemp2 As Recordset
Dim rstemp1 As Recordset
Dim rstemp3 As Recordset
Dim ctl As Control
tblpool.AddNew
tblpool![Issue1] = Issue1.Value
tblpool![Issue1Resolved] = chkIssue1Resolved.Value
tblpool![Issuecate1] = Issuecate1.Value
tblpool![DefineDate] = DefineDate.Value
tblpool.Update
 
You could use a if condition to check before updsting values.. something like..
Code:
Dim db As Database
Set db = CurrentDb
Dim tblpool As Recordset
Dim Sixtyplus As Integer
Dim rstemp As Recordset
Dim rstemp2 As Recordset
Dim rstemp1 As Recordset
Dim rstemp3 As Recordset
Dim ctl As Control
tblpool.AddNew
tblpool![Issue1] = Issue1.Value
tblpool![Issue1Resolved] = chkIssue1Resolved.Value
tblpool![Issuecate1] = Issuecate1.Value
If Len(DefineDate.Value & "")>0 Then
    tblpool![DefineDate] = DefineDate.Value
Else
    tblpool![DefineDate] = Null
End If
tblpool.Update
 

Users who are viewing this thread

Back
Top Bottom