Birden Fazla Açılır kutu ilişkisi ve Veri Çağırma

1 2
01/09/2009, 12:23

Puletin

VBA kod penceresini açınız yapıla işlemleri orada görebileceksiniz.

Mesela Nurullah Hoca nın örneğindeki Modeller alanının güncelleme sonrasına yazılan kod

Kod:
Me.Fiyat = DLookup("[Fiyat]", "urun_tanimlama", "[Model]='" & Me.Modeller.Column(1) & "'" & " and " & "[Kategori]='" & Me.Kategori & "'")
Me.Renk = DLookup("[Renk]", "urun_tanimlama", "[Model]='" & Me.Modeller.Column(1) & "'" & " and " & "[Kategori]='" & Me.Kategori & "'")
Me.Kalınlık = DLookup("[Kalınlık]", "urun_tanimlama", "[Model]='" & Me.Modeller.Column(1) & "'" & " and " & "[Kategori]='" & Me.Kategori & "'")
1 2