今回は、Accessのフォームからデータを入力し、入力したデータを基にSQLで検索を行い、抽出した結果をExcelのシートに書き出す処理を解説する。 使用するテーブルは、TIPS「AccessからExcelに接続して開く方法＆Accessで作成したデータをExcelに出力する方法で学ぶ、連携VBAの基本」で作成しておいた、「商品管理テーブル」だ。「商品管理データベース.accdb」をクリックして、Accessを起動しておいてほしい。 Accessのフォームとコントロールの配置 Accessメニューの「作成」→「フォームデザイン」と選択して、「フォームデザイン」の画面を表示する。 「フォーム1」タブの上でマウスの右クリックをして、表示されるメニューから「上書き保存」を選択し、「フォーム名」を「SQLで抽出したデータをExcelに書き出すフォーム」という名前にしておく。すると、フォームの「デザ

えーとVBAになりますがよろしいですか。 サブフォームを使ってらっしゃるのか、そうでないのかが ちょっとわかりませんが、使ってない場合、 新たにメインフォームを作り、サブフォームに先のフォームを指定ください。。 また、ボタンを１個作り、それが押下された時に、実行されます。 下記の例では、 ・サブフォームのコントロール名・・・・「sub1」 ・チェックボックスのフィールド名：：：：「チェック」 としておりますので、適宜ご修正下さい。 ■サブフォームを使っている。 Private Sub コマンド1_Click() Dim tbl Dim cnj Dim sql Dim fld '----チェックボックスの「フィールド名」 fld = "チェック" '----フォームのフィルタ条件を取得 cnj = "" If Me.sub1.Form.FilterOn Then If Me.sub1.For

自分が作ったマクロを他人に使ってもらう場合、「何ができるか」という機能だけでなく、「どのように出来るか」という操作性や、「どう感じるか」という審美性も大事である。 素人の手作り感たっぷりのマクロを、本格的なシステムのように感じさせるのはやはりデザインの力だ。 最初のフォーム ここに、「とりあえず作ってみました」的なフォームを用意した。 仮に機能面は満たしているとしても、少々野暮ったい。 特にWindows10で実行すると、ウインドウが平坦なのでテキストボックスが妙に浮いて見える。(下図) 時代の主流はフラットデザイン。 いつまでこの流行が続くのかは分からないが、時流に逆らったデザインは野暮ったく見えるので、テキストボックスのBorderStyleは1-fmBorderStyleSingleにしておこう。 それから、ラベルやボタンのフォントはデフォルトでは「MS UI Gothic 9ポイン

概要 必要に迫られて簡易的な在庫管理システムを作りました。 在庫管理システムを作るにあたり、それはもう膨大な数のWebサイトを参考にしました。そのまま使えるAccessの在庫管理システムがあればいいのに、そのまま使えるものは一つもありませんでした。そこで在庫管理だけ必要な人向けの簡易なAccessデータベースを作りましたので、それを公開します。 内容につきましては、右側サイドバーより項目をクリックしてご覧ください。 簡易マニュアルも10月末をめどに作成予定です。 このページはパソコンから見ることを前提としております。スマートフォン等におきましては全てが表示されないことがあります。 機能 入出庫 入庫・出庫、またその取り消しができます。保管場所を指定しますが、移動させた際の在庫転送、入庫時に１式としていたものを100個と単位を変換（例えばネジのような）する機能などがあります。品目に安全在庫数

Accessのフォームで受付番号を入力するように作成しています。 受付番号を入力したときに、既に入力済みの番号であればメッセージウィンドウを表示して、重複した番号の入力を防ぐ方法を解説します。 参考ここでは［ドキュメントウィンドウオプション］で［ウィンドウを重ねて表示する］を選択しています。［ウィンドウを重ねて表示する］と［タブ付きドキュメント］の違いについては、以下の記事で解説しています。

公開日：2016-10-30　最終更新日：2021-08-04 ADO(ActiveX Data Objects)の使い方の要点 ADOはMicrosoftが提供するデータベースアクセスのためのソフトウェア部品です。 OLE DBをActiveXコントロールの形で使えるようにしたプログラミングインターフェースになります。 ここでは、ADOを使用したデータベースへの接続方法を解説します。

