質問編集履歴
6
追加質問を、新しい質問と分けるために修正しました
test
CHANGED
File without changes
|
test
CHANGED
@@ -44,70 +44,6 @@
|
|
44
44
|
|
45
45
|
|
46
46
|
|
47
|
-
【追加質問】
|
48
|
-
|
49
|
-
帳票フォームで複数のテキストボックスからあいまいなキーワードを指定し、
|
50
|
-
|
51
|
-
レコードを抽出したいのですが、下記コードで実行するとエラーとなります。
|
52
|
-
|
53
|
-
何が原因となりますでしょうか?
|
54
|
-
|
55
|
-
|
56
|
-
|
57
|
-
``` VBA
|
58
|
-
|
59
|
-
Private Sub btn_1_Click()
|
60
|
-
|
61
|
-
|
62
|
-
|
63
|
-
Dim strFilter As String
|
64
|
-
|
65
|
-
|
66
|
-
|
67
|
-
If Me.tx1 <> "" Then
|
68
|
-
|
69
|
-
strFilter = strFilter & " And Use_Place_la '*" & Me.tx1 & "*'"
|
70
|
-
|
71
|
-
End If
|
72
|
-
|
73
|
-
If Me.tx2 <> "" Then
|
74
|
-
|
75
|
-
strFilter = strFilter & " And Class_1_la '*" & Me.tx2 & "*'"
|
76
|
-
|
77
|
-
End If
|
78
|
-
|
79
|
-
|
80
|
-
|
81
|
-
Me.Filter = Mid(strFilter, 6)
|
82
|
-
|
83
|
-
Me.FilterOn = strFilter <> ""
|
84
|
-
|
85
|
-
|
86
|
-
|
87
|
-
|
88
|
-
|
89
|
-
End Sub
|
90
|
-
|
91
|
-
```
|
92
|
-
|
93
|
-
|
94
|
-
|
95
|
-
エラーメッセージ
|
96
|
-
|
97
|
-
![イメージ説明](552ed18657da6cbc92b50eb80f6ea56d.jpeg)
|
98
|
-
|
99
|
-
|
100
|
-
|
101
|
-
ラベル名:Use_Place_la
|
102
|
-
|
103
|
-
テキストボックス名:tx1
|
104
|
-
|
105
|
-
|
106
|
-
|
107
|
-
ラベル名:Class_1_la
|
108
|
-
|
109
|
-
テキストボックス名:tx2
|
110
|
-
|
111
47
|
|
112
48
|
|
113
49
|
ご教授よろしくお願いします。
|
5
質問文、修正しました
test
CHANGED
File without changes
|
test
CHANGED
@@ -2,7 +2,7 @@
|
|
2
2
|
|
3
3
|
|
4
4
|
|
5
|
-
![
|
5
|
+
![イメージ説明](408258e593cb3bdd0011316e10dd1464.jpeg)
|
6
6
|
|
7
7
|
(当初は非連結でテキストボックスを配置していましたが、その後写真の通りに連結型に変更しました)
|
8
8
|
|
4
追加の質問事項を記入しました
test
CHANGED
File without changes
|
test
CHANGED
@@ -1,6 +1,10 @@
|
|
1
1
|
Accessにて、下記の様な在庫数を管理するフォームを作成しています。
|
2
2
|
|
3
|
+
|
4
|
+
|
3
|
-
![イメージ説明](38
|
5
|
+
![![イメージ説明](1b3451bea8aa3805d77b6acfcb1cdd8c.jpeg)](cf1b85084d58f9b6e076cb2677dee422.jpeg)
|
6
|
+
|
7
|
+
(当初は非連結でテキストボックスを配置していましたが、その後写真の通りに連結型に変更しました)
|
4
8
|
|
5
9
|
|
6
10
|
|
@@ -12,7 +16,23 @@
|
|
12
16
|
|
13
17
|
|
14
18
|
|
19
|
+
|
20
|
+
|
15
21
|
【やりたいこと】
|
22
|
+
|
23
|
+
IDのテキストボックス横に、マスタ検索ボタンを配置し、それを押すと
|
24
|
+
|
25
|
+
ウィンドウorサブフォームにて、商品マスタのデータベースが検索でき、
|
26
|
+
|
27
|
+
その検索結果から一つのレコードを選択すると、
|
28
|
+
|
29
|
+
上記画像のフォームに戻り、選択したID、品名、品番が自動で入力されている
|
30
|
+
|
31
|
+
|
32
|
+
|
33
|
+
|
34
|
+
|
35
|
+
【追記】
|
16
36
|
|
17
37
|
商品マスタの帳票フォームを作成し、コマンドボタンをクリックすると、
|
18
38
|
|
@@ -20,6 +40,74 @@
|
|
20
40
|
|
21
41
|
クリック時のコードはどのように書いたらよろしいでしょうか?
|
22
42
|
|
43
|
+
⇒解決しました。ありがとうございます。
|
44
|
+
|
45
|
+
|
46
|
+
|
47
|
+
【追加質問】
|
48
|
+
|
49
|
+
帳票フォームで複数のテキストボックスからあいまいなキーワードを指定し、
|
50
|
+
|
51
|
+
レコードを抽出したいのですが、下記コードで実行するとエラーとなります。
|
52
|
+
|
53
|
+
何が原因となりますでしょうか?
|
54
|
+
|
55
|
+
|
56
|
+
|
57
|
+
``` VBA
|
58
|
+
|
59
|
+
Private Sub btn_1_Click()
|
60
|
+
|
61
|
+
|
62
|
+
|
63
|
+
Dim strFilter As String
|
64
|
+
|
65
|
+
|
66
|
+
|
67
|
+
If Me.tx1 <> "" Then
|
68
|
+
|
69
|
+
strFilter = strFilter & " And Use_Place_la '*" & Me.tx1 & "*'"
|
70
|
+
|
71
|
+
End If
|
72
|
+
|
73
|
+
If Me.tx2 <> "" Then
|
74
|
+
|
75
|
+
strFilter = strFilter & " And Class_1_la '*" & Me.tx2 & "*'"
|
76
|
+
|
77
|
+
End If
|
78
|
+
|
79
|
+
|
80
|
+
|
81
|
+
Me.Filter = Mid(strFilter, 6)
|
82
|
+
|
83
|
+
Me.FilterOn = strFilter <> ""
|
84
|
+
|
85
|
+
|
86
|
+
|
87
|
+
|
88
|
+
|
89
|
+
End Sub
|
90
|
+
|
91
|
+
```
|
92
|
+
|
93
|
+
|
94
|
+
|
95
|
+
エラーメッセージ
|
96
|
+
|
97
|
+
![イメージ説明](552ed18657da6cbc92b50eb80f6ea56d.jpeg)
|
98
|
+
|
99
|
+
|
100
|
+
|
101
|
+
ラベル名:Use_Place_la
|
102
|
+
|
103
|
+
テキストボックス名:tx1
|
104
|
+
|
105
|
+
|
106
|
+
|
107
|
+
ラベル名:Class_1_la
|
108
|
+
|
109
|
+
テキストボックス名:tx2
|
110
|
+
|
23
111
|
|
24
112
|
|
25
113
|
ご教授よろしくお願いします。
|
3
質問事項と画像の修正を行いしました
test
CHANGED
File without changes
|
test
CHANGED
@@ -1,16 +1,12 @@
|
|
1
1
|
Accessにて、下記の様な在庫数を管理するフォームを作成しています。
|
2
2
|
|
3
|
-
|
4
|
-
|
5
|
-
![イメージ説明](7
|
3
|
+
![イメージ説明](38e732001106887b586bf5c2a5d507eb.jpeg)
|
6
|
-
|
7
|
-
|
8
4
|
|
9
5
|
|
10
6
|
|
11
7
|
データベースは2種類作成しました。
|
12
8
|
|
13
|
-
①商品マスタのデータベース(商品マスタID(オートナンバー、主キー)/
|
9
|
+
①商品マスタのデータベース(商品マスタID(オートナンバー、主キー)/名称1/名称2/図番1/図番2/メーカー等・・・)
|
14
10
|
|
15
11
|
②在庫数の変動を記録するデータベース(在庫数ID(オートナンバー、主キー)/商品マスタID/日付/入庫or出庫/数量/担当者/備考)
|
16
12
|
|
@@ -18,25 +14,11 @@
|
|
18
14
|
|
19
15
|
【やりたいこと】
|
20
16
|
|
21
|
-
|
17
|
+
商品マスタの帳票フォームを作成し、コマンドボタンをクリックすると、
|
22
18
|
|
23
|
-
|
19
|
+
該当のカレントレコードの商品IDが上記フォームのIDに代入されるようにしたいのですが、
|
24
20
|
|
25
|
-
その検索結果から一つのレコードを選択すると、
|
26
|
-
|
27
|
-
上記画像のフォームに戻り、選択したID、品名、品番が自動で入力されている
|
28
|
-
|
29
|
-
|
30
|
-
|
31
|
-
|
21
|
+
クリック時のコードはどのように書いたらよろしいでしょうか?
|
32
|
-
|
33
|
-
|
34
|
-
|
35
|
-
画像ではテキストボックスが非連結で作成されていますが、
|
36
|
-
|
37
|
-
連結とどちらがよいか判断ができなかったので、ひとまず非連結で作成しました。
|
38
|
-
|
39
|
-
特にこだわりはありません。
|
40
22
|
|
41
23
|
|
42
24
|
|
2
質問文、修正しました
test
CHANGED
File without changes
|
test
CHANGED
@@ -10,9 +10,9 @@
|
|
10
10
|
|
11
11
|
データベースは2種類作成しました。
|
12
12
|
|
13
|
-
①商品マスタのデータベース(品番/品名/メーカー等・・・)
|
13
|
+
①商品マスタのデータベース(商品マスタID(オートナンバー、主キー)/品番/品名/メーカー等・・・)
|
14
14
|
|
15
|
-
②在庫数の変動を記録するデータベース(商品マスタID/
|
15
|
+
②在庫数の変動を記録するデータベース(在庫数ID(オートナンバー、主キー)/商品マスタID/日付/入庫or出庫/数量/担当者/備考)
|
16
16
|
|
17
17
|
|
18
18
|
|
@@ -32,4 +32,12 @@
|
|
32
32
|
|
33
33
|
|
34
34
|
|
35
|
+
画像ではテキストボックスが非連結で作成されていますが、
|
36
|
+
|
37
|
+
連結とどちらがよいか判断ができなかったので、ひとまず非連結で作成しました。
|
38
|
+
|
39
|
+
特にこだわりはありません。
|
40
|
+
|
41
|
+
|
42
|
+
|
35
43
|
ご教授よろしくお願いします。
|
1
表題を修正しました
test
CHANGED
@@ -1 +1 @@
|
|
1
|
-
ACCESS VBA フォーム入力時に、データベースの
|
1
|
+
ACCESS VBA フォーム入力時に、データベースの情報を、テキストボックスに引用する方法
|
test
CHANGED
File without changes
|