Seek method

[ozdemirozgur]

Hi,

Is it possible to use the seek method to find the values smaller. eg.


With DIRS_FTSE_AIC_Raw
.Index = "FindFinanceUnique"
.Seek "=", APPO_Comb!Off_RecNo, 2000, 8
If .NoMatch Then
Else

thsi method finds the record equal to the 2000 but I would like to find any of the records before 2000?

thanks, Ozgur

 

[apr pillai]

.Seek "<", APPO_Comb!Off_RecNo, 2000, 8

When "<" is used searching for the value starts from the end of the recordset, rather than from the beginning.

 

[ozdemirozgur]

Hi,

I would like to get the off_recno and 8 exactly the same but just the year information should be less.

thanks, ozgur

 

[gemma-the-husky]

out of interest you cannot use seek on a "linked" table.

 

[vbaInet]

Hi,

I would like to get the off_recno and 8 exactly the same but just the year information should be less.

thanks, ozgur

You will need to use the FindFirst method instead if you want two criteria with differing operators.

 

[sriram_srinivasan]

Hi Sir,

iam facing problem in index....run time error 3800

' Error facing here Run-Time Error 3800."displayset_query_string" index not in the table


Dim db As DAO.Database
Dim sdm As DAO.Recordset
Dim ds As DAO.Recordset
Dim rs As DAO.Recordset
Dim vr As String

Set db = CurrentDb

Set sdm = db.OpenRecordset("settings_file_map")



sdm.MoveFirst

vr = sdm!FileName.Value


' Error facing here Run-Time Error 3800."displayset_query_string" not in the table Index


Set ds = db.OpenRecordset("displayset")

ds.Index = "displayset_query_string"

ds.Seek "=", vr



If ds.NoMatch Then

MsgBox ("Not Found")

Else
MsgBox ("Found")

End If

 

[vbaInet]

Are you sure that is an indexed field?

Have you considered using the Find function instead?

 

[sriram_srinivasan]

Find method also okay,but i need to return wheather the searching value available or not in the another table.If not i need to update the data in to another table.

 

[vbaInet]

It's similar to what you have already.

Aircode:

sdm.FindFirst "TheField = " & "Some Criteria"
 
if sdm.nomatch then
 
else
 
end if

Research this method.