| |
すみません、うまい文章がかけません。分かりにくかったら、読み飛ばして、（C）以降を呼んでください
(A)
If Me.Filter = "" Then
strWhere = True
Else
strWhere = Me.Filter
End If
上記ロジックが存在すると思いますが、Me.Filterの値をstrWhere変数に代入しています。
このMe.Filterは、フォームのプロパティのはずで、SQLのWHERE句の「WHERE」を外した部分が
格納されているはずです。その値が「カラム名＝値（又はカラム名）」形式になっているはずです。
このsteWhereをSQL作成に使用しているため、steWhereに格納されている条件式にもエイリアスが必要となるはずです。「エイリアス．カラム名＝値（又はエイリアス．カラム名）」
値の確認方法は、マウスを変数の上に持っていくか、イミディエイトウィンドウを使用します。(C)を参照
(B)
「３を指定してください」というエラー自体は
Set rs = db.OpenRecordset(strSQL, dbOpenSnapshot)
の実行時に発生しているはずで、SQLのロジックエラーと理解してください。つまり、SQLとしては成立していないはずです。
(C)
生成されたSQLを見せていただいた方が速いと思います。
SQLの問題であることは、エラーを見る限り間違いありません。
どこまでご存知か不明のため、念のため記載します。
１．以下の行にカーソルを合わせる
Set rs = db.OpenRecordset(strSQL, dbOpenSnapshot)
２．「F９」キーを押す。ブレークポイントが作られ行の背景が茶っぽくなります。
３．２．までを実行した上で、問題が発生するパターンでプログラムを実行
４．プログラム実行がブレークポイントで止まります。
５．イミディエイトウィンドウに「?strSQL」と打って「Enter」
６．変数内に格納されているSQL文が表示されます。
※イミディエイトウィンドウが表示されていない場合は、メニューの表示(V)→イミディエイトウィンドウ(I)で表示させます。
|
|
247b
- 10/4/5(月) 20:23 -
![[未読]](./data/access/image/read_icon.gif){kind=icon}
