Access VBA質問箱 IV

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

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


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

7248 / 9994

←次へ　｜　前へ→


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

わん - 05/8/21(日) 22:00 -


	引用なし

	パスワード

小僧さん：
こんばんわ。

自分なりに考えてみました。

>検索ボタンクリック
>↓
>NULLチェック

ここまでは、今まで教えて頂いたやり方でOKですね。
問題は次ですね。↓のようにしてみました。

If DCount("*", "選手1", "Left(入団日, 4) = '" & Me.コンボ年 & "'") = 0 Then
　　MsgBox "そんな入団年ないよ"
　 ElseIf DCount("*", "選手1", "mid(入団日,6,2) = '" & Me.コンボ月 & "'") = 0 Then
　　MsgBox "そんな入団月ないですよ～"
　 ElseIf DCount("*", "選手1", "ポジション = '" & Me.テキストポジション & "'") = 0 Then
　　MsgBox "そんなポジションないってば"
　 Else
　　 Me.Filter = "Left(入団日, 4) = '" & Me.コンボ年 & "' AND mid(入団日,6,2) = " & Me.コンボ月 & "AND ポジション = '" & Me.テキストポジション & "'"
　　 Me.FilterOn = True
　　 Me.テキスト人数 = Me.Recordset.RecordCount

これで上手くいくのですが、検索結果が“0”のときにMsgBoxが表示されません。
表示させたいのですがどのようにすれば良いのでしょうか？

あと、違った質問になってしまうのですが、
仮に全く同じ条件の人が２人いたとしたら当然検索結果は２となります。
その時に、最下部のレコードの操作ではなく、フォーム上にコマンドボタンか何かのコントロールで
検索できるようにすることは可能なのでしょうか？
もし、できるならどのようにすれば良いのでしょうか？

極力、使用する側がAccessについて知らなくても使用できるように
完成させたいと思っています。

何卒、どうかどうか宜しくお願い致します。

追伸、
前回の処理速度は、コピー＆ペーストを実施後、直ぐのために時間がかかったようですが、
その後は立ち上がりも処理も問題なく瞬時に行われていました。

672 hits

▼

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