Empty Date field is cashing.... (1 Viewer)

Q

qaaccess

Registered User.
Local time
Today, 07:31
Joined
Jul 23, 2014
Messages
18
When user enter the data other than date field or when date field remain empty and user press the Add button, it is giving error.

(Error 3075)

Syntax Error in date in query expression '#'.

while same code is working for text field. but it is not working for date field.

If (Me.rdate) = "" Then

Exit Sub

End If

Please help. thanks.
 
bob fitz

bob fitz

AWF VIP
Local time
Today, 15:31
Joined
May 23, 2011
Messages
4,726
Have you tried:
If IsNull(Me.rdate) Then

Exit Sub

End If
 
jdraw

jdraw

Super Moderator
Staff member
Local time
Today, 10:31
Joined
Jan 23, 2006
Messages
15,394
You could also try the IsDate() function.
See here for details.
 
Q

qaaccess

Registered User.
Local time
Today, 07:31
Joined
Jul 23, 2014
Messages
18
bob fitz said:
Have you tried:
If IsNull(Me.rdate) Then

Exit Sub

End If
Click to expand...

Yes i have tried the following: it does not giving the error but at the same time it is not inserting the data into text field using this code. user wants to enter only in text field and does not want to enter the date, then text field data should be saved/insert into table, but it is not saving.

If (Me.Desc) = "" Then

Exit Sub

End If

If IsNull(Me.rdate) Then

Exit Sub

