テーマは、PATDATAにおける案件検索です。PATDATA等の期限管理ソフトを使う場合、出願案件ごとに整理番号をつけます。自社の番号、顧客の番号、更に外国案件であれば外国代理人の整理番号と、様々な識別子としての整理番号をつけます。今日は、その整理番号をもとに検索するExcelを作ります。[参照設定]で設定したオブジェクトの読み込みを行ってください。Basic部分では、次にVBAのコードを記載します。関数名は、numberSearch()としました。マクロの呼び出し画面から動作させる場合は、この関数名を探して、実行してください。ODBCのDSNで接続する。テキストボックスを表示して入力を受け付ける。InputBox("整理番号を入力してください。Sub前回とほぼ同じ構成です。異なるのは、InputBox()関数を使って、ユーザーからの入力を受け付けることにあります。このnumberSearch()関数を開いているところで[F5]を押すなどして関数を実行すると左図のような画面が表示されます。表示されたテキストボックスに検索したい案件番号の一部を入力します。入力して[OK]ボタンをクリックすると、入力された値が変数のstrTempに代入されます。仮に「A1」とします。通常は、ここでstrTempの内容が適切であるかチェックしたり、テキストボックスで[キャンセル]を押されたかどうかのチェックを入れます。入力された値「A1」は、SQL文の一部にくっつける形で挿入します。And...」といった形でSQL文のWhere句の条件として取り込まれます。次に入力された値「A1」が、SQL文に挿入された状態のSQL部分を抽出して、改行とインデントを入れて記します。'01'PATDATAのデータベースは、[受付日]や[当方整理番号]を構成要素に持つ[M受付]テーブルと、発明の名称等を入れる[名称・日本語]や[出願日]を構成要素に持つ[M出願手続]テーブルとを有しています。今回は、[当方整理番号]に対して、Like演算子を使い、入力された文字の前後にワイルドカードの%をつけて、部分一致ができる検索条件を作りました。結果としては、右図のようになります。自社の整理番号、発明の名称及び出願日が一覧として表示されます。検索領域を「発明の名称」にしたり、応用は容易だと思います。VBAの入力機能とSQL文との連携によりPATDATAのデータをより簡単に検索することができるようになると思います。「PATDATAを活用しよう」第2回は、これにて終了です。コメントをキャンセルメールアドレスが公開されることはありません。.Translate。