Access VBA質問箱 IV

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

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


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

2493 / 9994

←次へ　｜　前へ→


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

Gin_II - 08/11/20(木) 16:20 -


	引用なし

	パスワード

> フィルターにリース会社ともう一つ追加で銀行関係を追加しようと思っています。

同じフォーム（同じレコードソース）に、リース会社・銀行関係が入っている
のでしょうか？

フィルタ対象というコントロールは、何を使っているのでしょうか？
オプショングループであれば、そこに銀行関係を追加して、

> If Me.フィルタ対象 = 1 Then
> 　　strCrit = "部門名フリガナ like '[" & strItem & "]*'"
> 　　StrOrder = "部門名フリガナ"
> Else
> 　　strCrit = "リース会社フリガナ like '[" & strItem & "]*'"
> 　　StrOrder = "リース会社フリガナ"
> End If

Select Case Me!フィルタ対象
　　Case 1
　　　　strCrit = "部門名フリガナ like '[" & strItem & "]*'"
　　　　StrOrder = "部門名フリガナ"
　　Case 2
　　　　strCrit = "リース会社フリガナ like '[" & strItem & "]*'"
　　　　StrOrder = "リース会社フリガナ"
　　Case 3
　　　　strCrit = "銀行関係フリガナ like '[" & strItem & "]*'"
　　　　StrOrder = "銀行関係フリガナ"
End Select

のようにすれば大丈夫だと思います。

> 上記のプログラムでリース会社の検出のVBAを入力しているのですが、検出できません。

もしかして、
・部門名
・リース会社
・銀行関係
は、それぞれ別のテーブルとかですか？

1,875 hits

▼

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