Skip to main content

AccessTr.neT


2 ayrı liste kutusundan seçim yaparak yeni liste kutusu oluşturmak

2 ayrı liste kutusundan seçim yaparak yeni liste kutusu oluşturmak

Çözüldü #7
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.
Cevapla
Çözüldü #8
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
Son Düzenleme: 17/05/2009, 02:09, Düzenleyen: adnanyurdakul.
Cevapla
Çözüldü #9
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.
Cevapla
Çözüldü #10
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
Cevapla
Çözüldü #11
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.
.rar adnornek.rar (Dosya Boyutu: 37,59 KB | İndirme Sayısı: 30)
Son Düzenleme: 18/05/2009, 11:38, Düzenleyen: lawish.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da