-
I can't get this code to query the database with the results from this code i get select from Master where Date_Opened between #01/12/99 and #xx/xx/xx; numbers dependent on what you select in cbo box
Please help!!!
Private Sub Command1_Click()
Dim strStartDate As String
Dim strStartDateMonth As String
Dim strEndDate As String
Dim sql As String
Dim A As String
If cboMonth = "January" Then
cboMonth = "1"
If cboMonth = "February" Then
cboMonth = "2"
If cboMonth = "March" Then
cboMonth = "3"
If cboMonth = "April" Then
cboMonth = "4"
If cboMonth = "May" Then
cboMonth = "5"
If cboMonth = "June" Then
cboMonth = "6"
If cboMonth = "July" Then
cboMonth = "7"
If cboMonth = "August" Then
cboMonth = "8"
If cboMonth = "September" Then
cboMonth = "9"
If cboMonth = "October" Then
cboMonth = "10"
If cboMonth = "November" Then
cboMonth = "11"
If cboMonth = "December" Then
cboMonth = "12"
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
A = Mid(cboYear.Text, 3, 2) 'get 94 from 1994
strStartDate = Format("10/4/94", "dd/mm/yy")
strEndDate = Format("01 " & cboMonth & " " & cboYear, "dd/mm/yy")
If CDate(strStartDate) < CDate(strEndDate) Then
' txtDate.Text = "Select * " & "From Master " & "WHERE DATE_OPENED BETWEEN '" & strStartDate & "' and '" & strEndDate
'Data1.RecordSource = "select from Master where DATE_OPENED '" & strStartDate & "' and '" & strEndDate
'Data1.RecordSource = txtDate.Text
' Data1.RecordSource = "SELECT (*) from MASTER WHERE DATE_OPENED BETWEEN '" & strStartDate & "' and '" & strEndDate
'txtDate.Text = sql
'Data1.RecordSource = sql
'Data1.Recordset.MoveFirst
'Else
' txtDate.Text = "Records do not go back to: " & strEndDate
'End If
'If Data1.Recordset.NoMatch Then
'MsgBox "No such Auto Response Number in the PSR Database", vbOKOnly, "PSR Record Not Found"
Data1.Refresh
Data1.RecordSource = "SELECT from Master where DATE_OPENED between '" & "#" & strStartDate & "#" & "' and '" & "#" & strEndDate & "#"
Data1.Recordset.MoveNext
' If Data1.Recordset.NoMatch Then
' MsgBox "No such Auto Response Number in the PSR Database", vbOKOnly, "PSR Record Not Found"
Form2.MSFlexGrid1 = Data1.RecordSource
'Form3.Show
End If
End Sub
-
Hi bebe Ive looked through you code and it looks fine apart from one thing. Where you set the data1 record set you have got
Data1.RecordSource = "select from Master where DATE_OPENED '" & strStartDate & "' and '" & strEndDate
'Data1.RecordSource = txtDate.Text
I think what you actually want is
sql = "SELECT * FROM Master where DATE_OPENED BETWEEN '" & strStartDate & "' and '" & strEndDate & "'"
Data1.recordsource = sql
It looks like you missed out the closing pip at the end of strEnd date. Also if you are using access try replacing The ' with a #
Hope this helps
Ian
[Edited by Ianpbaker on 04-20-2000 at 09:26 AM]
-
Im getting true and false responses in my grid and when I use a msgbox I get the same
-
Not sure about everything else, but, you might want to try this instead of your long if statement.
private enum eMonth
January = 1
February = 2
March = 3
April = 4
May = 5
June = 6
July = 7
August = 8
September = 9
October = 10
November = 11
December = 12
end enum
private xMonth as eMonth
xMonth = May
Now, if you said debug.print xMonth, you would get 3.
Hope that helps some.
-
Are you trying to figure out the last day of a particular month ?
If so, determine the first day of the next month, subtract 1 day, which will get you to the last day of the previous month.
-
I'm totally confused do you have some example code?
Well isn't it always February ends on the 29th, etc the end of the months are set; right?
-
Try this
Code:
dim FirstDayOfMonth as date
dim LastDayofMonth as date
FirstDayOfMonth = "3/1/2000" ' 1st day of the next month
LastDayofMonth = DateAdd("d", -1, FirstDayOfMonth)
The date add function allows you to add (or subtract) an interval from the specified day.
I tried this from March 1st of this year and it correctly came up with 2/29/2000
