構文記述の添削願います

Question

m.ts10806さん、
y_waiwaiさん、
sousukeさん
ご指摘ありがとうございました。
ご指摘内容ごもっとです。
大変申し訳ありませんでした。
こんな感じで修正してみました。

【前提・実現したいこと】
ある先生の動画で検索フォームの作成をしています。
動画内の構文を手動転記して実行したのですがエラーが発生し自力では原因を特定できません。
正常に実行できるようにしたいです

　【発生している問題・エラーメッセージ】
エラー：　　　　　　　実行時のエラー'3075':
クエリ式'[ID]'1の構文エラー :演算子がありません。
エラー構文箇所：
DoCmd.ApplyFilter , " [ID] " & Me![周知検索] & " " ’完全一致：数値型

　　

　　　

【問題が発生するまでの流れ・手順】

周知検索テキストボックスにMT_周知テーブルのＩＤを入力しレコードの検索ボタンを押すと
MT_周知テーブルの内容がフォーム上に抽出する仕組みなんですが
エラーが発生してしまう。

テーブル、クエリ、フォームの構成
＜テーブル＞
MT_社員　　　[フィールド名]　　[データー型]
・社員ID　　　　　　オートナンバー型
・社員　　　　　　　短いテキスト
MT_周知　　　[フィールド名]　　[データー型]
・ID　　　　　　　　オートナンバ型
・日時　　　　　　　日付/時刻型
・周知者　　　　　　数値型（ルックアップウィザード"MT_社員")
・社員ID　　　　　　数値型
・大分類　　　　　　短いテキスト
・中分類　　　　　　短いテキスト
・小分類　　　　　　短いテキスト
・内容　　　　　　　長いテキスト
・資料　　　　　　　添付ファイル
・リンク　　　　　　ハイパーリンク型
・開示　　　　　　　Yes/No型　　
＜クエリ＞　
Q_周知　　　[フィールド名]　　[データー型]
・ID　　　　　　　　オートナンバ型
・日時　　　　　　　日付/時刻型
・周知者　　　　　　数値型（ルックアップウィザード"MT_社員")
・社員ID　　　　　　数値型
・大分類　　　　　　短いテキスト
・中分類　　　　　　短いテキスト
・小分類　　　　　　短いテキスト
・内容　　　　　　　長いテキスト
・資料　　　　　　　添付ファイル
・リンク　　　　　　ハイパーリンク型
・開示　　　　　　　Yes/No型　　　　　

＜フォーム＞
フォームヘッダーに
・周知検索テキストＢＯＸ、レコードの検索ボタン、レコードの保存ボタンがあります。

　詳細にMT_周知各フィールドがあります
[フィールド名]　　[データー型]
・ID　　　　　　　　オートナンバ型
・日時　　　　　　　日付/時刻型
・周知者　　　　　　数値型（ルックアップウィザード"MT_社員")
・社員ID　　　　　　数値型
・大分類　　　　　　短いテキスト
・中分類　　　　　　短いテキスト
・小分類　　　　　　短いテキスト
・内容　　　　　　　長いテキスト
・資料　　　　　　　添付ファイル
・リンク　　　　　　ハイパーリンク型
・開示　　　　　　　Yes/No型　　　　　

【ソースコード】
Private Sub　レコードの保存_Click()

   Me![周知検索] = ""   '周知検索のフィールドをクリアにする**
  DoCmd.RunCommand acCmdSaveRecord  'レコードを保存
  DoCmd.GoToRecord , , acNewRec  '新しいレコードへ移動
  

End Sub

Private Sub レコードの検索_Click()

  DoCmd.ApplyFilter , " [ID] " & Me![周知検索] & " "   ’完全一致：数値型   
     

End Sub

Private Sub 周知者_AfterUpdate()

   Me![日時] = Date  '周知者に名前を入力したら日時というフィールドに日付が入る

    Me.[社員ＩＤ] = DLookup("社員ID", "MT_社員", [社員名] = "" & Me![周知者] & "")

End Sub

宜しくおねがいします。

Comments

[m.ts10806]

起きてる場所くらいは辿れるのでは。エラー内容から調べることもできるでしょうし。

あと、「動画を見て打った」は「コピペ」じゃないです。「手動による転記」です。
構文を自分で確かめながら打つしかないのでは。
それに仕様説明なんもなしに「間違ってるかどうか」他人には判断できませんよ。

[y_waiwai]

せめて、エラーメッセージを提示しましょう

[m.ts10806]

こちらはあくまで「質問への追記修正依頼」のコメント欄です。
基本的に質問修正してお返しください。
また、コードはマークダウンにてご提示ください

[m.ts10806]

コードのマークダウン難しい方はこちら
https://teratail.com/questions/238564

あと質問は特定の誰かに対して送るわけではないので宛てなくて良いですし、回答がついたあとに質問をゴッソリかえてしまうと既存回答が「存在しない内容に対する投稿」になってしまうので、できれば元の質問に追記する形で「アドバイスを得て調整した結果」として対応してもらえればと。

Answer 1

全然わからんけどここか？質問の追記に書いてあることはせめて記載しましょう。

Me.[社員ＩＤ] = DLookup("社員ID", "MT_社員", [社員名] = "" & Me![周知者] & "") 

Me.[社員ＩＤ] = DLookup("社員ID", "MT_社員", "[社員名] = '" & Me![周知者] & "'") 

##追記
DoCmd.ApplyFilterはわからんけど多分[ID]に対しての演算子がない

DoCmd.ApplyFilter , " [ID] " & Me![周知検索] & " "   ’完全一致：数値型    

DoCmd.ApplyFilter , " [ID] =" & Me![周知検索] & " "   ’完全一致：数値型    

Comments

[apapokir2]

sousuke様
回答ありがとうございます。
どうも転記間違い箇所が1箇所では無さそうです。
sousuke様の修正箇所は変更しました。
1つの問題箇所は修正出来たような気がします。
ありがとうございます。

[apapokir2]

sousuke様
問題箇所全て解決できました。
勉強になりました！
ありがとうございました。