■メニュー
1.商品マスタの作成（1回目）
===================================================================
読まなくてもよいのかなコーナーは、Officeの新バージョン
2007 Microsoft Officeについてです。
どう変わっているのでしょうか？
ずいぶん変わっているかも？ あなたが自分で試してください。
商品マスタの作成、１回目です。
では早速、はじめましょう。
-*--------*--------*--------*--------*--------*--------*--------*--
１．商品マスタの概要
商品コードを登録します。
商品コードの桁数は8桁です。
２．商品マスタのレイアウト
項目名 データ型 桁数 nullを許容
1.商品コード int 4 （主キー）
2.商品名 nvarchar 40
3.カナ名 nvarchar 40
4.売上単価 money 8
5.仕入単価 money 8
6.単位 nvarchar 4 レ
7.大分類 smallint 2
8.中分類 smallint 2
9.消費税区分 smallint 2
これをテーブルで作成してください。
３．フォーム名、項目名の作成
フォームにマスタの項目を作成します。
３−１．フォーム名の設定
1.プロパティの内容
表題 商品マスタメンテナンス
３−２．項目名の設定
プロパティの内容によりグループにしています。
テキストボックスの前に同じ名前でラベルを作成して下さい。
1.商品コード（テキストボックス）
名前 商品コード
書式 0
小数点以下表示桁数 0
IME 入力モード保持 いいえ
IME 入力モード オフ
IME 変換モード 一般
使用可能 はい
編集ロック いいえ
ヒントテキスト ダブルクリック、または[F12]キーを
押すと問い合せ画面に移動します
◎ポイント解説 1 -----*-----*-----*-----
”ヒントテキスト”は、商品コード上にマウスを
そっと移動させるとヒントテキストに記述した内容が現れます。
ちょっとした説明をしたい場合に使ってください。
2.商品名（テキストボックス）
名前 商品名
IME 入力モード保持 いいえ
IME 入力モード ひらがな
IME 変換モード 一般
ふりがな カナ名
使用可能 はい
編集ロック いいえ
◎ポイント解説 2 -----*-----*-----*-----
”ふりがな”に指定した先”カナ名”に
半角カタカナに自動変換して表示してくれます。
これでカナ名の入力しなくて済みます。
3.カナ名（テキストボックス）
名前 カナ名
IME 入力モード保持 いいえ
IME 入力モード 半角カタカナ
IME 変換モード 無変換
使用可能 はい
編集ロック いいえ
4.売上単価（テキストボックス）
名前 売上単価
書式 標準
小数点以下表示桁数 2
IME 入力モード保持 いいえ
IME 入力モード オフ
IME 変換モード 一般
使用可能 はい
編集ロック いいえ
5.仕入単価（テキストボックス）
名前 仕入単価
書式 標準
小数点以下表示桁数 2
IME 入力モード保持 いいえ
IME 入力モード オフ
IME 変換モード 一般
使用可能 はい
編集ロック いいえ
6.単位（コンボボックス）
名前 単位
小数点以下表示桁数 自動
値集合タイプ テーブル/ビュー/ストアド プロシージャ
列数 2
列見出し いいえ
7.大分類（コンボボックス）
名前 大分類
小数点以下表示桁数 自動
値集合タイプ テーブル/ビュー/ストアド プロシージャ
列数 2
列見出し いいえ
8.中分類（コンボボックス）
名前 中分類
小数点以下表示桁数 自動
値集合タイプ テーブル/ビュー/ストアド プロシージャ
列数 2
列見出し いいえ
9.消費税区分（コンボボックス）
名前 消費税区分
小数点以下表示桁数 自動
値集合タイプ 値リスト
値集合ソース "外税";"内税";"非課税"
列数 1
列見出し いいえ
-*--------*--------*--------*--------*--------*--------*--------*--
３−３．ボタンの設定
１.登録ボタン
名前 btn登録
表題 登録(F8)
2.削除ボタン
名前 btn削除
表題 削除(F6)
3.取消ボタン
名前 btn取消
表題 取消(F10)
4.終了ボタン
名前 btn終了
表題 終了(End)
-*--------*--------*--------*--------*--------*--------*--------*--
４．formについて
４−１．form → load
画面を開いた時に通る処理です。
処理は1回だけとなります。
Set cn = Application.CurrentProject.Connection
cn.CursorLocation = adUseClient
p_tancd = Int(0)
From_Clr
[btn取消].Enabled = False
-*--------*--------*--------*--------*--------*--------*--------*--
４−２．form → Unload
画面を閉じる時に1回だけ通る処理です。
cn.Close
Set cn = Nothing
-*--------*--------*--------*--------*--------*--------*--------*--
４−３．form → KeyDown
フォーム上で何かしらのキーが押されたときの処理です。
Select Case KeyCode
Case 117 '削除（Ｆ6）
If btn削除.Enabled = True Then
btn削除.SetFocus
SendKeys "{ENTER}"
End If
Case 119 '登録（Ｆ8）
If btn登録.Enabled = True Then
btn登録.SetFocus
SendKeys "{ENTER}"
End If
Case 121 '取消（Ｆ10）
If btn取消.Enabled = True Then
btn取消.SetFocus
SendKeys "{ENTER}"
End If
Case 35 '終了（ＥＮＤ）
If btn終了.Enabled = True Then
btn終了.SetFocus
SendKeys "{ENTER}"
End If
End Select
Exit Sub
Form_KeyDown_err:
MsgBox "エラーが発生しました。再度、見直してください。", _
vbExclamation, "注意"
◎ポイント解説 3 -----*-----*-----*-----
Form上のキーボードイベント取得を「はい」にすると
Form上のKeyDownを優先されます。
次回も商品マスタの作成です。
===================================================================
◆
実践テクニック、Accessで作るクラサバシステム ◆
編集・構成：高橋浩
提供・発行：ティウェア
http://www.1tware.com/index.html
Access2000+MSDE2000、Access2002+MSDE2000、Access2003+MSDE2000で
作る販売管理ソフト、クライアントサーバーシステムを構築
※当メールマガジンに掲載された記事を許可なく転載することを禁じます。
===================================================================
実践テクニック、Accessで作るクラサバシステム（隔週 火曜日発行中）
ＳＥが１０年以上の開発ノウハウを惜しみなく完全公開！
|