테이블의 여러 선택된 행에서 데이터를 검색하는 방법은 무엇입니까?

Question

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") 

이것은 LatLong에서 구글지도에 푸시 핀이 표시됩니다 좌표 : 여기에 기본 양식 버튼을 클릭하면 실행됩니다 코드입니다. 이것은 잘 작동합니다.

내가 지금하고 싶은 것은 서브 폼 테이블에있는 여러 개의 선택된 행에 대한 디스플레이 푸시 핀입니다. 나는 이것을 어떻게하는지 모른다. Google지도로 데이터를 전달하는 것을 처리 할 수는 있지만 문제는 아닙니다. 어떻게 해야할지 모르겠지만 하위 폼의 테이블에있는 여러 개의 선택된 행에서 값을 검색해야합니다. 위의 코드는 FIRST 레코드의 값만 검색합니다.

Answer 1

해당 하위 폼의 DataGrid를 사용하고 있습니까? 그렇다면 다중 선택 목록 상자를 대신 사용해보십시오. 그러면 다음과 같이 사용할 수 있습니다 (모든 변수를 변경해야합니다. 분명히 ...) :

Private Sub testmultiselect_Click() 
    Dim oItem As Variant 
    Dim sTemp As String 
    Dim iCount As Integer 

    iCount = 0 

    If Me!NamesList.ItemsSelected.Count <> 0 Then 
     For Each oItem In Me!NamesList.ItemsSelected 
      If iCount = 0 Then 
       sTemp = sTemp & Me!NamesList.ItemData(oItem) 
       iCount = iCount + 1 
      Else 
       sTemp = sTemp & "," & Me!NamesList.ItemData(oItem) 
       iCount = iCount + 1 
      End If 
     Next oItem 
    Else 
     MsgBox "Nothing was selected from the list", vbInformation 
     Exit Sub 'Nothing was selected 
    End If 

    Me!mySelections.Value = sTemp 
End Sub