ms-access - MS Access 2007 Google Earth プロジェクトの VBA

Question

テーブルまたはクエリ内のデータをループするアクセス フォームのボタンを使用して、Google Earth 上のポイントをマッピングするコードを記述した例をいくつか見つけました。このコードを使用して、レコードセットをループして複数のポイントをマップしました。ポイントをポリゴンで接続しようとしています。同じループ コード内にポリゴンのコードを含めました。ただし、ポイントを接続する 1 つのポリゴンではなく、ポイントごとにポリゴンが作成されます。正しく機能させるには、ループ中に見つかったすべてのポイントをポリゴン コードに含める必要があります。ただし、これを行う方法がわかりません。以下のコード。これは、フィールド SiteID、LongW、LatN を持つテーブルを見ています。各サイトには 4 ～ 8 個のポイントがあります。提案をありがとう。

Do While Not rst.EOF
        f.Write "<Placemark>"
            f.Write "<name>" & rst!SiteID & "</name>"
            f.Write "<styleUrl>#s_ylw-pushpin_hll</styleUrl>"
            f.Write "<Point>"
            f.Write "<coordinates>" & rst!LongW & "," & rst!LatN & "</coordinates>"
            f.Write "</Point>"
        f.Write "</Placemark>"

        f.Write "<Placemark>"
            f.Write "<name>UntitledPolygon</name>"
            f.Write "<styleUrl>#m_ylw-pushpin</styleUrl>"
            f.Write "<Polygon>"
            f.Write "<tessellate>1</tessellate>"
            f.Write "<outerBoundaryIs>"
            f.Write "<LinearRing>"
            f.Write "<coordinates>" & rst!LongW & "," & rst!LatN & "</coordinates>"
            f.Write strText
        f.Write "</LinearRing></outerBoundaryIs></Polygon></Placemark>" & vbCrLf
rst.MoveNext
Loop