回答編集履歴
2
修正
answer
CHANGED
|
@@ -9,7 +9,7 @@
|
|
|
9
9
|
```VBA
|
|
10
10
|
If adoRs!姓 Like "*" & IIF(IsNull(Me.TextBox1.Value), "", Me.TextBox1.Value) & "*" Or adoRs!電話番号1 Like "*" & IIF(IsNull(Me.TextBox2.Value), "", Me.TextBox2.Value) & "*" Or adoRs!電話番号2 Like "*" & IIF(IsNull(Me.TextBox2.Value), "", Me.TextBox2.Value) & "*" Then '検索が一致すれば（結果をリストボックスに表示）
|
|
11
11
|
```
|
|
12
|
-
ところで以下はリス
|
|
12
|
+
ところで以下はリストボックスに顧客コードを追加していますが、顧客コードのみで分かるんでしょうか？
|
|
13
13
|
```VBA
|
|
14
14
|
With Me.SearchList '該当したレコードをリストボックスに表示する
|
|
15
15
|
.AddItem adoRs.Fields(0).Value
|
1
推敲
answer
CHANGED
|
@@ -7,7 +7,7 @@
|
|
|
7
7
|
|
|
8
8
|
条件の氏名の部分は条件追加になるでしょうが、記述としては以下のようになるかと。
|
|
9
9
|
```VBA
|
|
10
|
-
If adoRs!姓 Like "*" & Me.TextBox1.Value & "*" Or adoRs!電話番号1 Like "*" & Me.TextBox2.Value & "*" Or adoRs!電話番号2 Like "*" & Me.TextBox2.Value & "*" Then '検索が一致すれば（結果をリストボックスに表示）
|
|
10
|
+
If adoRs!姓 Like "*" & IIF(IsNull(Me.TextBox1.Value), "", Me.TextBox1.Value) & "*" Or adoRs!電話番号1 Like "*" & IIF(IsNull(Me.TextBox2.Value), "", Me.TextBox2.Value) & "*" Or adoRs!電話番号2 Like "*" & IIF(IsNull(Me.TextBox2.Value), "", Me.TextBox2.Value) & "*" Then '検索が一致すれば（結果をリストボックスに表示）
|
|
11
11
|
```
|
|
12
12
|
ところで以下はリスとボックスに顧客コードを追加していますが、顧客コードのみで分かるんでしょうか？
|
|
13
13
|
```VBA
|