Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

2506 / 9994

←次へ　｜　前へ→


	【10761】Re:エラーが解決できません

Gin_II

- 08/11/19(水) 20:11 -


	引用なし

	パスワード

> 上記のVBAで　Me.Filter = strCrit　で、実行時エラー3125が発生してしまいます。

エラーメッセージは、

'-----------------------------------------------------
'|' が見つかりません。
パラメータや別名が正しいこと、
無効な文字や区切り記号が含まれていないこと、
または名前が長すぎないことを確認してください。
'-----------------------------------------------------

でしょうか？

> 　　stDocName = ChrW(113) & ChrW(114) & ～省略～

分かりづらいので、

stDocName = "qry リース会社クリエ"

に変更した方がいいと思います。
＃ちなみに、クリエ→クエリですかね ^^;

> Private Sub cmdあ_Click()
> Private Sub cmdカ_Click()
> Private Sub cmdサ_Click()
　　　　：

オプショングループにすれば、一つのイベントで処理できると思いますが、
何かオプショングループでは不都合があるのでしょうか？

> 　　　 strCrit = "部門名フリガナ like `[" & strItem & "]*`"
> 　　　 strCrit = "リース会社フリガナ like `[" & strItem & "]*`"

それぞれ、

strCrit = "部門名フリガナ like '" & strItem & "*'"
strCrit = "リース会社フリガナ like '" & strItem & "*'"

のように修正してみてください。

2,230 hits

▼

【10759】エラーが解決できません 初心者 08/11/19(水) 19:06