在VBA中使用findfirst条件搜索多个字段访问

在VBA中使用findfirst条件搜索多个字段访问,vba,ms-access-2010,criteria,findfirst,Vba,Ms Access 2010,Criteria,Findfirst,在移动电话记录表中找到匹配项后,以下代码将填充表单上的值。在条件中,如何在两个不同字段中搜索值?我可以用文本框替换组合框,并希望在两个字段中搜索,IMEI和Mob_编号 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_

在移动电话记录表中找到匹配项后,以下代码将填充表单上的值。在条件中,如何在两个不同字段中搜索值?我可以用文本框替换组合框,并希望在两个字段中搜索,IMEI和Mob_编号

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
如何在两个不同的字段中搜索值?[IMEI和Mob_编号]

通过将语句更改为,您应该能够搜索两个字段

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

我正准备发布解决方案,因为我尝试了同样的方法,并且成功了。我所做的是将组合更改为文本框并执行以下操作:Criteria=“[MOB_NUMBER]=”&[SearchBox]&“&”或[IMEI]=”&[SearchBox]&”