teratail
回答率
85.35%
teratail header banner
teratail header banner
質問するログイン新規登録
トップに関する質問構文記述の添削願います

編集履歴

質問編集履歴

1

要点の追加

2021/06/21 03:11

投稿

apapokir2
apapokir2

スコア1

test CHANGED
File without changes
test CHANGED
@@ -1,16 +1,164 @@
1
+ m.ts10806さん、
2
+
3
+ y_waiwaiさん、
4
+
5
+ sousukeさん
6
+
7
+ ご指摘ありがとうございました。
8
+
9
+ ご指摘内容ごもっとです。
10
+
11
+ 大変申し訳ありませんでした。
12
+
13
+ こんな感じで修正してみました。
14
+
15
+
16
+
17
+
18
+
19
+ 【前提・実現したいこと】
20
+
1
- ある先生の動画でACCESS検索フォームの勉強をしています。
21
+ ある先生の動画で検索フォームの作成をしています。
2
-
22
+
3
- 動画内の構文の画質が良くない中構文をコピペし実行した結果実行時エラーが発生します。
23
+ 　動画内の構文を手動転記して実行したのですがエラーが発生し自力では原因を特定できません。
4
-
5
- そこでお願いです！
24
+
6
-
7
- 以下の構文であきらかにおかしな点を指摘ねがいます。
25
+ 　正常に実行できるようにしたいです
26
+
27
+
28
+
8
-
29
+ 　【発生している問題・エラーメッセージ】
30
+
31
+ 　エラー：　　　　　　　実行時のエラー'3075':
32
+
33
+ クエリ式'[ID]'1の構文エラー :演算子がありません。
34
+
35
+ 　エラー構文箇所：
36
+
37
+ 　　　　　 DoCmd.ApplyFilter , " [ID] " & Me![周知検索] & " " ’完全一致：数値型
38
+
39
+
40
+
41
+ 　　
42
+
43
+
44
+
45
+ 　　　
46
+
47
+
48
+
49
+ 【問題が発生するまでの流れ・手順】
50
+
51
+
52
+
53
+ 周知検索テキストボックスにMT_周知テーブルのＩＤを入力しレコードの検索ボタンを押すと
54
+
55
+ 　　MT_周知テーブルの内容がフォーム上に抽出する仕組みなんですが
56
+
9
- 宜しくお願いします。
57
+ 　　エラーが発生してしまう。
58
+
59
+
60
+
10
-
61
+ テーブル、クエリ、フォームの構成
62
+
11
-
63
+ ＜テーブル＞
64
+
12
-
65
+ 　MT_社員　　　[フィールド名]　　[データー型]
66
+
67
+ 　　　　　　　　・社員ID　　　　　　オートナンバー型
68
+
69
+ 　　　　　　　　・社員　　　　　　　短いテキスト
70
+
71
+ 　MT_周知　　　[フィールド名]　　[データー型]
72
+
73
+ 　　　　　　　　・ID　　　　　　　　オートナンバ型
74
+
75
+ 　　　　　　　　・日時　　　　　　　日付/時刻型
76
+
77
+ 　　　　　　　　・周知者　　　　　　数値型（ルックアップウィザード"MT_社員")
78
+
79
+ 　　　　　　　　・社員ID　　　　　　数値型
80
+
81
+ 　　　　　　　　・大分類　　　　　　短いテキスト
82
+
83
+ 　　　　　　　　・中分類　　　　　　短いテキスト
84
+
85
+ 　　　　　　　　・小分類　　　　　　短いテキスト
86
+
87
+ 　　　　　　　　・内容　　　　　　　長いテキスト
88
+
89
+ 　　　　　　　　・資料　　　　　　　添付ファイル
90
+
91
+ 　　　　　　　　・リンク　　　　　　ハイパーリンク型
92
+
93
+ 　　　　　　　　・開示　　　　　　　Yes/No型　　
94
+
95
+ ＜クエリ＞　
96
+
97
+ Q_周知　　　[フィールド名]　　[データー型]
98
+
99
+ 　　　　　　　　・ID　　　　　　　　オートナンバ型
100
+
101
+ 　　　　　　　　・日時　　　　　　　日付/時刻型
102
+
103
+ 　　　　　　　　・周知者　　　　　　数値型（ルックアップウィザード"MT_社員")
104
+
105
+ 　　　　　　　　・社員ID　　　　　　数値型
106
+
107
+ 　　　　　　　　・大分類　　　　　　短いテキスト
108
+
109
+ 　　　　　　　　・中分類　　　　　　短いテキスト
110
+
111
+ 　　　　　　　　・小分類　　　　　　短いテキスト
112
+
113
+ 　　　　　　　　・内容　　　　　　　長いテキスト
114
+
115
+ 　　　　　　　　・資料　　　　　　　添付ファイル
116
+
117
+ 　　　　　　　　・リンク　　　　　　ハイパーリンク型
118
+
119
+ 　　　　　　　　・開示　　　　　　　Yes/No型　　　　　
120
+
121
+ 　　
122
+
123
+ ＜フォーム＞
124
+
125
+ 　フォームヘッダーに
126
+
127
+ 　・周知検索テキストＢＯＸ、レコードの検索ボタン、レコードの保存ボタンがあります。
128
+
129
+
130
+
131
+ 　詳細にMT_周知各フィールドがあります
132
+
133
+ 　　[フィールド名]　　[データー型]
134
+
135
+ 　　・ID　　　　　　　　オートナンバ型
136
+
137
+ 　　・日時　　　　　　　日付/時刻型
138
+
139
+ 　　・周知者　　　　　　数値型（ルックアップウィザード"MT_社員")
140
+
141
+ 　　・社員ID　　　　　　数値型
142
+
143
+ 　　・大分類　　　　　　短いテキスト
144
+
145
+ 　　・中分類　　　　　　短いテキスト
146
+
147
+ 　　・小分類　　　　　　短いテキスト
148
+
149
+ 　　・内容　　　　　　　長いテキスト
150
+
151
+ 　　・資料　　　　　　　添付ファイル
152
+
153
+ 　　・リンク　　　　　　ハイパーリンク型
154
+
155
+ 　　・開示　　　　　　　Yes/No型　　　　　
156
+
157
+
158
+
159
+
160
+
13
- 【構文】
161
+ 【ソースコード】
14
162
 
15
163
  Private Sub　レコードの保存_Click()
16
164
 
@@ -34,26 +182,26 @@
34
182
 
35
183
  DoCmd.ApplyFilter , " [ID] " & Me![周知検索] & " " ’完全一致：数値型
36
184
 
185
+
186
+
37
-
187
+ End Sub
188
+
189
+
190
+
191
+ Private Sub 周知者_AfterUpdate()
38
192
 
39
193
 
40
194
 
195
+ Me![日時] = Date '周知者に名前を入力したら日時というフィールドに日付が入る
196
+
197
+
198
+
199
+ Me.[社員ＩＤ] = DLookup("社員ID", "MT_社員", [社員名] = "" & Me![周知者] & "")
200
+
201
+
202
+
41
203
  End Sub
42
204
 
43
205
 
44
206
 
45
- Private Sub 周知者_AfterUpdate()
46
-
47
-
48
-
49
-
50
-
51
- Me![日時] = Date '周知者に名前を入力したら日時というフィールドに日付が入る
52
-
53
-
54
-
55
- Me.[社員ＩＤ] = DLookup("社員ID", "MT_社員", [社員名] = "" & Me![周知者] & "")
56
-
57
-
58
-
59
- End Sub
207
+ 宜しくおねがいします。