+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: 2 ayrı liste kutusundan seçim yaparak yeni liste kutusu oluşturmak (/konu-2-ayri-liste-kutusundan-secim-yaparak-yeni-liste-kutusu-olusturmak.html)
Sayfalar:
1
2
Cvp: 2 ayrı liste kutusundan seçim yaparak yeni liste kutusu oluşturmak - lawish - 17/05/2009
Sayın adnanyurdal
Emeğiniz için çok çok teşekkür ederim.
Ama şöyle bir problem var. Mesela çağ üniversitesini ve sayısal ı seçtiğimde, hem çağ üniversitesinde olmayan hemde sayısal olmayan bölümlerde cıkıyor.
Bir de alanlar listesinden çoklu seçim yapmaya ihtiyaç yok. Aslında çoklu seçim yapmanın bir zararı yok fakat yapmak istediğimiz işi daha da zorlaştıracağını düşündüğüm için bunu söyledim.
Uğraşlarınız için tekrar teşekkür ederim.
İyi geceler.
Cvp: 2 ayrı liste kutusundan seçim yaparak yeni liste kutusu oluşturmak - adnanyurdakul - 17/05/2009
haklısın
listele kısmını silerek aşagıdaki kodu yapıştırın
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 Liste19.ItemsSelected
fismi = fismi & bagla & Liste19.Column(2)
' 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
End If
Liste24.RowSource = "SELECT * FROM Bolumler " & str & " "
Liste24.Requery '
tekrar hata bulursan söyle düzelteyim
iyi geceler
Cvp: 2 ayrı liste kutusundan seçim yaparak yeni liste kutusu oluşturmak - lawish - 17/05/2009
Sayın adnanyurdakul
Sizi çok yordum biliyorum ama bir sorun daha var.
Siz üniversiteler listesine ikinci sutun olarak PlakaNo yu eklemişsiniz.
Mesela ankaradaki üniversitelerin yanında 6 yazıyor.
UnivID si 6 olan üniversite çağ üniversitesi.
Sizin yaptığınız şekilde ankaradaki hangi okulu seçersek seçelim çağ üniversitesinin bölümleri geliyor. Çünkü kodlardan anladığım kadarıyla üniversiteler listesinin ikinci sütünuna göre süzme yapmışsınız.
Umarım yanlış anlamamışımdır.
Keşke daha çok bilgim olsaydı da sizi bu kadar yormasaydım.
Çok teşekkür ederim.
İyi çalışmalar.
Cvp: 2 ayrı liste kutusundan seçim yaparak yeni liste kutusu oluşturmak - adnanyurdakul - 17/05/2009
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
Cvp: 2 ayrı liste kutusundan seçim yaparak yeni liste kutusu oluşturmak - lawish - 17/05/2009
Sayın adnanyurdakul
İlginiz ve sabrınız için çok çok teşekkür ederim.
Problemimi tam istediğim şekilde çözdünüz.
Allah razı olsun.
İyi çalışmalar.
_____________________________________________________________
Kodların örneğe entegre edilmiş halini incelemek isteyenler için ekledim.
Kolay gelsin.