Private Sub LISTELE()
Dim str, furun, fismi As String
str = ""
'''''''''''''''''
furun = ""
bagla = ""
For Each varitem In Me.Liste26.ItemsSelected
furun = furun & bagla & "'" & Me.Liste26.ItemData(varitem) & "'"
tirnak = ""
bagla = ","
Next
If furun <> "" Then
'furun = "=" & furun
If str = "" Then
str = "bolumler.AlanID in( " & furun & ")"
Else
str = str & "bolumler.AlanID in(" & furun & ")"
End If
End If
fismi = ""
bagla = ""
For Each varitem In Me.Liste19.ItemsSelected
fismi = fismi & bagla & Me.Liste19.ItemData(varitem)
' fismi = fismi & bagla & "'" & Liste19.ItemData(varitem) & "'"
tirnak = ""
bagla = ","
Next
If fismi <> "" Then
' fismi = "=" & fismi
If str = "" Then
str = ", Bolumler.UnivID in(" & fismi & ")"
Else
str = str & " and Bolumler.UnivID in(" & fismi & ")"
End If
End If
If str = "" Then
Else
str = " where " & str
Debug.Print "SELECT * FROM Bolumler " & str & " "
End If
Liste24.RowSource = "SELECT * FROM Bolumler " & str & " "
Liste24.Requery '
End Sub
2 ayrı liste kutusundan seçim yaparak yeni liste kutusu oluşturmak
Konuyu Okuyanlar: 2 Ziyaretçi