■メニュー
1.得意先マスタリストの作成（5回目）
===================================================================
こんにちは、ティウェアの高橋です。
それでは、得意先マスタリストの作成の5回目です。
では、はじめましょう。
------------------------------------------------------------------
1.印刷ボタンについて
1-2.btn印刷_Click()
If intinsatu = 1 Then
If MsgBox("印刷を開始しますか", (vbYesNo + vbDefaultButton2 + _
vbInformation), "印刷") = vbYes Then
Else
[印刷順].SetFocus
Exit Sub
End If
End If
intRet = 印刷処理(2)
印刷をするのかMsgBoxで確認させます。
”はい”を押すと印刷処理(2)を処理させます。
1-3.MsgBoxについて
MsgBox関数
メッセージボックスを表示しユーザーの応答を待ちます。
MsgBox(メッセージ,ボタンとアイコン,タイトル)
メッセージ：表示するメッセージ
ボタンとアイコン：ボタンとアイコンを指示
タイトル：タイトルバーの文字列
分類 値 記号 内容
ボタン 0 vbOKOnly [OK]ボタンだけ
の指定 1 vbOKCancel [OK]と[キャンセル]ボタン
2 vbAbortRetrylgnore [中止]、[再試行]、
[無視]ボタン
3 vbYesNoCancel [はい]、[いいえ]、
[キャンセル]ボタン
4 vbYesNo [はい]、[いいえ]ボタン
5 vbRetryCancel [再試行]、[キャンセル]ボタン
--*--------*--------*--------*--------*--------*--------*--------*--
2.印刷処理()について
Functionで印刷処理を作成して下さい。
Function 印刷処理(insatu_sentaku As Integer) As Integer
'◎ポイント解説 1 -----*-----*-----*-----
'insatu_sentaku（１：プレビュー、２：印刷）
If 印刷順.Value = 1 Then
'カナ名順(1)
Forms(cFormName_M)![sta営業所コード] = 0
Forms(cFormName_M)![sta得意先コード] = 0
Forms(cFormName_M)![end営業所コード] = 99
Forms(cFormName_M)![end得意先コード] = 99999
Forms(cFormName_M)![sta営業所コード文字] = "0"
Forms(cFormName_M)![sta得意先コード文字] = "0"
Forms(cFormName_M)![end営業所コード文字] = "99"
Forms(cFormName_M)![end得意先コード文字] = "99999"
If IsNull(Forms(cFormName_M)![staカナ名]) Or _
Trim(Forms(cFormName_M)![staカナ名]) & "" = "" Then
Forms(cFormName_M)![staカナ名] = " "
End If
If IsNull(Forms(cFormName_M)![endカナ名]) Or _
Trim(Forms(cFormName_M)![endカナ名]) & "" = "" Then
Forms(cFormName_M)![endカナ名] = "ンンンンンンンン"
Else
Forms(cFormName_M)![endカナ名] = _
Forms(cFormName_M)![endカナ名] & "ンンンンンンンン"
Forms(cFormName_M)![endカナ名] = _
Left$(Forms(cFormName_M)![endカナ名], 40)
End If
t_RecordSource = "rp_sp_得意先マスタリスト_カナ順"
Else
'得意先コード順(2)
Forms(cFormName_M)![staカナ名] = " "
Forms(cFormName_M)![endカナ名] = "ンンンンンンンン"
t_RecordSource = "rp_sp_得意先マスタリスト_コード順"
End If
On Error GoTo Err_印刷処理
Dim stDocName As String
stDocName = "r_得意先マスタリスト"
If insatu_sentaku = 1 Then
'プレビュー
'◎ポイント解説 2 -----*-----*-----*-----
DoCmd.OpenReport stDocName, acPreview
DoCmd.RunCommand 245
Else
'印刷の処理
'◎ポイント解説 3 -----*-----*-----*-----
Call prtReport(stDocName, cnsA4, cns横, 2)
End If
Forms(cFormName_M)![印刷順].SetFocus
Exit_印刷処理:
Exit Function
Err_印刷処理:
'◎ポイント解説 4 -----*-----*-----*-----
If Err = 2501 Then
DoCmd.Close acReport, stDocName, acSaveNo
Application.Echo True
Else
MsgBox "エラーナンバー " & Err.Number & _
vbCrLf & _
Err.Description, vbCritical, "エラー"
End If
Resume Exit_印刷処理
注意："ンンンンンンンン"は、半角になります。
メルマガは半角の記述にすると文字化けします。
そんな理由で全角にしています。
次回も、得意先マスタリストの作成です。
===================================================================
◆
実践テクニック、Accessで作るクラサバシステム ◆
編集・構成：高橋浩
提供・発行：ティウェア
http://www.1tware.com/index.html
Access2000+MSDE2000、Access2002+MSDE2000、Access2003+MSDE2000で
作る販売管理ソフト、クライアントサーバーシステムを構築
※当メールマガジンに掲載された記事を許可なく転載することを禁じます。
===================================================================
実践テクニック、Accessで作るクラサバシステム（隔週 火曜日発行中）
ＳＥが１０年以上の開発ノウハウを惜しみなく完全公開！
|