Hello all.
This is the n th post of my problem. Sorry from the ones who observe all
ngs.
I have an ADO connection with an Access 2000 .mdb file (One Index column and
20 columns conatining Text data) I need to present a find method similar to
Find command of Access (scroll through each record of the recordset and
highlight the findings). I use DataEnvironment to connect to the base, and
as far as i know, Bookmarks are supported.
'CODE
With de
..rsCommand1.Mo veFirst
iRecCount = .rsCommand1.Rec ordCount
For i = 1 To iRecCount
varBookmark = .rsCommand1.Boo kmark
For j = 1 To 20
'ADO ERROR 3001 OCCURES... (wrong type, out of bounds or arguments
error)
.rsCommand1.Boo kmark = varBookmark
strFind = "Song" & j & " Like '*" & Text1.Text & "*'"
.rsCommand1.Fin d strFind
'For testing purposes only. It shows which field containes
valid data. Afterwards i will filter it
MsgBox "Index Nr. is " & .rsCommand1(0). Value _
& " Column Nr. is " & j
Next j
..rsCommand1.Mo veNext
j = 1
Next i
End With
This is the n th post of my problem. Sorry from the ones who observe all
ngs.
I have an ADO connection with an Access 2000 .mdb file (One Index column and
20 columns conatining Text data) I need to present a find method similar to
Find command of Access (scroll through each record of the recordset and
highlight the findings). I use DataEnvironment to connect to the base, and
as far as i know, Bookmarks are supported.
'CODE
With de
..rsCommand1.Mo veFirst
iRecCount = .rsCommand1.Rec ordCount
For i = 1 To iRecCount
varBookmark = .rsCommand1.Boo kmark
For j = 1 To 20
'ADO ERROR 3001 OCCURES... (wrong type, out of bounds or arguments
error)
.rsCommand1.Boo kmark = varBookmark
strFind = "Song" & j & " Like '*" & Text1.Text & "*'"
.rsCommand1.Fin d strFind
'For testing purposes only. It shows which field containes
valid data. Afterwards i will filter it
MsgBox "Index Nr. is " & .rsCommand1(0). Value _
& " Column Nr. is " & j
Next j
..rsCommand1.Mo veNext
j = 1
Next i
End With