Using Parenthesis in VBA

[jo15765]

I want to run this statement in VBA (which I know is a valid statement)

''''''Begin & Finish are input boxes that are receiving values as dates...
WHERE tblnew.partName = 'Muffler' AND (tblnew.partEnteredDate Between " & Begin & " And " & Finish & ") 
And tblnew.supervisorCheck IS NOT NULL AND tblnew.OrderDate IS NOT NULL AND tblnew.Ordered IS NOT NULL"

The statement runs fine, but it doesn't return any results and if I run the query in SQL Server it returns results. That being said, I am thinking that I am missing some parenthesis around pieces of the Where clause....can someone assist?

 

[Kyle123]

You need to do both, #s and formatting

 

[jo15765]

That did the trick! Thank you!

 

[jo15765]

I do have a question regarding vba validation of a date. i know how to check if it is null, but how do I check if the input is Integer only? I tried using IsNumeric, but I may have used it in the wrong syntax as it would not work at all!

 

[Kyle123]

Can't you use the IsDate function? Something like:

If IsDate(textbox1.Value) Then
  dFormatted = Format(CDate(textbox1.Value), "yyyy/mm/dd")
Else
    MsgBox "Enter Valid Date", vbCritical + vbDefaultButton1
End if

 

[jo15765]

Can't you use the IsDate function? Something like:

If IsDate(textbox1.Value) Then
  dFormatted = Format(CDate(textbox1.Value), "yyyy/mm/dd")
Else
    MsgBox "Enter Valid Date", vbCritical + vbDefaultButton1
End if

This is the syntax I am using, but it is allowing me to input for a date only 08...I want it to also verify that the date input is in this syntax 08/12/2012...I am sure I just need to somehow show the format i want it in, as you did above, but I can't figure out how to do that piece:

BeginCheck:
    Begin = Application.InputBox(Prompt:="Enter A Date.", Title:="Date")
     If (Begin = "12:00:00 AM" Or IsDate(Begin) <> True) Then
        MsgBox "Please enter a valid date."
        GoTo BeginCheck
    End If