回答編集履歴
2
修正
test
CHANGED
@@ -20,7 +20,7 @@
|
|
20
20
|
|
21
21
|
```
|
22
22
|
|
23
|
-
ところで以下はリス
|
23
|
+
ところで以下はリストボックスに顧客コードを追加していますが、顧客コードのみで分かるんでしょうか?
|
24
24
|
|
25
25
|
```VBA
|
26
26
|
|
1
推敲
test
CHANGED
@@ -16,7 +16,7 @@
|
|
16
16
|
|
17
17
|
```VBA
|
18
18
|
|
19
|
-
If adoRs!姓 Like "*" & Me.TextBox1.Value & "*" Or adoRs!電話番号1 Like "*" & Me.TextBox2.Value & "*" Or adoRs!電話番号2 Like "*" & Me.TextBox2.Value & "*" Then '検索が一致すれば(結果をリストボックスに表示)
|
19
|
+
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 '検索が一致すれば(結果をリストボックスに表示)
|
20
20
|
|
21
21
|
```
|
22
22
|
|