Dim IndVal As Object
Dim targetDate As Long = DateUtils.SetDate(2013, 6, 1)
Table.Initialize(Access.GetTable("TAB"))
Index.Initialize(TableEnt.GetIndex("CODE_DT"))
Cursor.Initialize(TableEnt.GetTable, IndexEnt.GetIndex)
IndVal=targetDate
Cursor.FindClosestRowByEntry(Array As Object(IndVal))
Do Until CursorEnt.IsAfterLast
.....
(If condition Then Exit)
.....
CursorEnt.GetNextRow
Loop
But if cursor does not find any record (no records >= CODE_DT) Cursor.FindClosestRowByEntry(Array As Object(IndVal))
have immediatly this error:
I have need read this table with >=
and then to do readnext.
Can anyone help me who has had experience with jackcess?
Dim IndVal As Object
Dim targetDate As Long = DateUtils.SetDate(2013, 6, 1)
Table.Initialize(Access.GetTable("TAB"))
Index.Initialize(TableEnt.GetIndex("CODE_DT"))
Cursor.Initialize(TableEnt.GetTable, IndexEnt.GetIndex)
IndVal=targetDate
Cursor.FindClosestRowByEntry(Array As Object(IndVal))
Msgbox(CursorEnt.IsBeforeFirst,"")
Msgbox(CursorEnt.IsAfterLast,"")
Do Until CursorEnt.IsAfterLast
.....
(If condition Then Exit)
.....
CursorEnt.GetNextRow
Loop
when give error I press button YES (continue yes)
but not have msgbox