メールマガジン【アクセスで作るシリーズ】
バックナンバー 【住所録ソフト編】 Vol.46
■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□
ＡＣＣＥＳＳで作るシリーズ 【住所録ソフト編】
発 行 ： Yoshihisa Fukuda 2003.03.22 Vol.46
■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
今回は、住所録印刷の仕組みとその解説です。
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
□ 住所録印刷条件設定画面の解説。
Vol.42の「□ プログラムでコントロールの制御を行います。」のプログラムの解説
を行います。
１．フォームの[開く時]のイベントプロシージャ
Private Sub Form_Open(Cancel As Integer)
Me.GroupCombo2.Enabled = False
Me.SelectFromCombo.Enabled = False
Me.SelectToCombo.Enabled = False
End Sub
（１）２行目の Me.GroupCombo2.Enabled = False はグループ化の２階層目のコンボ
ボックスを使用不可にしています。
これはフォームを開いた時はグループ化の１階層目は[なし]になっているので、
１階層目が[なし]の場合、２階層目は指定できなくしています。
（２）３行目、４行目の Me.SelectFromCombo.Enabled = False と
Me.SelectToCombo.Enabled = False は、５０音抽出条件の開始と終了の５０音
の指定コンボボックスを使用不可にしています。
これは、フォームを開いた時は、５０音抽出条件は[全て]になっているので
５０音の開始、終了を使用できなくしています。
２．グループ１コンボボックスの[更新後処理]のイベントプロシージャ
Private Sub GroupCombo1_AfterUpdate()
If Me.GroupCombo1 = "なし" Then
Me.GroupCombo2.Enabled = False
Else
Me.GroupCombo2.Enabled = True
End If
End Sub
（１）２行目の If Me.GroupCombo1 = "なし" Then はグループ１の指定が[なし]の
場合を判別しています。
（２）３行目の Me.GroupCombo2.Enabled = False はグループ１が[なし]だった場合、
グループ２のコンボボックスを使用不可にして、指定できなくしています。
（３）５行目の Me.GroupCombo2.Enabled = True はグループ１が[なし]でなかった
場合で、グループ２のコンボボックスを使用可能にしています。
３．５０音抽出条件オプショングループの[更新後処理]のイベントプロシージャ
Private Sub SelectFrame_AfterUpdate()
If Me.SelectFrame = 1 Then
Me.SelectFromCombo.Enabled = False
Me.SelectToCombo.Enabled = False
Else
Me.SelectFromCombo.Enabled = True
Me.SelectToCombo.Enabled = True
End If
End Sub
（１）２行目の If Me.SelectFrame = 1 Then は５０音抽出条件の指定が[全て]か
[５０音指定]かを判別しています。
（２）３行目、４行目は５０音抽出条件の指定が[全て]の場合で、３行目の
Me.SelectFromCombo.Enabled = False は開始のコンボボックスを、４行目の
Me.SelectToCombo.Enabled = False は終了のコンボボックスをそれぞれ、
使用不可にしています。
（３）６行目、７行目は５０音抽出条件の指定が[５０音指定]の場合で、６行目の
Me.SelectFromCombo.Enabled = True は開始のコンボボックスを、７行目の
Me.SelectToCombo.Enabled = True は終了のコンボボックスをそれぞれ使用
可能にしています。
次に、Vol.44の「□ 住所録印刷指示画面の印刷ボタンにプログラムを記述する。」
のプログラムの解説を行います。
１．印刷ボタンの[クリック時]のイベントプロシージャ
Private Sub PrintBtn_Click()
On Error GoTo Err_PrintBtn_Click
Dim stDocName As String
Dim stLinkCriteria As String
Call SetGroup
stLinkCriteria = SetWhereStr
stDocName = "AddressRep_W"
DoCmd.OpenReport stDocName, acPreview, , stLinkCriteria
Exit_PrintBtn_Click:
Exit Sub
Err_PrintBtn_Click:
MsgBox Err.Description
Resume Exit_PrintBtn_Click
End Sub
（１）２行目の On Error GoTo Err_PrintBtn_Click はエラーが発生した場合の処理
の流れを指定しています。
この場合、エラーが発生したら Err_PrintBtn_Click: と言うラベルの行へ
処理が飛びます。
（２）４行目と６行目は変数の宣言です。
stDocName と言う変数と、stLinkCriteria と言う変数をそれぞれ文字列型で
宣言しています。
（３）８行目の Call SetGroup は SetGroup と言うサブルーチンを呼び出しています。
（４）９行目の stLinkCriteria = SetWhereStr は SetWhereStr と言うサブルーチン
を呼び出して、その返り値を stLinkCriteria と言う変数に代入しています。
（５）１１行目の stDocName = "AddressRep_W" は stDocName と言う変数に文字列
"AddressRep_W" を代入しています。
（６）１２行目の DoCmd.OpenReport stDocName, acPreview, , stLinkCriteria は
レポートをプレビューで開いています。
開くレポートは第１引数の stDocName で（５）で代入した "AddressRep_W"
になります。
第２引数の acPreview がプレビューを意味します。
（７）１４行目の Exit_PrintBtn_Click: はラベルです。
（８）１５行目の Exit Sub は、このサブルーチン、すなわち印刷ボタンの[クリック
時]のイベントプロシージャを終了します。
（９）１７行目の Err_PrintBtn_Click: もラベルです。
（１）で指定したように、エラーが発生した場合、このラベルの所に処理が
移動します。
（10）１８行目の MsgBox Err.Description はエラー時のエラーの内容をメッセージ
ボックスで表示しています。
（11）１９行目の Resume Exit_PrintBtn_Click は Exit_PrintBtn_Click:のラベル
の位置から、プログラムを再開します。
今回はここまでです。
SetGroup と SetWhereStr の２つのサブルーチンは次回に解説します。
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
□ お知らせ。
ホームページのドメインについて。
失効されると思われたドメインが、何とか失効を免れました。
従来どおり、http://www.fsc-net.com でホームページを継続していきますので
今後とも、よろしくお願いいたします。
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□
◇ ACCESSで作るシリーズ 【住所録ソフト編】
◇ 発 行 元 ：Yoshihisa Fukuda（福田 義久）
◇ ご意見・ご要望
ご質問等 ：fukud@nifty.com
◇ このメールマガジンは、インターネットの本屋さん『まぐまぐ』を利用して発行
しています。（まぐまぐID:0000077071)
◇ バックナンバー：http://www.fsc-net.com
◇ 登録・解除 ：http://www.fsc-net.com
Copyright(C) 2001-2003 Yoshihisa Fukuda All rights reserved.
◇転載について
このメールマガジンの無断転載などは、一切禁止です。
転載をご希望の方は、事前にメールで連絡をください。
◇免責
このメールマガジン及びホームページの内容による、いかなる損害、障害などに
関して発行者は一切の責任を負いません。
掲載広告についても同様です。
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□
ＡＣＣＥＳＳで作るシリーズ 【住所録ソフト編】
発 行 ： Yoshihisa Fukuda 2003.03.22 Vol.46
■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
今回は、住所録印刷の仕組みとその解説です。
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
□ 住所録印刷条件設定画面の解説。
Vol.42の「□ プログラムでコントロールの制御を行います。」のプログラムの解説
を行います。
１．フォームの[開く時]のイベントプロシージャ
Private Sub Form_Open(Cancel As Integer)
Me.GroupCombo2.Enabled = False
Me.SelectFromCombo.Enabled = False
Me.SelectToCombo.Enabled = False
End Sub
（１）２行目の Me.GroupCombo2.Enabled = False はグループ化の２階層目のコンボ
ボックスを使用不可にしています。
これはフォームを開いた時はグループ化の１階層目は[なし]になっているので、
１階層目が[なし]の場合、２階層目は指定できなくしています。
（２）３行目、４行目の Me.SelectFromCombo.Enabled = False と
Me.SelectToCombo.Enabled = False は、５０音抽出条件の開始と終了の５０音
の指定コンボボックスを使用不可にしています。
これは、フォームを開いた時は、５０音抽出条件は[全て]になっているので
５０音の開始、終了を使用できなくしています。
２．グループ１コンボボックスの[更新後処理]のイベントプロシージャ
Private Sub GroupCombo1_AfterUpdate()
If Me.GroupCombo1 = "なし" Then
Me.GroupCombo2.Enabled = False
Else
Me.GroupCombo2.Enabled = True
End If
End Sub
（１）２行目の If Me.GroupCombo1 = "なし" Then はグループ１の指定が[なし]の
場合を判別しています。
（２）３行目の Me.GroupCombo2.Enabled = False はグループ１が[なし]だった場合、
グループ２のコンボボックスを使用不可にして、指定できなくしています。
（３）５行目の Me.GroupCombo2.Enabled = True はグループ１が[なし]でなかった
場合で、グループ２のコンボボックスを使用可能にしています。
３．５０音抽出条件オプショングループの[更新後処理]のイベントプロシージャ
Private Sub SelectFrame_AfterUpdate()
If Me.SelectFrame = 1 Then
Me.SelectFromCombo.Enabled = False
Me.SelectToCombo.Enabled = False
Else
Me.SelectFromCombo.Enabled = True
Me.SelectToCombo.Enabled = True
End If
End Sub
（１）２行目の If Me.SelectFrame = 1 Then は５０音抽出条件の指定が[全て]か
[５０音指定]かを判別しています。
（２）３行目、４行目は５０音抽出条件の指定が[全て]の場合で、３行目の
Me.SelectFromCombo.Enabled = False は開始のコンボボックスを、４行目の
Me.SelectToCombo.Enabled = False は終了のコンボボックスをそれぞれ、
使用不可にしています。
（３）６行目、７行目は５０音抽出条件の指定が[５０音指定]の場合で、６行目の
Me.SelectFromCombo.Enabled = True は開始のコンボボックスを、７行目の
Me.SelectToCombo.Enabled = True は終了のコンボボックスをそれぞれ使用
可能にしています。
次に、Vol.44の「□ 住所録印刷指示画面の印刷ボタンにプログラムを記述する。」
のプログラムの解説を行います。
１．印刷ボタンの[クリック時]のイベントプロシージャ
Private Sub PrintBtn_Click()
On Error GoTo Err_PrintBtn_Click
Dim stDocName As String
Dim stLinkCriteria As String
Call SetGroup
stLinkCriteria = SetWhereStr
stDocName = "AddressRep_W"
DoCmd.OpenReport stDocName, acPreview, , stLinkCriteria
Exit_PrintBtn_Click:
Exit Sub
Err_PrintBtn_Click:
MsgBox Err.Description
Resume Exit_PrintBtn_Click
End Sub
（１）２行目の On Error GoTo Err_PrintBtn_Click はエラーが発生した場合の処理
の流れを指定しています。
この場合、エラーが発生したら Err_PrintBtn_Click: と言うラベルの行へ
処理が飛びます。
（２）４行目と６行目は変数の宣言です。
stDocName と言う変数と、stLinkCriteria と言う変数をそれぞれ文字列型で
宣言しています。
（３）８行目の Call SetGroup は SetGroup と言うサブルーチンを呼び出しています。
（４）９行目の stLinkCriteria = SetWhereStr は SetWhereStr と言うサブルーチン
を呼び出して、その返り値を stLinkCriteria と言う変数に代入しています。
（５）１１行目の stDocName = "AddressRep_W" は stDocName と言う変数に文字列
"AddressRep_W" を代入しています。
（６）１２行目の DoCmd.OpenReport stDocName, acPreview, , stLinkCriteria は
レポートをプレビューで開いています。
開くレポートは第１引数の stDocName で（５）で代入した "AddressRep_W"
になります。
第２引数の acPreview がプレビューを意味します。
（７）１４行目の Exit_PrintBtn_Click: はラベルです。
（８）１５行目の Exit Sub は、このサブルーチン、すなわち印刷ボタンの[クリック
時]のイベントプロシージャを終了します。
（９）１７行目の Err_PrintBtn_Click: もラベルです。
（１）で指定したように、エラーが発生した場合、このラベルの所に処理が
移動します。
（10）１８行目の MsgBox Err.Description はエラー時のエラーの内容をメッセージ
ボックスで表示しています。
（11）１９行目の Resume Exit_PrintBtn_Click は Exit_PrintBtn_Click:のラベル
の位置から、プログラムを再開します。
今回はここまでです。
SetGroup と SetWhereStr の２つのサブルーチンは次回に解説します。
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
□ お知らせ。
ホームページのドメインについて。
失効されると思われたドメインが、何とか失効を免れました。
従来どおり、http://www.fsc-net.com でホームページを継続していきますので
今後とも、よろしくお願いいたします。
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□
◇ ACCESSで作るシリーズ 【住所録ソフト編】
◇ 発 行 元 ：Yoshihisa Fukuda（福田 義久）
◇ ご意見・ご要望
ご質問等 ：fukud@nifty.com
◇ このメールマガジンは、インターネットの本屋さん『まぐまぐ』を利用して発行
しています。（まぐまぐID:0000077071)
◇ バックナンバー：http://www.fsc-net.com
◇ 登録・解除 ：http://www.fsc-net.com
Copyright(C) 2001-2003 Yoshihisa Fukuda All rights reserved.
◇転載について
このメールマガジンの無断転載などは、一切禁止です。
転載をご希望の方は、事前にメールで連絡をください。
◇免責
このメールマガジン及びホームページの内容による、いかなる損害、障害などに
関して発行者は一切の責任を負いません。
掲載広告についても同様です。
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□