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

Question

Следующий код заполняет значения в форме после того, как находит совпадение в таблице записей мобильных телефонов, в критериях, как я могу найти значение в двух разных полях? Я могу заменить поле со списком текстовым полем и искать в двух полях, 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] & "'"