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
3421: data type conversion error (1 Viewer)
- Thread starter tegb
- Start date
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
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
pr2-eugin
Super Moderator
- Local time
- Today, 21:34
- Joined
- Nov 30, 2011
- Messages
- 8,494
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
