雑なメモ(無保証)

Microsoft Access


Rev.26を表示中。最新版はこちら

[Access]年齢自動計算

2006/04/14
イベントプロシージャで[生年月日]ボックスに値が入力された後、[年齢]ボックスに計算した年齢を入れる。

[生年月日]ボックスに以下のVBAコードを設定する

Private Sub 生年月日_Exit(Cancel As Integer)
If IsNull(Me!生年月日) Then
GoTo exit_shori
End If
Me!年齢 = DateDiff("yyyy", Me!生年月日, Date)
If Format(Me!生年月日 - 1, "mm/dd") > Format(Date, "mm/dd") Then
Me!年齢 = Me!年齢 - 1
End If
exit_shori:
End Sub

年齢テキストボックスは[編集ロック=はい]にして編集されるのを防ぐ。
編集ロックはタブオーダー設定されているとできないみたいなので、年齢テキストボックスのタブオーダーをはずしておく。


[Access] サブテーブルを作る

2006/04/11
テーブルのデータシートビューでメニューの[挿入]-[サブデータシート]を実行。
すると、なんかテーブルの選択画面が出てくるので、挿入するテーブルを選ぶ。
「リンク子フィールド」と「リンク親フィールド」は、
なんか関連付けするフィールドみたいなので、
それぞれが対応しているフィールドを選ぶ。
データシートビューでは、一個しか指定できない。
フォームだと何個でも貼り付けられるみたい。

フォームにサブフォーム(サブデータ)を貼り付けるときは、
フォームをデザインビューで開いて、窓の左端に出てきたツールバーから、
「サブフォーム/サブレポート」をクリクリッ。
窓が出てくるので、貼り付けたいフォームを選んで、
あとは、なんか聞いてくるけど、そのままOK!

で完成。


[Access] 郵便番号から住所を自動で入力させる

2006/04/11
テーブルのデザインビューで「郵便番号」とかの項目を選択後、
下のほうにある標準タブから「住所入力支援」をクリクリッ。
右側に出てきた「・・・」ボタンを押すとウィザードが立ち上がるので
後は、指示に従うだけで完成。まぁ、便利2!

[Access] 漢字で名前を入力すると振り仮名を自動で入力させる

2006/04/11
テーブルのデザインビューで「氏名」とかの項目を選択後、
下のほうにある標準タブから「ふりがな」をクリクリッ。
右側に出てきた「・・・」ボタンを押すとウィザードが立ち上がるので
後は、指示に従うだけで完成。まぁ、便利!

[Access] 自動的に番号を振る

2006/04/04
フォームのイベントタグで実現してみた。
イベントタブ内にあるトリガを選択して下記のコードを追加。

Me!No = DMAX("No","TableA") + 1

これだけ。
フォーム内の「No」テキストボックスに、「TableA」の中の
「No」フィールド中で一番大きい数字を取り出して1加算して
代入。

ところで、トリガの名称で「ダーティー時」ってあるんだけど、
「汚れた時」?「入力時」の方がしっくり来るんですけど。。。


FrontPageへ戻る

最終更新 2006/04/14 19:22:31 - llinfo_arp
(2006/04/05 15:10:57 作成)


Amazon