質問編集履歴
6
追加質問を、新しい質問と分けるために修正しました
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -21,37 +21,5 @@
|
|
|
21
21
|
クリック時のコードはどのように書いたらよろしいでしょうか？
|
|
22
22
|
⇒解決しました。ありがとうございます。
|
|
23
23
|
|
|
24
|
-
【追加質問】
|
|
25
|
-
帳票フォームで複数のテキストボックスからあいまいなキーワードを指定し、
|
|
26
|
-
レコードを抽出したいのですが、下記コードで実行するとエラーとなります。
|
|
27
|
-
何が原因となりますでしょうか？
|
|
28
24
|
|
|
29
|
-
``` VBA
|
|
30
|
-
Private Sub btn_1_Click()
|
|
31
|
-
|
|
32
|
-
Dim strFilter As String
|
|
33
|
-
|
|
34
|
-
If Me.tx1 <> "" Then
|
|
35
|
-
strFilter = strFilter & " And Use_Place_la '*" & Me.tx1 & "*'"
|
|
36
|
-
End If
|
|
37
|
-
If Me.tx2 <> "" Then
|
|
38
|
-
strFilter = strFilter & " And Class_1_la '*" & Me.tx2 & "*'"
|
|
39
|
-
End If
|
|
40
|
-
|
|
41
|
-
Me.Filter = Mid(strFilter, 6)
|
|
42
|
-
Me.FilterOn = strFilter <> ""
|
|
43
|
-
|
|
44
|
-
|
|
45
|
-
End Sub
|
|
46
|
-
```
|
|
47
|
-
|
|
48
|
-
エラーメッセージ
|
|
49
|
-
|
|
50
|
-
|
|
51
|
-
ラベル名：Use_Place_la
|
|
52
|
-
テキストボックス名：tx1
|
|
53
|
-
|
|
54
|
-
ラベル名：Class_1_la
|
|
55
|
-
テキストボックス名：tx2
|
|
56
|
-
|
|
57
25
|
ご教授よろしくお願いします。
|
5
質問文、修正しました
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -1,6 +1,6 @@
|
|
|
1
1
|
Accessにて、下記の様な在庫数を管理するフォームを作成しています。
|
|
2
2
|
|
|
3
|
-
|
|
4
4
|
(当初は非連結でテキストボックスを配置していましたが、その後写真の通りに連結型に変更しました)
|
|
5
5
|
|
|
6
6
|
データベースは2種類作成しました。
|
4
追加の質問事項を記入しました
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -1,13 +1,57 @@
|
|
|
1
1
|
Accessにて、下記の様な在庫数を管理するフォームを作成しています。
|
|
2
|
-
|
|
3
2
|
|
|
3
|
+
](cf1b85084d58f9b6e076cb2677dee422.jpeg)
|
|
4
|
+
(当初は非連結でテキストボックスを配置していましたが、その後写真の通りに連結型に変更しました)
|
|
5
|
+
|
|
4
6
|
データベースは2種類作成しました。
|
|
5
7
|
①商品マスタのデータベース（商品マスタID(オートナンバー、主キー)/名称１/名称２/図番１/図番２/メーカー等・・・）
|
|
6
8
|
②在庫数の変動を記録するデータベース（在庫数ID(オートナンバー、主キー)/商品マスタID/日付/入庫or出庫/数量/担当者/備考）
|
|
7
9
|
|
|
10
|
+
|
|
8
11
|
【やりたいこと】
|
|
12
|
+
IDのテキストボックス横に、マスタ検索ボタンを配置し、それを押すと
|
|
13
|
+
ウィンドウorサブフォームにて、商品マスタのデータベースが検索でき、
|
|
14
|
+
その検索結果から一つのレコードを選択すると、
|
|
15
|
+
上記画像のフォームに戻り、選択したID、品名、品番が自動で入力されている
|
|
16
|
+
|
|
17
|
+
|
|
18
|
+
【追記】
|
|
9
19
|
商品マスタの帳票フォームを作成し、コマンドボタンをクリックすると、
|
|
10
20
|
該当のカレントレコードの商品IDが上記フォームのIDに代入されるようにしたいのですが、
|
|
11
21
|
クリック時のコードはどのように書いたらよろしいでしょうか？
|
|
22
|
+
⇒解決しました。ありがとうございます。
|
|
12
23
|
|
|
24
|
+
【追加質問】
|
|
25
|
+
帳票フォームで複数のテキストボックスからあいまいなキーワードを指定し、
|
|
26
|
+
レコードを抽出したいのですが、下記コードで実行するとエラーとなります。
|
|
27
|
+
何が原因となりますでしょうか？
|
|
28
|
+
|
|
29
|
+
``` VBA
|
|
30
|
+
Private Sub btn_1_Click()
|
|
31
|
+
|
|
32
|
+
Dim strFilter As String
|
|
33
|
+
|
|
34
|
+
If Me.tx1 <> "" Then
|
|
35
|
+
strFilter = strFilter & " And Use_Place_la '*" & Me.tx1 & "*'"
|
|
36
|
+
End If
|
|
37
|
+
If Me.tx2 <> "" Then
|
|
38
|
+
strFilter = strFilter & " And Class_1_la '*" & Me.tx2 & "*'"
|
|
39
|
+
End If
|
|
40
|
+
|
|
41
|
+
Me.Filter = Mid(strFilter, 6)
|
|
42
|
+
Me.FilterOn = strFilter <> ""
|
|
43
|
+
|
|
44
|
+
|
|
45
|
+
End Sub
|
|
46
|
+
```
|
|
47
|
+
|
|
48
|
+
エラーメッセージ
|
|
49
|
+
|
|
50
|
+
|
|
51
|
+
ラベル名：Use_Place_la
|
|
52
|
+
テキストボックス名：tx1
|
|
53
|
+
|
|
54
|
+
ラベル名：Class_1_la
|
|
55
|
+
テキストボックス名：tx2
|
|
56
|
+
|
|
13
57
|
ご教授よろしくお願いします。
|
3
質問事項と画像の修正を行いしました
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -1,22 +1,13 @@
|
|
|
1
1
|
Accessにて、下記の様な在庫数を管理するフォームを作成しています。
|
|
2
|
+
|
|
2
3
|
|
|
3
|
-
|
|
4
|
-
|
|
5
|
-
|
|
6
4
|
データベースは2種類作成しました。
|
|
7
|
-
①商品マスタのデータベース（商品マスタID(オートナンバー、主キー)/
|
|
5
|
+
①商品マスタのデータベース（商品マスタID(オートナンバー、主キー)/名称１/名称２/図番１/図番２/メーカー等・・・）
|
|
8
6
|
②在庫数の変動を記録するデータベース（在庫数ID(オートナンバー、主キー)/商品マスタID/日付/入庫or出庫/数量/担当者/備考）
|
|
9
7
|
|
|
10
8
|
【やりたいこと】
|
|
11
|
-
IDのテキストボックス横に、ボタンを配置し、それを押すと
|
|
12
|
-
|
|
9
|
+
商品マスタの帳票フォームを作成し、コマンドボタンをクリックすると、
|
|
13
|
-
その検索結果から一つのレコードを選択すると、
|
|
14
|
-
上記
|
|
10
|
+
該当のカレントレコードの商品IDが上記フォームのIDに代入されるようにしたいのですが、
|
|
11
|
+
クリック時のコードはどのように書いたらよろしいでしょうか？
|
|
15
12
|
|
|
16
|
-
という風にしたいのですが、如何したらよろしいでしょうか？
|
|
17
|
-
|
|
18
|
-
画像ではテキストボックスが非連結で作成されていますが、
|
|
19
|
-
連結とどちらがよいか判断ができなかったので、ひとまず非連結で作成しました。
|
|
20
|
-
特にこだわりはありません。
|
|
21
|
-
|
|
22
13
|
ご教授よろしくお願いします。
|
2
質問文、修正しました
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -4,8 +4,8 @@
|
|
|
4
4
|
|
|
5
5
|
|
|
6
6
|
データベースは2種類作成しました。
|
|
7
|
-
①商品マスタのデータベース（品番/品名/メーカー等・・・）
|
|
7
|
+
①商品マスタのデータベース（商品マスタID(オートナンバー、主キー)/品番/品名/メーカー等・・・）
|
|
8
|
-
②在庫数の変動を記録するデータベース（商品マスタID/
|
|
8
|
+
②在庫数の変動を記録するデータベース（在庫数ID(オートナンバー、主キー)/商品マスタID/日付/入庫or出庫/数量/担当者/備考）
|
|
9
9
|
|
|
10
10
|
【やりたいこと】
|
|
11
11
|
IDのテキストボックス横に、ボタンを配置し、それを押すと
|
|
@@ -15,4 +15,8 @@
|
|
|
15
15
|
|
|
16
16
|
という風にしたいのですが、如何したらよろしいでしょうか？
|
|
17
17
|
|
|
18
|
+
画像ではテキストボックスが非連結で作成されていますが、
|
|
19
|
+
連結とどちらがよいか判断ができなかったので、ひとまず非連結で作成しました。
|
|
20
|
+
特にこだわりはありません。
|
|
21
|
+
|
|
18
22
|
ご教授よろしくお願いします。
|
1
表題を修正しました
title
CHANGED
|
@@ -1,1 +1,1 @@
|
|
|
1
|
-
ACCESS VBA フォーム入力時に、データベースの
|
|
1
|
+
ACCESS VBA フォーム入力時に、データベースの情報を、テキストボックスに引用する方法
|
body
CHANGED
|
File without changes
|