ms 액세스에서 목록 상자의 여러 선택된 항목 참조

Question

목록 상자에서 여러 항목을 선택한 다음 선택한 항목을 참조하려면 어떻게해야합니까?

Answer 1

당신은 다음 단계의 변화를 사용해야합니다 :

1. 양식

2. 에 목록 상자를 만들은 행 소스를 사용하여 목록 상자를 채 웁니다.

3. 다음 VBA 지금

   Option Compare Database 
   Private Item_IDs as string 
   
   Private Sub List_item_id_Click() 
   Dim i As Integer, count As Integer 
   Dim Item_IDs As String 
   count = 1 
   For i = 0 To Me.List_item_id.ListCount - 1 
       If Me.List_item_id.Selected(i) = True Then 
        Item_IDs = Item_IDs & ", " & Me.List_item_id.ItemData(i) 
        count = count + 1 
       End If 
   Next i 
   Item_IDs = Mid(Item_IDs, 3) 
   Debug.Print Item_IDs 
   
   
   End Sub 
   

   에게 나는 목록에서 값을 클릭 할 때마다 다른 탭으로 이동하여 그때 사용 확장

에 다중 선택 속성을 변경, 그것은 반환 내가 선택한 것의 쉼표로 구분 된 값 문자열 (Item_IDs). 바로 가기 창을 열고 작업 결과를 보려면 VBA 창에서 CTRL + G를 사용하십시오.

Answer 2

같은 것. . .

Private Sub OKButton_Click() 
     Dim Msg As String 
     Dim i As Integer 
     Msg = "You selected" & vbNewLine 
     For i = 0 To ListBox1.ListCount - 1 
      If ListBox1.Selected(i) Then 
       Msg = Msg & ListBox1.List(i) & vbNewLine 
      End If 
     Next i 
     MsgBox Msg 
     Unload UserForm1 
    End Sub