0

MS Access 2007 を使用しています。サブフォームを挿入したフォームがあります。サブフォームは基本的にデータの行と列のグリッドとして表示され、各行はテーブル内のレコードを表します。

メインフォームにボタンがあり、クリックするとサブフォームで現在選択されている行からデータを取得します。サブフォームの表は、基本的に緯度と経度の値のリストで、度、分、秒で表されます。メインフォームボタンがクリックされたときに実行されるコードは次のとおりです。

Dim LatLong As String
Screen.PreviousControl.SetFocus
LatLong = Me.Results.Form.LatitudeDegrees.Value & "+" & _
        Me.Results.Form.LatitudeMinutes.Value & "+" & _
        Me.Results.Form.LatitudeSeconds.Value & "+N,+" & _
        Me.Results.Form.LongitudeDegrees.Value & "+" & _
        Me.Results.Form.LongitudeMinutes.Value & "+" & _
        Me.Results.Form.LongitudeSeconds.Value & "+W"

Launch ("http://maps.google.com/maps?q=" & LatLong & "&hl=en&t=h")

これにより、Google マップの LatLong 座標にプッシュピンが表示されます。これはうまくいきます。

私が今したいのは、サブフォームのテーブルに存在する複数の選択された行のプッシュピンを表示することです。これを行う方法がわかりません。Googleマップにデータを渡すことはできますが、それは問題ではありません。方法がわからないのは、サブフォームのテーブルで選択された複数の行から値を取得することです。上記のコードは、FIRST レコードの値のみを取得します。

4

1 に答える 1