<HOME  <お願い事項  <Access2000 TOP   <Access97 TOP   <サイト内検索
  Ac2002--VBAの沼 > 検索して、追加
 



ではでは、今までお話してきたことを組み合わせてみますね。

こういうプロシージャがあったとします。
処理の対象となるテーブルはこんな感じです。

InputBoxを使って、商品名と値段をテーブルに追加するプロシージャですね。
でも、このままだと、ダブって入力しちゃう可能性も大、ですよね。

そこで、商品名をチェックをして、同名のものがあったら追加をしない、という処理にしようかな、と思います。

こんな感じでどうでしょう。
これで、商品名と値段をInputBoxから入力した後、商品名で検索をして、EOFまで到達したら1件もないってことなので、ふつうにAddNewしてからLoopを抜け、1件でも見つかったら「既に登録されているみたいです」というメッセージを出して、これまたLoopを抜けます。
Loopを抜ける処理が2箇所になっちゃってて、この辺もっとすっきりできそうな気がしますが・・・でもこれでもソコソコ動くんじゃないかと思いますよ。

こういう「検索して、あったら追加しない、なかったら追加」みたいな処理って、結構需要があるんじゃないかと思うんですよ。
もう少し、テーブルの扱いに慣れてきたら、もうちょっと工夫してみましょう。