【Access】 郵便番号を検索するシステム
よろしくお願いいたします。
現在、Accessのフォームにて、任意の番号をテキストボックス("(1)")に入力し"検索ボタン"を押すと、該当する郵便番号がフォーム上のテキストボックス("(2)")に表示されるシステムを作っています。
また、郵便番号は"郵便番号一覧"というテーブルにまとめています。
(テーブルには約14万件の"郵便番号"と"住所"が含まれています)
ここで質問があるのですが、同じ郵便番号であっても複数の住所が該当するケースがあります。
テーブルにもそうした件が多数含まれていますが、現在の私のVBAでは、その内のひとつの住所しか表示することが出来ません。
そこで、複数の住所が存在する場合は、該当する住所の一覧が表示され、その中から1件を選べるようなシステムを作りたく考えています。
様々な参考書を読み続けてきましたが、完全に行き詰まりました。お知恵を拝借頂けますと幸いです。
--------------------------------
尚、現在のVBAは下記の通りです。
Private Sub 検索ボタン_Click()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("郵便番号一覧", dbOpenTable)
With rs
.Index = "郵便番号"
.Seek "=", Me.(1)
End With
If Not rs.NoMatch Then
With Me
.(2) = rs!住所
End With
End If
rs.Close: Set rs = Nothing
db.Close: Set db = Nothing
End Sub
お礼
ご回答ありがとうございます。 本当に簡単に見つかりましたね・・・・