m.ts10806さん、
y_waiwaiさん、
sousukeさん
ご指摘ありがとうございました。
ご指摘内容ごもっとです。
大変申し訳ありませんでした。
こんな感じで修正してみました。
【前提・実現したいこと】
ある先生の動画で検索フォームの作成をしています。
動画内の構文を手動転記して実行したのですがエラーが発生し自力では原因を特定できません。
正常に実行できるようにしたいです
【発生している問題・エラーメッセージ】
エラー: 実行時のエラー'3075':
クエリ式'[ID]'1の構文エラー :演算子がありません。
エラー構文箇所:
DoCmd.ApplyFilter , " [ID] " & Me![周知検索] & " " ’完全一致:数値型
【問題が発生するまでの流れ・手順】
周知検索テキストボックスにMT_周知テーブルのIDを入力しレコードの検索ボタンを押すと
MT_周知テーブルの内容がフォーム上に抽出する仕組みなんですが
エラーが発生してしまう。
テーブル、クエリ、フォームの構成
<テーブル>
MT_社員 [フィールド名] [データー型]
・社員ID オートナンバー型
・社員 短いテキスト
MT_周知 [フィールド名] [データー型]
・ID オートナンバ型
・日時 日付/時刻型
・周知者 数値型(ルックアップウィザード"MT_社員")
・社員ID 数値型
・大分類 短いテキスト
・中分類 短いテキスト
・小分類 短いテキスト
・内容 長いテキスト
・資料 添付ファイル
・リンク ハイパーリンク型
・開示 Yes/No型
<クエリ>
Q_周知 [フィールド名] [データー型]
・ID オートナンバ型
・日時 日付/時刻型
・周知者 数値型(ルックアップウィザード"MT_社員")
・社員ID 数値型
・大分類 短いテキスト
・中分類 短いテキスト
・小分類 短いテキスト
・内容 長いテキスト
・資料 添付ファイル
・リンク ハイパーリンク型
・開示 Yes/No型
<フォーム>
フォームヘッダーに
・周知検索テキストBOX、レコードの検索ボタン、レコードの保存ボタンがあります。
詳細に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.[社員ID] = DLookup("社員ID", "MT_社員", [社員名] = "" & Me![周知者] & "")
End Sub
宜しくおねがいします。
![guest](/img/icon/icnUserSample.jpg)
回答1件
あなたの回答
tips
プレビュー