access problem z polem lista i wielokrotnym wyborem

0

Witam,

Mam problem ze stworzeniem prostego formularza który ma zawierać pole listy z wielokrotnego wyboru, tak aby wybrane wartości tworzyły warunek dla kwerendy wybierającej.

Zrobiłem na podstawie tej instrukcji http://support.microsoft.com/kb/827423 i wszystko działa tylko problem pojawia się jeżeli wybiorę więcej niż jedną wartość z listy wtedy kwerenda nie zwraca mi żadnych wartości.

Wykombinowałem coś takiego:

sTemp = "In " & "(" & """" & sTemp & """" & ";" & """" & Me!NamesList.ItemData(oItem) & """" & ")"

wynikiem tego pola jest: In ("260489831514","260489831515")

i wstawiłem to jako warunek kwerendy jednak nie zwraca mi danych...

Musi się dać jakoś to prościej zrobić ale nie znalazłem nigdzie takiego rozwiązania...

0

A nazwa pola?
Pole IN ...

0

Już sobie poradziłem, zrobiłem to tak:

1 .Utworzyłem Pole listy i nazwałem ją Lista0
Żrodło wierszy: SELECT DISTINCT Customer FROM BAZA
Wybór wielokrotny: Prosty

  1. Utworzyłem przyciski i nazwałem go Polecenie2 (bez kreatora)

  2. potem edytowałem kod i wkleiłem to co niżej

 Private Sub Polecenie2_Click()
  Dim Q As QueryDef, DB As Database
   Dim Criteria As String
   Dim ctl As Control
   Dim Itm As Variant
   ' Build a list of the selections.
   Set ctl = Me![Lista0]
   For Each Itm In ctl.ItemsSelected
      If Len(Criteria) = 0 Then
         Criteria = Chr(34) & ctl.ItemData(Itm) & Chr(34)
      Else
         Criteria = Criteria & "," & Chr(34) & ctl.ItemData(Itm) _
          & Chr(34)
      End If
   Next Itm
   If Len(Criteria) = 0 Then
      Itm = MsgBox("Musisz wybrać przynajmniej jednego klienta.." & _
        " list box!", 0, "Nie zaznaczono żadnego klienta")
      Exit Sub
   End If
   ' Modify the Query.
   Set DB = CurrentDb()
   Set Q = DB.QueryDefs("WYNIK")
   ' Modify the Query.
   Set DB = CurrentDb()
   Set Q = DB.QueryDefs("WYNIK")
   Q.SQL = "Select * FROM BAZA WHERE Customer In (" & Criteria & _
     ");"
   Q.Close

   ' Run the query.
   DoCmd.OpenQuery "WYNIK"
   
   End Sub

Może komuś się przyda

1 użytkowników online, w tym zalogowanych: 0, gości: 1