始めに VBAを使っていると、ファイルを操作したいことがあります。（とりわけ日付順に）ネットで検索すると実装例がいくつか紹介されていますが、コードが比較的煩雑ですが、AccessならDBに取り込んでSQLで並べ替えをすれば楽に出来るのでは無いかと思い開発しました。 しかし、Accessには他のDBにある一時テーブルの作成方法が公式にはありません。そこでRollBack機能を使って擬似的にそうした状態を再現してみました。 実装 基本的なプロセスとしては以下の通りです。 1.テーブルを作成 2.ファイル名を取得 3.並べ替え 4.テーブルを削除 可読性と再利用性を上げるためこのプロセスを実行させるクラスを用意し、標準モジュールから呼び出すことにします。 なお、標準モジュールへ返し値はCollection型とします。 .Countプロパティが使える クラス内でReDim Presaeveを使うよ

マクロ 32回 フォームからリストへの転記をコードに マクロ講座31回でフォームの形状ができましたので、今度はコードを記述していきます。 （サンプルファイルは、こちらから マクロ32回サンプルデータ）

でも、一括送信できるとはいえ、送信前に内容チェックしたいな、ということもありますよね。 そんな時に使えるのが、MailItemオブジェクトのDisplayメソッドです。 今回は、このDisplayメソッドで、VBAで作成したOutlookのメールを、メール送信前に内容をチェックする方法をご紹介します！ MailItemオブジェクトとは何ぞや？については、こちらの記事でご紹介していますので、併せてご覧ください。

サンダーバードって使いやすいですよね。 サンダーバードで自動化でメールが送れたらな～と思って色々と調べてみました。 Outlookを使ったメール操作のVBAマクロは多かったのですが、サンダーバードでメールを送るVBAマクロは、ウェブ上や、本を探しても断片的な情報が多く、コーディングにとても時間がかかってしまったので、自分でまとめました。 細かく場合分けをしているので、必要なVBAマクロをコピーして使って下さい。 ただサンダーバードはメールを作成する所まではできますが、「送信」ができないので、マクロを組むならOutlookの方がお勧めです。

ある日のできごと オートフィルタは皆さん恐らく使ってますよね。特に不便と感じることもなく日々使い続け、徐々に手作業の速度も上がり、ついにはエクセル職人と呼ばれるほど操作が速い方もいると思います。そんな私も誰にも負けない速さを持っていると思ってましたが、ある日後輩が何をしているかわからないような圧倒的な素早さでオートフィルタを操作していたときにはかなわないなと感じました。そこで、後輩が行っていた作業をマクロでワンタッチで実行出来るようにすることにしました。 それってどんな作業？ 例えば次のような表は皆さんの身近でもあると思いますがいかがでしょう。 連結決算ではよく勘定科目やさまざまな属性や金額の羅列といった表を使います。例えばこの表で、列Bの勘定科目がACCT04の項目を絞り込み表示したり、列Dの金額がゼロである項目を絞り込んだりすることをよく行います。皆さんも特定での絞り込み、されますよね

Excelの初心者だった頃、オートフィル（Autofill）を知った時の感動を今でも覚えています。連番の入力や日付などの入力に威力を発揮します。最初はドラッグしてやる方法をマスターし、次にダブルクリックして一気に張り付ける技を身につ行けた方は多いと思います。数式をオートフィルで入れる便利さを知った時、高校数学の行列を想起して、もう少し勉強しておくんだったなと後悔した方も多いことでしょう。 マクロだと、for文などの繰り返し処理でも代用できないこともないのですが、変数を設定したり、「＆」でつなぐコードを書くのも面倒な感じがします。 実務で私はExcelの「vlookUp関数」を多用しており、これをオートフィルで伸ばして、最後に値に変換してを貼り付ける処理によく使っています。 こんな感じです。 要は、上の図にある数式「=VLOOKUP(B2,Sheet2!A:B,FALSE)」を数式としてセル