Access VBA質問箱 IV

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

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


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

7323 / 9994

←次へ　｜　前へ→


	【5865】Re:時間の計算について

わん - 05/8/17(水) 11:05 -


	引用なし

	パスワード

>小僧さん
>こんにちわ。
その後、全て時間計算についてのデータベースが出来上がりました。

お礼を兼ねてご報告申し上げます。
本当にありがとうございました。

ところで、過去ログ【5570】について教えて頂きたいのですが、
私も、同じように今回の時間計算結果の確認用として
フォームを使って複数検索をやって見たのですが上手くいきません。

フォームの元になるデータはクエリです。

↓のようにしてみたのですがMe.Filter = Kensakuで引っかかってしまいます。
何がいけないのでしょうか？
テキスト検索：テキストボックス
検索：コマンドボタン

Private Sub 検索_Click()
　Dim Kensaku As String
Dim S As Variant
Dim I As Long
　　If InStr(1, Me.テキスト検索.Value, ",") > 0 Then
　　　　S = Split(Me.テキスト検索.Value, ",")
　　　　　　For I = 0 To UBound(S, 1)
　　　　　　　　Kensaku = Kensaku & "([月度] And [氏名] LIKE '*" & S(I) & "*') And "
　　　　　　Next
　　　　Kensaku = Left(Kensaku, Len(Kensaku) - 4)
　　Else
　　　　Kensaku = "[月度] and [氏名]　LIKE '*" & Me.テキスト検索.Value & "*'"
　　End If
　　
　 Me.Filter = Kensaku
　 Me.FilterOn = True
End Sub

お忙しいところ申し訳ありませんが宜しくお願いします。

545 hits

▼

【5829】時間の計算について わん 05/8/11(木) 14:01