+- 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ığı: Sql İle İlişkili Combobox Oluşturma (/konu-sql-ile-iliskili-combobox-olusturma.html)
Sayfalar:
1
2
Sql İle İlişkili Combobox Oluşturma - tsots - 06/09/2017
Merhaba Arkadaşlar,
Genel olarak başarmaya çalıştığım şey birden çok tablo yaratmadan Sql tanımlamalarıyla Vba kullanarak çok ilişkili comboboxlar oluşturmak.
Aşağıdaki kodu yazdım ama case kısmında göreceğiniz "me.cbmodel" kısmını bir türlü doğru şekilde tanımlayamadığım için çalışmıyor. EK'te örneğin kendisini bulabilirsiniz.
Tam olarak yapmak istediğim; "SecimUrunX" formunda Kullanıcı Model olarak Ex1, Ex1A veya diğer herhangi bir modeli seçtiğinde buna bağlı renk seçimini benim tanımladığım kurala göre seçim yapabilsin.
Bunu renk için çalıştırabilirsem, aynı yapıyı daha karmaşık bir şekilde genelline uygulayabileyim. Şimdiden teşekkür ederim.
Private Sub cbModel_afterupdate()
Select Case True
Case Me.cbModel = "SELECT tbl_UrunXKodlama.ID, tbl_UrunXKodlama.[1-Model], tbl_UrunXKodlama.[1-Model Kod] " _
& "FROM tbl_UrunXKodlama " _
& "WHERE (tbl_UrunxKodlama.ID = 1)"
SQLrenk = "SELECT tbl_UrunXKodlama.ID, tbl_UrunXKodlama.[2-Renk], tbl_UrunXKodlama.[2-Renk Kod] " _
& "FROM tbl_UrunXKodlama " _
& "WHERE (tbl_UrunxKodlama.ID Between 3 And 5);"
Me.cbRenk.RowSource = SQLrenk
Me.cbRenk.Requery
cbRenk.Value = strText
Case Me.cbModel = "SELECT tbl_UrunXKodlama.ID, tbl_UrunXKodlama.[1-Model], tbl_UrunXKodlama.[1-Model Kod] " _
& "FROM tbl_UrunXKodlama " _
& "WHERE (tbl_UrunxKodlama.ID = 2 OR tbl_UrunxKodlama.ID = 4)"
SQLrenk = "SELECT tbl_UrunXKodlama.ID, tbl_UrunXKodlama.[2-Renk], tbl_UrunXKodlama.[2-Renk Kod] " _
& "FROM tbl_UrunXKodlama " _
& "WHERE (tbl_UrunxKodlama.ID Between 3 And 4);"
Me.cbRenk.RowSource = SQLrenk
Me.cbRenk.Requery
cbRenk.Value = strText
Case Me.cbModel = "SELECT tbl_UrunXKodlama.ID, tbl_UrunXKodlama.[1-Model], tbl_UrunXKodlama.[1-Model Kod] " _
& "FROM tbl_UrunXKodlama " _
& "WHERE (tbl_UrunxKodlama.ID = 5)"
SQLrenk = "SELECT tbl_UrunXKodlama.ID, tbl_UrunXKodlama.[2-Renk], tbl_UrunXKodlama.[2-Renk Kod] " _
& "FROM tbl_UrunXKodlama " _
& "WHERE (tbl_UrunxKodlama.ID Between 2 And 6);"
Me.cbRenk.RowSource = SQLrenk
Me.cbRenk.Requery
cbRenk.Value = strText
End Select
End SubCvp: Sql İle İlişkili Combobox Oluşturma - ozguryasin - 06/09/2017
Merhaba; örneğinize kısada olsa bir göz atma fırsatım oldu. Örneğinizde kural hataları ve yapı hataları mevcut, müsait olduğumda daha ayrıntılı yazacağım.
Cvp: Sql İle İlişkili Combobox Oluşturma - tsots - 06/09/2017
Şöyle bir ilave yapmam sanırım daha anlaşılır kılacak. Bu çalışma klasik tarzda olsaydı model, renk, guc vs tüm secenekler için ayrı bir tablo yapıp bunlara ayrı birer ID vermek (model_id, renk_id vs. gibi) gerekiyordu. Örnekte geçerli tüm kriterleri tek tabloda topladım. Çoklu tablolar yerine tek bir tablo üzerinden (bu örnekte bu tablo "tbl_UrunXKodlama") bu işlemi yapmaya çalışıyorum. Yani ID numarası komple satır için geçerli değil. Bu sebeple Sql kullanarak yazmaya çalışıyorum. Kısaca "tbl_UrunXKodlama" tablosundaki verilerin seçim ile hiç bir mantıksal bağıntısı yok. Bunu yazacağım döngü belirleyecek. Ayrıca görebildiğim kadarıyla hiç bir forumda bahsettiğim şekilde denenmemiş.
Bunun nedeni gerçek uygulamada seçim kriterinin çok fazla olması. Ve seçimlerin sırasıyla birbirine bağımlı olmamasıdır. Yani model sadece renk seçeneğini etkilemiyor. Örnek verirsem gücüde değişiyor. Kullanıcı seçime modelden başlamak zorunda değil herhangi birinden başlayıp kendisini öncelik verdiği opsiyona göre nasıl etkileyeceğini görebilmeli.
Program tamamlandığında 20-25 milyar arası bir olasılığı gerçekleştiriyor olacak.
Cvp: Sql İle İlişkili Combobox Oluşturma - ozguryasin - 06/09/2017
Sayın tsots. Benim yaptığım tüm projeler bu tarz uygulamalar üzerine. Sizin örneğinizi öğlen inceleme fırsatı buldum. Örneğiniz 1 tabloda 7-8 alan ile sorunsuz tutulabiliyor. Burada önemli olan yapıyı kurmak, mantığı iyi oturtmak. Örneğinize göre incelediğim kadarı ile aklımda mantığı kurdum. Dediğim gibi 1 tablo 7-8 alan en fazla. Tüm örneğinizin ihtiyacını karşılıyor. İsterseniz 10 tane 20 tane daha kriter koyun fark etmez. Eve gidince müsait olduğumda bir bakacağım
Cvp: Sql İle İlişkili Combobox Oluşturma - tsots - 06/09/2017
(06/09/2017, 14:13)ozguryasin yazdı: Sayın tsots. Benim yaptığım tüm projeler bu tarz uygulamalar üzerine. Sizin örneğinizi öğlen inceleme fırsatı buldum. Örneğiniz 1 tabloda 7-8 alan ile sorunsuz tutulabiliyor. Burada önemli olan yapıyı kurmak, mantığı iyi oturtmak. Örneğinize göre incelediğim kadarı ile aklımda mantığı kurdum. Dediğim gibi 1 tablo 7-8 alan en fazla. Tüm örneğinizin ihtiyacını karşılıyor. İsterseniz 10 tane 20 tane daha kriter koyun fark etmez. Eve gidince müsait olduğumda bir bakacağım
Süper sabırsızlıkla bekliyorum. Şimdiden teşekkür ederim.
Cvp: Sql İle İlişkili Combobox Oluşturma - ozguryasin - 06/09/2017
Sayın tsots; konu içeriğini örnekleyerek atabilirmisiniz.? Kriterler üründe neler olacak tarzında bildirirseniz iyi olur.