End If[
 
Q

qaaccess

Registered User.
Local time
Today, 07:31
Joined
Jul 23, 2014
Messages
18
vbaInet said:
Show us the full code, not just snippets. And please enclose them in code tags:
Click to expand...

This is complete code. As i am new in programming.

Private Sub updt_Click()

If Not IsNumeric(Me.rejqty) = True Then
MsgBox ("Please Enter the Rejected Quantity in Number(s)")

Me.rejqty.SetFocus

Exit Sub
End If



If (Me.ccid) = "" Then

Exit Sub

End If


If IsNull(Me.stdate) Then

Exit Sub

End If



If (Me.rejqty) = "" Then

Exit Sub

End If


If (Me.Desc) = "" Then

Exit Sub

End If


If IsNull(Me.descdate) Then

Exit Sub

End If



If (Me.rcause) = "" Then

Exit Sub

End If


If IsNull(Me.rdate) Then

Exit Sub

End If



If (Me.scontain) = "" Then

Exit Sub

End If


If IsNull(Me.shdate) Then

Exit Sub

End If



If (Me.lcontain) = "" Then

Exit Sub

End If


If IsNull(Me.ldate) Then

Exit Sub

End If



If (Me.caimp) = "" Then

Exit Sub

End If


If IsNull(Me.cadate) Then

Exit Sub

End If



If (Me.qplan) = "" Then

Exit Sub

End If


If IsNull(Me.qdate) Then

Exit Sub

End If



If (Me.verify) = "" Then

Exit Sub

End If


If IsNull(Me.vdate) Then

Exit Sub

End If


CurrentDb.Execute "Insert INTO tblNCM(CCID, Startdate, ItemID, Rejqty, Description, Descdate, Rootcause, Rootdate, Shortcontain, Shortdate, Longcontain, Longdate, CAImplementation, CAImpdate, Qualityplan, Qualitypdate, Verification, Verifdate)" & _
" Values ( '" & Me.ccid & "' , #" & Me.stdate & "# , '" & Me.pnumlist & "' , " & Me.rejqty & " , '" & Me.Desc & "' , #" & Me.descdate & "# , '" & Me.rcause & "' , #" & Me.rdate & "# , '" & Me.scontain & "' , #" & Me.shdate & "# , '" & Me.lcontain & "' , #" & Me.ldate & "# , '" & Me.caimp & "', #" & Me.cadate & "# , '" & Me.qplan & "', #" & Me.qdate & "# , '" & Me.verify & "' , #" & Me.vdate & "#)"
 
V

vbaInet

AWF VIP
Local time
Today, 15:31
Joined
Jan 22, 2010
Messages
26,374
Use what is in the link and re-copy and paste your code again. Your code should look like this:
Code: 
If IsNull(Me.vdate) Then
    Exit Sub
End If
... can you see how much easier it is to read?
 
Q

qaaccess

Registered User.
Local time
Today, 07:31
Joined
Jul 23, 2014
Messages
18
vbaInet said:
Use what is in the link and re-copy and paste your code again. Your code should look like this:
Code: 
If IsNull(Me.vdate) Then
    Exit Sub
End If
... can you see how much easier it is to read?
Click to expand...

You mean i have to use tag as following ?

Code: 
With me

If IsNull(Me.vdate) Then     

     Exit Sub 

End If

End with

[\code]
 
V

vbaInet

AWF VIP
Local time
Today, 15:31
Joined
Jan 22, 2010
Messages
26,374
Yes, but re-copy it from your db and past it back.

And the closing tag is [/code], not [\code]
 
Q

qaaccess

Registered User.
Local time
Today, 07:31
Joined
Jul 23, 2014
Messages
18
vbaInet said:
Yes, but re-copy it from your db and past it back.

And the closing tag is [/code], not [\code]
Click to expand...

Getting following error after using the tags.

Run-time error '2465':

Microsoft Access can't find the field '|1' referred to in your expression.
 
V

vbaInet

AWF VIP
Local time
Today, 15:31
Joined
Jan 22, 2010
Messages
26,374
I'm talking about pasting code here on the site. You use code tags on the site not in Access. Just like the screenshot shows in the link.
 
V

vbaInet

AWF VIP
Local time
Today, 15:31
Joined
Jan 22, 2010
Messages
26,374
Anyway, to check if a date field/textbox bound to a date field is Null or not use the IsDate() function.
 
Q

qaaccess

Registered User.
Local time
Today, 07:31
Joined
Jul 23, 2014
Messages
18
vbaInet said:
Anyway, to check if a date field/textbox bound to a date field is Null or not use the IsDate() function.
Click to expand...
Here is the following code.
Code: 
Private Sub updt_Click()

If Not IsNumeric(Me.rejqty) = True Then
MsgBox ("Please Enter the Rejected Quantity in Number(s)")

 Me.rejqty.SetFocus
  
  Exit Sub
  End If
  


If (Me.ccid) = "" Then

Exit Sub

End If


If IsNull(Me.stdate) Then

Exit Sub

End If



If (Me.rejqty) = "" Then

Exit Sub

End If


If (Me.Desc) = "" Then

Exit Sub

End If


If IsNull(Me.descdate) Then

Exit Sub

End If



If (Me.rcause) = "" Then

Exit Sub

End If


If IsNull(Me.rdate) Then

Exit Sub

End If



If (Me.scontain) = "" Then

Exit Sub

End If


If IsNull(Me.shdate) Then

Exit Sub

End If



If (Me.lcontain) = "" Then

Exit Sub

End If


If IsNull(Me.ldate) Then

Exit Sub

End If



If (Me.caimp) = "" Then

Exit Sub

End If


If IsNull(Me.cadate) Then

Exit Sub

End If



If (Me.qplan) = "" Then

Exit Sub

End If


If IsNull(Me.qdate) Then

Exit Sub

End If



If (Me.verify) = "" Then

Exit Sub

End If


If IsNull(Me.vdate) Then

Exit Sub

End If


CurrentDb.Execute "Insert INTO tblNCM(CCID, Startdate, ItemID, Rejqty,  Description, Descdate, Rootcause, Rootdate, Shortcontain, Shortdate,  Longcontain, Longdate, CAImplementation, CAImpdate, Qualityplan,  Qualitypdate, Verification, Verifdate)" & _
" Values ( '" & Me.ccid & "' , #" & Me.stdate & "# , '"  & Me.pnumlist & "' , " & Me.rejqty & " , '" &  Me.Desc & "' , #" & Me.descdate & "# , '" & Me.rcause  & "' , #" & Me.rdate & "# , '" & Me.scontain & "' ,  #" & Me.shdate & "# , '" & Me.lcontain & "' , #" &  Me.ldate & "# , '" & Me.caimp & "', #" & Me.cadate &  "# , '" & Me.qplan & "', #" & Me.qdate & "# , '" &  Me.verify & "' , #" & Me.vdate & "#)"
 
V

vbaInet

AWF VIP
Local time
Today, 15:31
Joined
Jan 22, 2010
Messages
26,374
Ok, but I've already answered your question, you need to use the IsDate() function.
 
Q

qaaccess

Registered User.
Local time
Today, 07:31
Joined
Jul 23, 2014
Messages
18
vbaInet said:
Ok, but I've already answered your question, you need to use the IsDate() function.
Click to expand...
Thanks Issue has been resolved.

Now the next thing is.


Is it possible to load the data in input from by double clicking on data from list box ?

I have single form on which both input form and read-only form is present. as i used visible property to display or not accordingly.

User enters the data from input form. (It has been done)

User go onto read only form where combo box and list box. from drop down values load into list-box. (It has been done)

Now double click on any record then it should re-directed on input form with loading the data in editable mode for updation purpose. ???? (How this step will be done) ???
 
You must log in or register to reply here.

Similar threads

X
Date switches to US Format but not WHEN CLICKED
Replies
1
Views
287
Gasman
Gasman
A
Is there any kind of local setting that can override a date/time format specified in a table?
Replies
11
Views
559
MajP
MajP
K
Form blank when no records found
Replies
9
Views
580
kevinh2320
K
L
Auto Populate a few date fields
Replies
7
Views
668
XPS35
XPS35
B
Dates and Invalid Use of Null
Replies
8
Views
638
Pat Hartman
P

Users who are viewing this thread

Total: 1 (members: 0, guests: 1)
Top Bottom