Ｐａｇｅ 491 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼クエリ式の構文エラーとは？ EBI 04/1/21(水) 13:08 ┗Re:クエリ式の構文エラーとは？ MJ 04/1/21(水) 13:39 ┣Re:クエリ式の構文エラーとは？ EBI 04/1/21(水) 15:12 ┗Re:クエリ式の構文エラーとは？ EBI 04/1/21(水) 15:14 ─────────────────────────────────────── ■題名 ： クエリ式の構文エラーとは？ ■名前 ： EBI <ebi@gctv.ne.jp> ■日付 ： 04/1/21(水) 13:08 -------------------------------------------------------------------------
| Access2000でしかられます。 どなたかご教授お願いします。 クエリ式'[受付番号]='の構文エラー:演算式がありません。 というものです。 フォーム[登記完了指定]にテキストボックスを１つ置いて、入力してからＯＫボタンで次のフォーム[登記完了入力]を開くようにしました。 テキストボックスにデータを入力してからＯＫボタンを押せば問題ないのですが、空白のままＯＫボタンを押すと、このエラーが出ます。 フォーム[登記完了入力]のプロパティーで、フィルタの所が[受付番号]=123123123と前に入力したデータが表示されています。 以下は[登記完了指定]のコードです。 Option Explicit Option Compare Database Private Sub cmd1_Click() If IsNull(Me.受付番号) Then MsgBox "受付番号が入力されてません｡", vbExclamation, "システム管理人" End If On Error GoTo Err_cmd1_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = "登記完了入力" stLinkCriteria = "[受付番号]=" & Me![受付番号] DoCmd.OpenForm stDocName, , , stLinkCriteria Exit_cmd1_Click: Exit Sub Err_cmd1_Click: MsgBox Err.Description Resume Exit_cmd1_Click End Sub |
| こんにちは。 受付番号が必須入力なら、 If IsNull(Me.受付番号) Then MsgBox "受付番号が入力されてません｡", vbExclamation, "システム管理人" Exit Sub End If とされれば、よろしいかと、 必須入力でないなら、 If IsNull(Me.受付番号) Then stLinkCriteria = "" Else stLinkCriteria = "[受付番号]=" & Me![受付番号] End If DoCmd.OpenForm stDocName, , , stLinkCriteria とされれば、よろしいのではないでしょうか。 |
| ▼MJ さん： >こんにちは。 > 早速の回答ありがとうございました。 Exit Sub だけで解決できるとは・・・。 |
| ▼MJ さん： >こんにちは。 > 種別を間違えました。すみません。 |