■メニュー
1.得意先マスタリストの作成（7回目）
===================================================================
こんにちは、ティウェアの高橋です。
それでは、得意先マスタリストの作成の7回目です。
では、はじめましょう。
------------------------------------------------------------------
Option Compare Database
Option Explicit に下記を記述してください。
Const cFormName_M = "得意先マスタリスト"
Const cReportName_M = "r_得意先マスタリスト"
'行カウンター
Dim line_count As Integer
--*--------*--------*--------*--------*--------*--------*--------*--
1.Report_Openについて
'◎ポイント解説 1 について -----*-----*-----*-----
Reports(cReportName_M).RecordSource = t_RecordSource
'◎ポイント解説 2 について -----*-----*-----*-----
Win_Maximize
1-1.◎ポイント解説 1 について
前回、印刷処理()に記述しました。
t_RecordSource = "rp_sp_得意先マスタリスト"
のストアドプロシージャをどのようにして渡すのか？
"r_得意先マスタリスト"のレポートのRecordSourceに渡します。
1-2.◎ポイント解説 2 について
プレビュー表示を最大化する処理です。
そのモジュールが下記になります。
Sub Win_Maximize()
On Error GoTo Win_Maximize_Err
DoCmd.Maximize
Win_Maximize_Exit:
Exit Sub
Win_Maximize_Err:
MsgBox Error$
Resume Win_Maximize_Exit
End Sub
--*--------*--------*--------*--------*--------*--------*--------*--
2.ページヘッダーセクション_Printについて
line_count = Int(0)
[印刷日付] = DateSerial(Forms(cFormName_M)![印刷年], _
Forms(cFormName_M)![印刷月], Forms(cFormName_M)![印刷日]) _
& " " & Forms(cFormName_M)![印刷時間]
If Forms(cFormName_M)![印刷順] = 1 Then
[repo印刷順] = "カナ名順"
Else
[repo印刷順] = "得意先コード順"
End If
行カウターのline_count をゼロにします。
次回も、得意先マスタリストの作成です。
===================================================================
◆
実践テクニック、Accessで作るクラサバシステム ◆
編集・構成：高橋浩
提供・発行：ティウェア
http://www.1tware.com/index.html
Access2000+MSDE2000、Access2002+MSDE2000、Access2003+MSDE2000で
作る販売管理ソフト、クライアントサーバーシステムを構築
※当メールマガジンに掲載された記事を許可なく転載することを禁じます。
===================================================================
実践テクニック、Accessで作るクラサバシステム（隔週 火曜日発行中）
ＳＥが１０年以上の開発ノウハウを惜しみなく完全公開！
|