Hi there
Can some one help me with this issue. I have 2 text fields which user selects the date from calender control. Now i want to retreive data from table which falls in the range of these 2 text fields
here is the code i have written. When i run this form it returns the resultset with no rows.(EMPTY resultset)
sdate = CDate(Forms![ResolvedInciden tsbySevierity]![Text3])
edate = CDate(Forms![ResolvedInciden tsbySevierity]![Text5])
sql = "select IncidentsResolv ed.Severity,cou nt(IncidentsRes olved .Severity) from IncidentsResolv ed WHERE ((IncidentsReso lved.[Arrival Time] >= " & sdate & ") AND (IncidentsResol ved.[Arrival Time] <= " & edate & ")) GROUP BY IncidentsResolv ed.Severity"
Set MyDB = DBEngine.Worksp aces(0).OpenDat abase("D:\Repor ts\db 1.mdb")
Set MySet = MyDB.OpenRecord set(sql, DB_OPEN_DYNASET )
If (MySet.EOF = False And MySet.BOF = False) Then
MySet.MoveFirst
level1.Value = MySet.Fields(1)
MySet.MoveNext
level2.Value = MySet.Fields(1)
MySet.MoveNext
level3.Value = MySet.Fields(1)
MySet.MoveNext
' level4.Value = MySet.Fields(1)
Else
MsgBox ("No data found")
End If
MySet.Close
Set MyDB = Nothing
I have also tried by replacing the above sql stmt to and still no luck
sql = "select IncidentsResolv ed.Severity,cou nt(IncidentsRes olved .Severity) from IncidentsResolv ed WHERE ((IncidentsReso lved.[Arrival Time] >= #sdate#) AND (IncidentsResol ved.[Arrival Time] <= #edate#)) GROUP BY IncidentsResolv ed.Severity"
Can some one help me with this issue. I have 2 text fields which user selects the date from calender control. Now i want to retreive data from table which falls in the range of these 2 text fields
here is the code i have written. When i run this form it returns the resultset with no rows.(EMPTY resultset)
sdate = CDate(Forms![ResolvedInciden tsbySevierity]![Text3])
edate = CDate(Forms![ResolvedInciden tsbySevierity]![Text5])
sql = "select IncidentsResolv ed.Severity,cou nt(IncidentsRes olved .Severity) from IncidentsResolv ed WHERE ((IncidentsReso lved.[Arrival Time] >= " & sdate & ") AND (IncidentsResol ved.[Arrival Time] <= " & edate & ")) GROUP BY IncidentsResolv ed.Severity"
Set MyDB = DBEngine.Worksp aces(0).OpenDat abase("D:\Repor ts\db 1.mdb")
Set MySet = MyDB.OpenRecord set(sql, DB_OPEN_DYNASET )
If (MySet.EOF = False And MySet.BOF = False) Then
MySet.MoveFirst
level1.Value = MySet.Fields(1)
MySet.MoveNext
level2.Value = MySet.Fields(1)
MySet.MoveNext
level3.Value = MySet.Fields(1)
MySet.MoveNext
' level4.Value = MySet.Fields(1)
Else
MsgBox ("No data found")
End If
MySet.Close
Set MyDB = Nothing
I have also tried by replacing the above sql stmt to and still no luck
sql = "select IncidentsResolv ed.Severity,cou nt(IncidentsRes olved .Severity) from IncidentsResolv ed WHERE ((IncidentsReso lved.[Arrival Time] >= #sdate#) AND (IncidentsResol ved.[Arrival Time] <= #edate#)) GROUP BY IncidentsResolv ed.Severity"
Comment