メールマガジン【アクセスで作るシリーズ】
バックナンバー 【住所録ソフト編】 Vol.32
■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□
ＡＣＣＥＳＳで作るシリーズ 【住所録ソフト編】
発 行 ： Yoshihisa Fukuda 2002.09.07 Vol.32
■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
□ メールマガジン紹介
タイトル：JAVA World
ＵＲＬ ：http://deep21.dip.jp/java/
発行者コメント：メルマガにしては詳しくやってるって点と、HPの掲示板でサポート
もしてるってことが売りです
ＪＡＶＡの勉強をしたい人、ＪＡＶＡに興味ある人は是非どうぞ。
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
今回は、印刷部数の指定と印刷ボタンの作成を行います。
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
□ 印刷部数指定のテキストボックスを作成する。
１．住所録ソフトのデータベース[Address.mdb]を開きます。
２．データベースウィンドウの[フォーム]タブを選択します。
３．印刷条件設定フォーム[AddrPrintForm]を選択し、[デザイン]ボタンを押下して
デザインウィンドウを開きます。
４．印刷部数を入力するためのテキストボックスを作成するため、フォームフッタを
少し拡げます。
５．ツールバーのテキストボックスを選択し、フォームフッターの適当な位置で
クリックします。（コントロールウィザードは無効にしておきます）
６．作成したテキストボックスに以下のプロパティを設定します。
名前 ・・・ Copies
規定値 ・・・ 1
７．作成したテキストボックスのラベルの[標題]プロパティに[部数]と設定します。
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
□ 印刷ボタンを作成する。
１．ツールバーのコマンドボタンを選択し、フォームフッターの適当な位置でクリッ
クします。（コントロールウィザードを有効にしておきます）
２．コマンドボタンウィザードの画面で、種類に[レポートの操作]を選択し、ボタン
の動作に[レポートのプレビュー]を選択し、[次へ]ボタンを押下します。
３．[コマンドボタンを使ってプレビューするレポートを選択して下さい]で
[LetterAddrPrint]を選択し、[次へ]ボタンを押下します。
４．[ボタンに表示する文字列またはピクチャを指定します]で[文字列]を選択し、
右側の入力フィールドに[宛名印刷]と入力して、[次へ]ボタンを押下します。
５．[ボタン名を指定して下さい]で[AddrPrintBtn]と入力し、[完了]ボタンを押下
します。
６．先ほど作成した宛名印刷ボタン[AddrPrintBtn]を選択した状態で、[クリック時]
プロパティにカーソルを移動し、右端の[...]ボタンを押下して、モジュール
ウィンドウを開きます。
７．Private Sub AddrPrintBtn_Click() と End Sub の間に、既にコードが記述
されていますが、以下の様に修正します。
Private Sub AddrPrintBtn_Click()
On Error GoTo Err_AddrPrintBtn_Click
Dim stDocName As String
stDocName = "LetterAddrPrint"
SetPrintInfo stDocName, Me.Copies ←（追加）
DoCmd.OpenReport stDocName, acViewPreview, , "PrintAddr <> 3" ←（修正）
Exit_AddrPrintBtn_Click:
Exit Sub
Err_AddrPrintBtn_Click:
MsgBox Err.Description
Resume Exit_AddrPrintBtn_Click
End Sub
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
□ 閉じるボタンを作成する。
１．ツールバーのコマンドボタンを選択し、フォームフッターの適当な位置でクリッ
クします。（コントロールウィザードを有効にしておきます）
２．コマンドボタンウィザードの画面で、種類に[フォームの操作]を選択し、ボタン
の動作に[フォームを閉じる]を選択し、[次へ]ボタンを押下します。
３．[ボタンに表示する文字列またはピクチャを指定します]で[文字列]を選択し、
右側の入力フィールドに[閉じる]と入力して、[次へ]ボタンを押下します。
４．[ボタン名を指定して下さい]で[ExitBtn]と入力し、[完了]ボタンを押下します。
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
□ 自宅住所、会社住所、印刷しないの指定をリセットする。
これは、前回印刷した時の状態を残す場合、必要ありませんが、毎回印刷する時に
初期状態を自宅住所にしたい場合、プログラムを追加して下さい。
１．フォームを選択し、[開く時]プロパティに[イベントプロシージャ]を設定して
右端の[...]ボタンを押下します。
２．モジュールウィンドウが開いたら以下の様にコードを入力します。
Private Sub Form_Open(Cancel As Integer)
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE AddressTable SET PrintAddr = 1;"
DoCmd.SetWarnings True
End Sub
ここまで出来たらフォームを保存して閉じます。
次回は、再び宛名印刷レポートです。
今回作成した印刷条件設定画面の印刷条件に従って宛名印刷をするように修正します。
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
□ お知らせ
今回の印刷部数を設定するために、共通ライブラリに新たなサブルーチンが追加
されています。
必ず、ホームページにある共通ライブラリの Ver1.0.1 をダウンロードして下さい。
【共通ライブラリ使用手順】
１．ホームページのメールマガジンのページから共通ライブラリをダウンロード
する。
２．ダウンロードしたファイルは自己解凍ファイルになっていますので、解凍し
共通ライブラリ(ComSub.mde)を住所録ＭＤＢがあるフォルダに入れます。
（古い Ver1.0.0 の ComSub.mde は削除して下さい）
３．フォルダが以前と違う場合、また SetPrintInfo でエラーが出る場合などは
再度、参照設定をやり直して下さい。
（参照設定の方法はホームページ、又は Vol.18 か Vol.20 を参照して下さい）
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□
◇ ACCESSで作るシリーズ 【住所録ソフト編】
◇ 発 行 元 ：Yoshihisa Fukuda（福田 義久）
◇ ご意見・ご要望
ご質問等 ：fukud@nifty.com
◇ このメールマガジンは、インターネットの本屋さん『まぐまぐ』を利用して発行
しています。（まぐまぐID:0000077071)
◇ バックナンバー：http://homepage2.nifty.com/f-soft/
◇ 登録・解除 ：http://homepage2.nifty.com/f-soft/
Copyright(C) 2001-2002 Yoshihisa Fukuda All rights reserved.
◇転載について
このメールマガジンの無断転載などは、一切禁止です。
転載をご希望の方は、事前にメールで連絡をください。
◇免責
このメールマガジン及びホームページの内容による、いかなる損害、障害などに
関して発行者は一切の責任を負いません。
掲載広告についても同様です。
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□
ＡＣＣＥＳＳで作るシリーズ 【住所録ソフト編】
発 行 ： Yoshihisa Fukuda 2002.09.07 Vol.32
■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
□ メールマガジン紹介
タイトル：JAVA World
ＵＲＬ ：http://deep21.dip.jp/java/
発行者コメント：メルマガにしては詳しくやってるって点と、HPの掲示板でサポート
もしてるってことが売りです
ＪＡＶＡの勉強をしたい人、ＪＡＶＡに興味ある人は是非どうぞ。
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
今回は、印刷部数の指定と印刷ボタンの作成を行います。
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
□ 印刷部数指定のテキストボックスを作成する。
１．住所録ソフトのデータベース[Address.mdb]を開きます。
２．データベースウィンドウの[フォーム]タブを選択します。
３．印刷条件設定フォーム[AddrPrintForm]を選択し、[デザイン]ボタンを押下して
デザインウィンドウを開きます。
４．印刷部数を入力するためのテキストボックスを作成するため、フォームフッタを
少し拡げます。
５．ツールバーのテキストボックスを選択し、フォームフッターの適当な位置で
クリックします。（コントロールウィザードは無効にしておきます）
６．作成したテキストボックスに以下のプロパティを設定します。
名前 ・・・ Copies
規定値 ・・・ 1
７．作成したテキストボックスのラベルの[標題]プロパティに[部数]と設定します。
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
□ 印刷ボタンを作成する。
１．ツールバーのコマンドボタンを選択し、フォームフッターの適当な位置でクリッ
クします。（コントロールウィザードを有効にしておきます）
２．コマンドボタンウィザードの画面で、種類に[レポートの操作]を選択し、ボタン
の動作に[レポートのプレビュー]を選択し、[次へ]ボタンを押下します。
３．[コマンドボタンを使ってプレビューするレポートを選択して下さい]で
[LetterAddrPrint]を選択し、[次へ]ボタンを押下します。
４．[ボタンに表示する文字列またはピクチャを指定します]で[文字列]を選択し、
右側の入力フィールドに[宛名印刷]と入力して、[次へ]ボタンを押下します。
５．[ボタン名を指定して下さい]で[AddrPrintBtn]と入力し、[完了]ボタンを押下
します。
６．先ほど作成した宛名印刷ボタン[AddrPrintBtn]を選択した状態で、[クリック時]
プロパティにカーソルを移動し、右端の[...]ボタンを押下して、モジュール
ウィンドウを開きます。
７．Private Sub AddrPrintBtn_Click() と End Sub の間に、既にコードが記述
されていますが、以下の様に修正します。
Private Sub AddrPrintBtn_Click()
On Error GoTo Err_AddrPrintBtn_Click
Dim stDocName As String
stDocName = "LetterAddrPrint"
SetPrintInfo stDocName, Me.Copies ←（追加）
DoCmd.OpenReport stDocName, acViewPreview, , "PrintAddr <> 3" ←（修正）
Exit_AddrPrintBtn_Click:
Exit Sub
Err_AddrPrintBtn_Click:
MsgBox Err.Description
Resume Exit_AddrPrintBtn_Click
End Sub
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
□ 閉じるボタンを作成する。
１．ツールバーのコマンドボタンを選択し、フォームフッターの適当な位置でクリッ
クします。（コントロールウィザードを有効にしておきます）
２．コマンドボタンウィザードの画面で、種類に[フォームの操作]を選択し、ボタン
の動作に[フォームを閉じる]を選択し、[次へ]ボタンを押下します。
３．[ボタンに表示する文字列またはピクチャを指定します]で[文字列]を選択し、
右側の入力フィールドに[閉じる]と入力して、[次へ]ボタンを押下します。
４．[ボタン名を指定して下さい]で[ExitBtn]と入力し、[完了]ボタンを押下します。
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
□ 自宅住所、会社住所、印刷しないの指定をリセットする。
これは、前回印刷した時の状態を残す場合、必要ありませんが、毎回印刷する時に
初期状態を自宅住所にしたい場合、プログラムを追加して下さい。
１．フォームを選択し、[開く時]プロパティに[イベントプロシージャ]を設定して
右端の[...]ボタンを押下します。
２．モジュールウィンドウが開いたら以下の様にコードを入力します。
Private Sub Form_Open(Cancel As Integer)
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE AddressTable SET PrintAddr = 1;"
DoCmd.SetWarnings True
End Sub
ここまで出来たらフォームを保存して閉じます。
次回は、再び宛名印刷レポートです。
今回作成した印刷条件設定画面の印刷条件に従って宛名印刷をするように修正します。
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
□ お知らせ
今回の印刷部数を設定するために、共通ライブラリに新たなサブルーチンが追加
されています。
必ず、ホームページにある共通ライブラリの Ver1.0.1 をダウンロードして下さい。
【共通ライブラリ使用手順】
１．ホームページのメールマガジンのページから共通ライブラリをダウンロード
する。
２．ダウンロードしたファイルは自己解凍ファイルになっていますので、解凍し
共通ライブラリ(ComSub.mde)を住所録ＭＤＢがあるフォルダに入れます。
（古い Ver1.0.0 の ComSub.mde は削除して下さい）
３．フォルダが以前と違う場合、また SetPrintInfo でエラーが出る場合などは
再度、参照設定をやり直して下さい。
（参照設定の方法はホームページ、又は Vol.18 か Vol.20 を参照して下さい）
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□
◇ ACCESSで作るシリーズ 【住所録ソフト編】
◇ 発 行 元 ：Yoshihisa Fukuda（福田 義久）
◇ ご意見・ご要望
ご質問等 ：fukud@nifty.com
◇ このメールマガジンは、インターネットの本屋さん『まぐまぐ』を利用して発行
しています。（まぐまぐID:0000077071)
◇ バックナンバー：http://homepage2.nifty.com/f-soft/
◇ 登録・解除 ：http://homepage2.nifty.com/f-soft/
Copyright(C) 2001-2002 Yoshihisa Fukuda All rights reserved.
◇転載について
このメールマガジンの無断転載などは、一切禁止です。
転載をご希望の方は、事前にメールで連絡をください。
◇免責
このメールマガジン及びホームページの内容による、いかなる損害、障害などに
関して発行者は一切の責任を負いません。
掲載広告についても同様です。
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□