Record Function

[Albano]

Help enyone,

I need a function to search a table for a expecific record, given in criteria and return is number position on the table.

ex: serch for record on fild Last=true.

Tanks,
Albano

 

[PaulF]

This example assumes that Last is a Yes/No Field

Dim db As DAO.DATABASE, rst As DAO.Recordset
Set db = CurrentDb
Set rst = db.OpenRecordset("TableNameGoesHere", dbOpenDynaset)
With rst
.FindFirst "[Last] = " & True
If Not .NoMatch Then
MsgBox "Record Was Found And Position is " _
& rst.AbsolutePosition + 1
End If
End With



PaulF

 

[Albano]

Thanks PaulF I will tray, but if you know a function that don´t use recordsets it will usefull.

Albano

 

[jagilman]

Albano, try the DLookup function
dim location as Long
location = DLookup("your position","your table","your criteria&quot
John A. Gilman
gms@uslink.net