Access2000 VBAテクニックプログラム集

ソフト制作においてビジュアルベーシックに比べるとAccessでソフト制作する方がかなり難しいような気がしますが、オフィスになどに入っているためすぐに使用できる点にあります。

周囲の人からAccessを教えて欲しい等の要望があるためプログラム集を作ってみました。

◎説明

アクセスを開いたらデータベースにあるMENUをダブルクリックして開いてください。

【クエリー編】

◆数字が偶数か奇数かを判断する◆
Mod関数を使って単純に数値が偶数か奇数かを判断するものです。

◆在庫確認に「補充しましょう！」を表示する◆
IIf関数を使って在庫が５０以下になった時に「補充しましょう！」を表示させるものです。


【フォーム・VBA編】

◆生年月日を入力しますと現在の年齢を表示します◆
このプログラムは入社年月日から勤務年数を求めるもことにも応用出来ます。
今日の曜日表示と来年の誕生日の曜日表示も加えてみました。

◆現在の日付と時刻を表示する◆
数字１を入力してクリックすると現在の日付と時刻を表示します。
ただ表示するだけでは面白くないので曜日毎に文字の色が変わります。

◆奇数と偶数を判定します◆
数値を入力してから奇数・偶数の判定をします。
（１０桁を越える判定ですとオーバーフローします）

◆数値の範囲から合否の判定をします◆
合格基準の範囲を入力してから数値を判定を結果に合格・不合格を表示します。

◆入力した文字や数字を点滅表示します◆
文字や数字などを入力した後表示ボタンをクリックしますと下に色違いに点滅表示します。

◆コントロールボタン◆
下のレコードにあるボタンとほぼ同様の機能です。新規ボタンをクリックすると
ＩＤカウントが自動的に数字がカウントされます。

◆メッセージボタンの表示◆
終了させるときや何かのメッセージを表示させたい時に使用します。
メッセージ表示を２行で表示しているのに注目してください。

◆隠れている日付を表示◆
９９または０の数字を入力すると隠れている日付を同じ行にそれぞれ表示されます。

◆必要ののないボタンを隠します◆
チェックボタンにチェックを入れるとボタンを隠します。
チェックを外すと再びボタンが表示されます。

◆開いた時に日付を表示◆
今日から１ヶ月の表示
今月１ヶ月の表示
月初め、今日、月末日の表示

◆値を入力することによりボタンを有効にします◆
ＡまたはＢを入力することにより抽出ボタンを使用可能にしてクリックして商品区分ＩＤの
Ａ××××、Ｂ××××のグループの抽出をそれぞれします。

◆処理時間に時間がかかる時のメッセージ◆
処理に時間がかかるときにメッセージ表示と砂時計を表示します。

◆今日の日付と時計を表示します◆
上記で今日の日付を時間を表示するのを時計表示するものに変えてみました。

◆背景色の色を変えます◆
テキストＢＯＸの背景色をリストＢＯＸから選択した色にします。

◆オープニング画面からＭＥＮＵフォームを開きます◆
オープニング画面が閉じると自動的にＭＥＮＵフォーム開きます。

◆クエリーの在庫確認の「補充しましょう」を点滅させる◆
クエリーで在庫確認を表示するのを強調させるため「補充しましょう」を点滅させます。

◆入力した値がエラーの時にメッセージを表示させます◆
入力した値が数字でないときに数字入力を正すメッセージを表示します。
入力した値が数字でないときにエラー番号とエラー内容を表示します。

◆消費税計算方法を選択して算出します◆
消費税計算を小数点の四捨五入、切り上げ、切り捨てを選択して計算します。

◆オプションボタン選択してコマンドボタンを変更します◆
オプションボタンを選択することでコマンドボタンを変更ができます。

◆カレンダーから簡単なスケジュールを入力ができます◆
ActiveXコントロール（カレンダーコントロール）を使って簡単なスケジュール管理ができます。

◆カレンダーをスライドしながら表示します◆
カレンダーの表示をスライドさせながら表示します。
カレンダーの日付をクリックすると各テキストに日付が入力されます。

◆画像をスライドしながら表示します◆
上記のカレンダー表示と同じものです。
ボタンクリックすると画像がスライドしながら表示されます。

◆アクセスした数をカウントします◆
フォームを開くとカウントされます。本日のカウント、今月のカウント、カウント件数が表示されます。
時間毎に違うメッセージが案内されます。今日の日付と時間も表示されます。

◆テキストを移動して表示させます◆
２つのテキストボックスを交互に点滅させると移動しているように見えます。

◆パスワードを入力してメニューを開きます◆
パスワードを入力してOKをクリックするとメニューが開きます。
間違えたり、空白でOKをクリックすると鉄仮面フォームが開き爆発音がなります。

◆左上から右下へスライドしながらフォームが開閉します◆
開くときにフォームが左上から右下にスライドして開きます。
閉じるときにフォームが右下から左上にスライドしながら閉じます。

◆MIDIシーケンスが立ち上がります◆
クリックすると予め設定してあるMIDIシーケンスが立ち上がって曲が鳴ります。

◆切り替えボタンでフォームの背景色を変える◆
選択ボタンの切り替えによってフォームの背景色を変えることができます。

◆今日の運勢を占うプログラムです◆
ボタンをクリックするとRnd関数を用いて今日の「占い」を行うプログラムです。

◆行の色を交互に変えるレポート＆線の種類を変える◆
レポートを開くときに行の色を交互に表示するようにします。

◆一定時刻経過するとフォームを閉じる◆
30秒経過するとフォームが自動に閉じます。

◆日付を入力すると一ヶ月後の日付を自動採で入ります◆
集計期間の入力の際に、始まりの日付を入力すると自動際で後の日付が入ります。

◆コンボボックスのデータをテーブルからもってくる◆
テーブルにある得意先データをコンボボックスで選択出来るようにする。

◆チェックボックスにチェックを入れると編集がロックされます◆
フォームで表示しているデータをチェックボックスにチェックを入れると編集がロックされます。