جستجو در دو فيلد

[masoud903]

با سلام
در يك جدول دو فيلد tel1 و tel2 دارم كه مربوط به تلفن است.
چطوري ميشه يك جستجو براش ساخت كه ابتدا در فيلد tel1 عمل جستجو را انجام دهد و در صورت خالي بودن فيلد،مورد جستجو را در فيلد tel2 مورد بررسي قرار دهد؟

[مجتبی جوادی]

دوست عزیز شما میتونید یک فانکشن بنویسید که هر فیلد را جداگانه جستجو کند:


Dim db As Database
Dim rs As Recordset
Dim Foundfield As String

Set db = CurrentDb
Set rs = db.OpenRecordset("TableName")
While Not rs.EOF
If rs!tel1 = search Then
Foundfield = rs!tel1
End If
rs.MoveNext
Wend
rs.Close
SearchField = Foundfield
که در آن search مورد جستجو است