Поиск в нескольких полях с использованием критериев findfirst в VBA

Question

Следующий код заполняет значения в форме после того, как она находит совпадение в таблице записей мобильного телефона, в критериях, как я могу найти значение в 2 разных полях? Я мог бы заменить поле со списком на текстовое поле и хотел бы искать в 2 полях, IMEI и Mob_number.

Private Sub Combo0_AfterUpdate()

Dim D As Database
Dim rsmob As Recordset
Dim Criteria As String

Set D = CurrentDb
Set rsmob = D.OpenRecordset("Mobile_Phones", DB_OPEN_DYNASET)

Criteria = "[MOB_NUMBER]='" & [Combo0] & "'"

rsmob.FindFirst Criteria

Me!Location = rsmob("User_Name")
Me!MODEL = rsmob("Model")
Me!IMEI = rsmob("IMEI")
Me!DIR = rsmob("DIR")
Me!Status = rsmob("Status")
Me!Account = rsmob("ACCOUNT")
Me!Plan = rsmob("Plan")
Me!MobOrWifi = rsmob("Mob_Or_Wifi")

rsmob.Close

End Sub

Answer 1

Как я могу найти значение в 2 разных полях? [IMEI и Mob_number]

Вы должны иметь возможность поиска по двум полям, изменив свое утверждение на

Criteria = "[MOB_NUMBER]='" & [Combo0] & "' OR [IMEI]='" & [Combo0] & "'"