行ごとにサブフォームのコンボボックスの項目を変えるには？ (ID:141855)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 OS:WindowsXP SP2 Access Version:2003 フォームを起動した際に、コンボボックス「AreaID」の内容によって、同じコンボボックス「AreaSubID」の項目を変更したいと考えて以下のようなプログラムを作成しました。 Private Sub Form_Load() 'AreaID ：「地区」コンボボックス 'AreaSubID：「都道府県名」コンボボックス strSQL = "SELECT " strSQL = strSQL & "AreaSubID,PrefectureName " strSQL = strSQL & "FROM " strSQL = strSQL & "M_AREA_SUB " strSQL = strSQL & "WHERE AreaID = " & Me.AreaID.Column(0) & " " strSQL = strSQL & "ORDER BY AreaSubID " Me.AreaSubID.RowSource = strSQL End Sub しかし、今のままでは下の画像のように近畿地方にも中部地方の更新がかかってしまう、つまり「都道府県名」の列の全てのコンボボックスが全く同じような更新がかかってしまうのが現状です。 ホームページに作成しているサブフォームの画像を置いてあります。 「都道府県名」の一覧を「地区」列の内容によって変える方法はございませんでしょうか？