■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□

　　　　ＡＣＣＥＳＳで作るシリーズ　　【住所録ソフト編】

　　　　発　行　：　Yoshihisa Fukuda　　　　　　　　　　2001.12.24　訂正号

■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
本日、１２月２４日に配信いたしました Vol.11 のコードの記述に誤りがありました。
正しくは、以下のコードとなります。
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿

　　Dim Addr_DB As Database
　　Dim ZipCode_T As Recordset
　　Dim ZipFind As String
　　Dim AddrStr As String

　　If IsNull(Me.ZipCode) Then
　　　　Exit Sub
　　End If

　　ZipFind = Left(Me.ZipCode, 3) & Right(Me.ZipCode, 4)

　　Set Addr_DB = CurrentDb
　　Set ZipCode_T = Addr_DB.OpenRecordset("ZipCodeTable", dbOpenSnapshot)

　　ZipCode_T.FindFirst "ZipCode = '" & ZipFind & "'"

　　If ZipCode_T.NoMatch Then
　　　　MsgBox "郵便番号に該当する住所が見つかりません。"
　　　　Me.Address = Null
　　　　Exit Sub
　　End If
　　AddrStr = ZipCode_T.Fields("Address1") & _
　　　　　　　ZipCode_T.Fields("Address2")
　　If ZipCode_T.Fields("Address3") <> "以下に掲載がない場合" Then
　　　　AddrStr = AddrStr & ZipCode_T.Fields("Address3")
　　End If

　　Me.Address = AddrStr

　　ZipCode_T.Close
　　Addr_DB.Close

　　Set ZipCode_T = Nothing
　　Set Addr_DB = Nothing
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿

尚、サンプルMDBにも誤りがありました。
既にダウンロードされた方は、申し訳ありませんが、再度ダウンロードをお願いいた
します。

大変、ご迷惑をお掛けいたしました。

この場をお借りしてお詫び申し上げます。
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□

◇ ACCESSで作るシリーズ　【住所録ソフト編】
◇ 発　行　元　　：Yoshihisa Fukuda（福田　義久）
◇ ご意見・ご要望
　 ご質問等　　　：fukud@nifty.com

◇ このメールマガジンは、インターネットの本屋さん『まぐまぐ』を利用して発行
　 しています。（まぐまぐID:0000077071)
◇ バックナンバー：http://homepage2.nifty.com/f-soft/
◇ 登録・解除　　：http://homepage2.nifty.com/f-soft/

　Copyright(C) 2001 Yoshihisa Fukuda All rights reserved.

◇転載について
　このメールマガジンの無断転載などは、一切禁止です。
　転載をご希望の方は、事前にメールで連絡をください。
◇免責
　このメールマガジン及びホームページの内容による、いかなる損害、障害などに
　関して発行者は一切の責任を負いません。
　掲載広告についても同様です。
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□■□