2009/05/06
Access 実践入門 第８７号
-------------------------------------------
Access 実践入門 第８７号 (2009.5.6)
-------------------------------------------
こんにちは、Access実践入門の佐藤です。
ゴールデンウイークも、終わりですね〜
楽しめましたか？
ゆっくり休めましたか？
私は、体調を崩して、１日寝てたりして、
あっという間でした・・・
この時期、転勤とか、移動があった方は、疲れが出る頃です。
お気を付けください
【１】Accessの関数
【２】関数を作ってみる
【３】サンプルプログラムの募集
【４】次回予告
【５】編集後記
---------------------------------------------------------------------
【１】Accessの関数
---------------------------------------------------------------------
アクセスで、とても便利な機能に、関数があります。
関数というのは、複雑な処理の答えを返してくれるものです
決められた、数字や文字を関数に入れてやると、答えが返ってきます。
アクセスでは、たくさんの便利な関数が最初から用意されています。
それは、ライブラリーの中に、入っているのです。
関数は、もともと、自分で作っていくものです。
自分がプログラミングしているなかで、よく使う処理が出てきます。
それを、毎回、プログラムを書いていたら面倒です。
そういう処理を、登録しておくのです。
自作の関数が貯まってくると、作業効率が上がります。
【２】関数を作ってみる
---------------------------------------------------------------------
生年月日を入れたら、その日の年齢を返す、関数を考えてみます。
フォームに、
生年月日を入力するコントロール「生年月日」
年齢を表示するコントロール「年齢」
を作ります。
「生年月日」の「フォーカス喪失時」に次のように書きます。
Private Sub 生年月日_Exit(Cancel As Integer)
Me![年齢] = Nenrei(Me![生年月日])
End Sub
Nenrei()という自作の関数に生年月日の引数を入れて、呼び出して
答えを「年齢」に入れています。
モジュールに、
次のようなプロシージャを作っています。
Public Function Nenrei(umare As Date)
Dim tosi As Integer
If Format(Date, "mmdd") >= Format(umare, "mmdd") Then
tosi = DateDiff("yyyy", umare, Date)
Else
tosi = DateDiff("yyyy", umare, Date) - 1
End If
Nenrei = tosi
End Function
月日を今日の月日と比べてみて、経過年数を返します。
誕生日が到来していれば、１つ多くなるわけです。
自作関数に関して、詳しく説明されているサイトを紹介しておきます
http://www.accessclub.jp/module/index.html
【３】サンプルプログラムの募集
---------------------------------------------------------------------
いろいろメルマガ用のサンプルプログラムを作ってきたのですが
ネタ切れで・・・・
何か、このようなサンプルプログラムはどうでしょう？
という、提案がございましたら、このメールに返信してください
「在庫管理付き売上管理システム」とかの複雑な物は勘弁してください。
作るだけで大変なので・・・
簡単にできそうな物がいいです。
よろしくお願いします。m(__)m
【４】次回予告
---------------------------------------------------------------------
次回、読者の方にプレゼントがあります
【５】編集後記
---------------------------------------------------------------------
ゴールデンウイークが終わると、
何か、疲れが出そうな感じですね〜
みなさん、毎日、目標をもって、頑張りましょう
あぁ〜、熱が出そう・・・
（弱気は、いけません！）
---------------------------------------------------------------------
最近は、パソコンで映画を観ることもできますが、
動画のパソコン講座も、あるんですよ。
マウスが動いて、画面が変わって、
音声での解説を聞きながら、その動きを見て、
ソフトの勉強ができるようになっています。
初めてのソフトの勉強には、いいかもしれません。
興味のある方は、こちらをご覧下さい。
動画講座のご案内 : http://www.msactry.com/douga/
=====================================================================
【Access実践入門】
ホームページ : http://www.msactry.com/
メルマガ用サンプルプログラム
: http://www.msactry.com/mag2/201/index.htm
参考書「Access実践入門」のダウンロード（ＰＤＦファイル）
: http://www.msactry.com/down00/downrepo.htm
=====================================================================
【動画講座のご案内】
http://www.msactry.com/douga/
【その他オフィス関連の教材紹介】
http://www.msactry.com/kyex/
【今日の売れ筋】
http://uresuji-everyday.sblo.jp/
=====================================================================
【発行システム】『まぐまぐ！』 http://www.mag2.com/
配信中止はこちらから http://www.mag2.com/m/0000229312.html
=====================================================================
