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 Sub
