Açılır kutuları ilişkilendirme

[cresendo]

Arkadaşlar accesste bir stok programı yazmaya çalışıyorum.Access konusunda bilgili arkadaşların yardımına ihtiyacım var.Sorunum ekteki dosyanın içerisindeki bornoz formuna geldiğimde malzeme tanımını seçtiğimde seçtiğim malzeme tanımının renklerinin gelmesini istiyorum.Bu konuda yardımcı olabilirseniz sevinirim.

 

[adnanyurdakul]

sayın cresendo
Private Sub Açılan_Kutu44_AfterUpdate()
Dim sql As String
sql = "SELECT distinct BORNOZ.[MALZEME TANIMI], BORNOZ.[RENK TANIMI] FROM BORNOZ " & _
"WHERE BORNOZ.[MALZEME TANIMI] ='" & [Forms]![BORNOZ]![Açılan Kutu44].Column(1) & " '"

Me.Açılan_Kutu46.RowSourceType = "table/query"
Me.Açılan_Kutu46.RowSource = sql
Me.Açılan_Kutu46.Requery
End Sub

örneğiniz ekte

 

[cresendo]

Yardımınız için çok teşekkür ederim. Siz gibi üstadlar olmasa bizim gibi cıraklar bu işi ogrenemez tekrardan sağolun...