Access VBA質問箱 IV

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

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


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

2491 / 9994

←次へ　｜　前へ→


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

初心者 - 08/11/20(木) 16:48 -


	引用なし

	パスワード

▼Gin_II さん：
>> フィルターにリース会社ともう一つ追加で銀行関係を追加しようと思っています。
>
>同じフォーム（同じレコードソース）に、リース会社・銀行関係が入っている
>のでしょうか？
>
>フィルタ対象というコントロールは、何を使っているのでしょうか？
>オプショングループであれば、そこに銀行関係を追加して、
>
>> 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を入力しているのですが、検出できません。
>
>もしかして、
>・部門名
>・リース会社
>・銀行関係
>は、それぞれ別のテーブルとかですか？

Gin_II様へ
本当にありがとうございます。
上記のプログラムを修正したら、無事に動くようになりました。
本当にありがとうございます。

まだ、Access,VBAをはじめて数日で困っていたところでした。とても感謝しています。

まだまだ、データベースの製作途中で、分からない事がたくさんありますが、また、機会があったらご教授をして頂けたら嬉しいです。
本当にありがとうございました。
めげずに頑張っていきます。

1,916 hits

▼

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