質問編集履歴

7

とりやめのとりやめ

2019/12/13 06:10

投稿

jamada
jamada

スコア7

test CHANGED
File without changes
test CHANGED
@@ -165,17 +165,3 @@
165
165
 
166
166
 
167
167
  ```---
168
-
169
-
170
-
171
-
172
-
173
- ここから自力で時間をかけてやってみることにします!
174
-
175
- 解決したら方法を記載します。
176
-
177
- 他の方法では実現できているので,ひとまず自分のできる範囲で完成させることを優先します!
178
-
179
-
180
-
181
- ありがとうございました!

6

追記2,とりやめ

2019/12/13 06:10

投稿

jamada
jamada

スコア7

test CHANGED
File without changes
test CHANGED
@@ -94,7 +94,7 @@
94
94
 
95
95
 
96
96
 
97
- ### 追記2 現在のコード
97
+ ### ~~追記2 現在のコード~~
98
98
 
99
99
 
100
100
 
@@ -164,4 +164,18 @@
164
164
 
165
165
 
166
166
 
167
- ```
167
+ ```---
168
+
169
+
170
+
171
+
172
+
173
+ ここから自力で時間をかけてやってみることにします!
174
+
175
+ 解決したら方法を記載します。
176
+
177
+ 他の方法では実現できているので,ひとまず自分のできる範囲で完成させることを優先します!
178
+
179
+
180
+
181
+ ありがとうございました!

5

試した結果,エラー

2019/12/13 05:59

投稿

jamada
jamada

スコア7

test CHANGED
File without changes
test CHANGED
@@ -91,3 +91,77 @@
91
91
  伝わりますでしょうか…
92
92
 
93
93
  宜しくお願いします。
94
+
95
+
96
+
97
+ ### 追記2 現在のコード
98
+
99
+
100
+
101
+ 教えていただいたように下記を記述しました。
102
+
103
+ が,「このオブジェクトに値を代入することはできません。」とエラーになってしまいました。
104
+
105
+
106
+
107
+ ```AccessVBA
108
+
109
+
110
+
111
+ Option Compare Database
112
+
113
+ Option Explicit
114
+
115
+
116
+
117
+ Private Sub Form_Open(Cancel As Integer)
118
+
119
+ With Forms!F_案件詳細
120
+
121
+ Me.txt依頼者ID = !依頼者ID
122
+
123
+ Me.txt案件名ID = !案件名ID
124
+
125
+ Me.案件ID.DefaultValue = !案件ID
126
+
127
+ Me.Filter = "案件ID=" & !案件ID '数値型の場合
128
+
129
+ Me.FilterOn = True
130
+
131
+ End With
132
+
133
+ End Sub
134
+
135
+ ```
136
+
137
+
138
+
139
+ 依頼者ID,案件名ID,はどちらのテーブルでもテキスト型。案件IDのみどちらも数値型です。
140
+
141
+ デバッグでカーソルを合わせると F_案件詳細 の依頼者IDや案件IDは参照できているようです。
142
+
143
+ 下記イミディエイトウインドウにて
144
+
145
+
146
+
147
+ ```
148
+
149
+ ?Me.txt依頼者ID = !依頼者ID
150
+
151
+ Null
152
+
153
+
154
+
155
+ ?Me.txt依頼者ID
156
+
157
+ Null
158
+
159
+
160
+
161
+ ?!依頼者ID
162
+
163
+ K1001 '正常に参照できているようです
164
+
165
+
166
+
167
+ ```

4

誤字

2019/12/13 05:45

投稿

jamada
jamada

スコア7

test CHANGED
@@ -1 +1 @@
1
- レコード抽出フォームから,一部のテキストボックスに内容を表示させた状態の別のテーブルへの入力フォームを開きたい
1
+ レコード抽出フォームから,一部のテキストボックスに内容を表示させた状態の別のテーブルへの抽出フォームを開きたい
test CHANGED
File without changes

3

質問編集

2019/12/13 05:01

投稿

jamada
jamada

スコア7

test CHANGED
@@ -1 +1 @@
1
- レコード抽出フォームから別フォームを開くとき別フォームの一部のテキストボックスにのみ内容を反映させたい
1
+ レコード抽出フォームから,一部のテキストボックスに内容を表示させた状態の別のテーブルへの入力フォームを開きた
test CHANGED
@@ -4,7 +4,11 @@
4
4
 
5
5
 
6
6
 
7
- 抽出されたレコードの,あるフィールドを,テーブルが元になる別フォームの特定のテキストボックスに反映させたいのですが,可能でしょうか。
7
+ Aのテーブルから抽出されたレコードA-1の,あるフィールドを,Bテーブルが元になる別フォームの特定のテキストボックスに反映させたいのですが,可能でしょうか。
8
+
9
+
10
+
11
+ また,AテーブルとBテーブルにはリレーションシップが設定されていますが,抽出されたレコード情報A-1を基に,別フォームにはレコードを抽出できますでしょうか。
8
12
 
9
13
 
10
14
 

2

質問追記

2019/12/13 05:00

投稿

jamada
jamada

スコア7

test CHANGED
File without changes
test CHANGED
@@ -41,3 +41,49 @@
41
41
  情報が不足しているようであればお教えください。
42
42
 
43
43
  何卒宜しくお願いいたします。
44
+
45
+
46
+
47
+ ### 追記
48
+
49
+ 作成したクエリです。
50
+
51
+ 下記クエリで確かに依頼者・案件名はでました。ありがとうございます。
52
+
53
+ ```SQL
54
+
55
+ SELECT T_行動履歴.行動ID連番, T_行動履歴.行動ID, T_行動履歴.日付,T_行動履歴.開始時間, T_行動履歴.終了時間, T_行動履歴.記録者, T_行動履歴.行動種別, T_行動履歴.内容, T_行動履歴.案件ID, T_案件.依頼者ID, T_案件.案件名ID,
56
+
57
+ FROM T_案件 RIGHT JOIN T_行動履歴 ON T_案件.[案件ID] = T_行動履歴.[案件ID];
58
+
59
+ ```
60
+
61
+ ただ,もうしわけありません,やりたいことの言葉がたりていない質問をしてしまいました。
62
+
63
+
64
+
65
+ ◆T_案件 から抽出したレコードと紐づいた依頼者・案件名を F_行動履歴 ヘッダーに表示する
66
+
67
+ かつ
68
+
69
+ ◆**F_行動履歴 詳細には T_案件 で抽出したレコード(案件ID)に紐づいた行動履歴のレコードを抽出したい(新規レコードの追加もしたい)**
70
+
71
+
72
+
73
+ のでした。言葉足らずで申し訳ありません。
74
+
75
+
76
+
77
+ 例)
78
+
79
+ T_案件 から案件IDが「1」のレコードを抽出して,その状態で F_行動履歴 を開くと
80
+
81
+ ヘッダーに依頼者・案件名が表示され,詳細にはあらかじめ案件ID「1」が入力された状態のT_行動履歴の帳票レコードがフォームで表示されている
82
+
83
+
84
+
85
+
86
+
87
+ 伝わりますでしょうか…
88
+
89
+ 宜しくお願いします。

1

タイトル

2019/12/13 04:46

投稿

jamada
jamada

スコア7

test CHANGED
@@ -1 +1 @@
1
- レコード抽出フォームから別フォームを開くとき,抽出した内容の一部のみ別フォームに反映させたい
1
+ レコード抽出フォームから別フォームを開くとき,別フォームの一部のテキストボックスのみ内容を反映させたい
test CHANGED
File without changes