■メニュー
1.売上入力の作成（12回目）
===================================================================
こんにちは、ティウェアの高橋です。
売上入力の作成の12回目です。
では、はじめましょう。
------------------------------------------------------------------
今回は、伝票番号のKeyDownのとなります。
伝票番号がわかる場合は、番号を入力すれば伝票明細を表示できます。
伝票番号がわからない場合は、得意先問い合わせから得意先を選択して
伝票明細を表示させて売上入力の伝票番号にいれて伝票の内容を表示
する処理をさせます。
On Error GoTo Err_伝票番号_KeyDown
If KeyCode <> 123 Then
Exit Sub
End If
Forms(cFormName_M)![伝票番号] = ""
If [伝票番号].Enabled = False Then
Exit Sub
End If
form_modoriname_moto = "売上入力"
p_denkbn = 1
stDocName = "得意先明細問い合せ"
form_modoricontrols_name_1 = "伝票番号"
form_modoricontrols_name_setfocus = "伝票番号"
Me.Visible = False
◎ポイント解説 1 -----*-----*-----*-----
DoCmd.OpenForm stDocName
Forms(stDocName)![sta営業所コード].SetFocus
Exit_伝票番号_KeyDown:
Exit Sub
Err_伝票番号_KeyDown:
MsgBox "エラーナンバー " & Err.Number & _
vbCrLf & _
Err.Description, vbCritical, "エラー"
Resume Exit_伝票番号_KeyDown
戻ってくるフォーム名を退避します、もちろん売上入力となります。
form_modoriname_moto = "売上入力"
伝票区分にp_denkbn = 1をいれます。
検索問い合せへ移動するのは、得意先明細問い合せとなります。
stDocName = "得意先明細問い合せ"
戻りフォームの項目を退避します。
form_modoricontrols_name_1 = "伝票番号"
戻りフォームのセットフォーカスする項目を退避します。
form_modoricontrols_name_setfocus = "伝票番号"
DoCmd.OpenForm stDocName 得意先明細問い合せをオープンします。
--------------------------------------------------------------------
ここから、得意先明細問い合せフォームの説明になります。
１．フォーム名、項目名の作成
フォームにマスタの項目を作成します。
１−１．フォーム名の設定
1.プロパティの内容
表題 得意先明細問い合せ
既定のビュー 帳票フォーム
１−２．項目名の設定
フォームヘッダーについて
伝票日付の範囲指定をします。
開始年月日、終了年月日、得意先コードを画面上に作成します。
1.開始年月日の伝票年（テキストボックス）
名前 sta日付年
書式 0000
小数点以下表示桁数 0
IME 入力モード保持 いいえ
IME 入力モード オフ
IME 変換モード 一般
使用可能 はい
編集ロック いいえ
2.開始年月日の伝票月（テキストボックス）
名前 sta日付月
書式 00
小数点以下表示桁数 0
IME 入力モード保持 いいえ
IME 入力モード オフ
IME 変換モード 一般
使用可能 はい
編集ロック いいえ
3.開始年月日の伝票日（テキストボックス）
名前 sta日付日
書式 00
小数点以下表示桁数 0
IME 入力モード保持 いいえ
IME 入力モード オフ
IME 変換モード 一般
使用可能 はい
編集ロック いいえ
終了年月日の伝票年、伝票月、伝票日はそれぞれ
end日付年、end日付月、end日付日となります。
書式等の内容は同じになります。
4.営業所コード（テキストボックス）
名前 sta営業所コード
書式 00
小数点以下表示桁数 0
IME 入力モード保持 いいえ
IME 入力モード オフ
IME 変換モード 一般
使用可能 はい
編集ロック いいえ
5.得意先コード（テキストボックス）
名前 sta得意先コード
書式 00000
小数点以下表示桁数 0
IME 入力モード保持 いいえ
IME 入力モード オフ
IME 変換モード 一般
使用可能 はい
編集ロック いいえ
6.営業所名（テキストボックス）
表示のみに使用
名前 営業所名
IME 入力モード保持 いいえ
IME 入力モード ひらがな
IME 変換モード 一般
使用可能 いいえ
編集ロック はい
7.得意先名（テキストボックス）
表示のみに使用
名前 得意先名
IME 入力モード保持 いいえ
IME 入力モード ひらがな
IME 変換モード 一般
使用可能 いいえ
編集ロック はい
8.取消ボタン
名前 btn取消
標題 取消(F10)
9.終了
名前 btn終了
標題 終了(End)
-----------------------------------------------------------
セッションの詳細について
1.伝票日付（テキストボックス）
名前 伝票日付
書式 日付 (S)
IME 入力モード保持 いいえ
IME 入力モード オフ
IME 変換モード 一般
使用可能 はい
編集ロック いいえ
2.伝票番号（テキストボックス）
名前 伝票番号
書式 #
IME 入力モード保持 いいえ
IME 入力モード オフ
IME 変換モード 一般
使用可能 はい
編集ロック いいえ
3.商品名（テキストボックス）
名前 商品名
IME 入力モード保持 いいえ
IME 入力モード コントロールなし
IME 変換モード 一般
使用可能 はい
編集ロック いいえ
4.伝票区分（テキストボックス）
名前 伝票区分
IME 入力モード保持 いいえ
IME 入力モード オフ
IME 変換モード 一般
使用可能 はい
編集ロック いいえ
5.区分名（テキストボックス）
名前 区分名
IME 入力モード保持 いいえ
IME 入力モード オフ
IME 変換モード 一般
使用可能 はい
編集ロック いいえ
6.数量（テキストボックス）
名前 数量
書式 標準
小数点以下表示桁数 2
IME 入力モード保持 いいえ
IME 入力モード オフ
IME 変換モード 一般
使用可能 はい
編集ロック いいえ
7.売上金額（テキストボックス）
名前 売上金額
書式 #,##0
IME 入力モード保持 いいえ
IME 入力モード オフ
IME 変換モード 一般
使用可能 はい
編集ロック いいえ
8.入金金額（テキストボックス）
名前 入金金額
書式 #,##0
IME 入力モード保持 いいえ
IME 入力モード オフ
IME 変換モード 一般
使用可能 はい
編集ロック いいえ
フォームヘッダーの下部にセッションの詳細の1〜8までの名称を
ラベルで作成してください。
締次、月次の残高関係も表示しているのですが、今回は省略します。
次回も売上入力です。
===================================================================
◆
実践テクニック、Accessで作るクラサバシステム ◆
編集・構成：高橋浩
提供・発行：ティウェア
http://www.1tware.com/index.html
Access2000+MSDE2000、Access2002+MSDE2000、Access2003+MSDE2000で
作る販売管理ソフト、クライアントサーバーシステムを構築
※当メールマガジンに掲載された記事を許可なく転載することを禁じます。
===================================================================
実践テクニック、Accessで作るクラサバシステム（隔週 火曜日発行中）
ＳＥが１０年以上の開発ノウハウを惜しみなく完全公開！
|