3

次のコードは、携帯電話レコード テーブルで一致が見つかった後、フォームに値を入力しています。条件で、2 つの異なるフィールドで値を検索するにはどうすればよいですか? コンボ ボックスをテキスト ボックスに置き換えることができ、IMEI と Mob_number の 2 つのフィールドで検索したいと考えています。

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
4

1 に答える 1

3

2 つの異なるフィールドで値を検索するにはどうすればよいですか? [IMEIとMob_number]

ステートメントを次のように変更することで、2 つのフィールドを検索できるはずです。

Criteria = "[MOB_NUMBER]='" & [Combo0] & "' OR [IMEI]='" & [Combo0] & "'"
于 2013-09-12T01:31:41.193 に答える