Merhaba;

İlişki ve form yapım resimlerde ki gibi .






Vb kod ise şu şekilde.

Private Sub cb_masraf_yeri_AfterUpdate()

Dim i As Integer

Me.cb_tipler.Requery



For i = 1 To 6



Controls("txt_uks" & i).Visible = False

Controls("txt_aks" & i).Visible = False

Controls("lbl_" & i).Visible = False

Next i



End Sub





Private Sub cb_tipler_Change()

Me.pdf_gosterici.Visible = True

Me.txt_teknik_resim_no = Dlookup ("teknik_resim", "TBL_TIPLER", "tip_id=" & cb_tipler)

Me.lbl_1.Caption = Dlookup ("merkmal_adi", "TBL_MERKMAL", "tip_idfk=" & cb_tipler)

Me.cb_merkmal.Requery



End Sub







Private Sub cb_merkmal_Change()

Dim a, i As Integer



            Me.txt_uks1 = Dlookup ("uks", "TBL_UYARI_SINIRI", "uyari_siniri_id=" & cb_merkmal)



            Me.txt_aks1 = Dlookup ("aks", "TBL_UYARI_SINIRI", "uyari_siniri_id=" & cb_merkmal)



a = Me.cb_merkmal.ListCount





For i = 1 To a



Controls("txt_uks" & i).Visible = True

Controls("txt_aks" & i).Visible = True

Controls("lbl_" & i).Visible = True

Next i





End Sub

Mevcut Durum : ==> Formda masraf yerini seçiyorum buna bağlı olarak tip numaraları filtreleniyor ve istediğim tip numarasını seçiyorum.
Merkmal isminden de istediğim merkmali seçtiğimde sağ taraftaki textbox lar da değerler geliyor.

İstediğim Durum :==> Merkmal ismi combobo ını kaldırayım yada görünmez yapayım. Fakat merkmal ismi  adlı combodaki isimler sağdaki Labellere gelsin. ve labellerin karşısındaki textlara değeri yazdırılsın.
(Reismdeki comboboxta çıkan Form ve ebene ismi labellerde yazsın  ve karşısındaki txtboxlara bunlarınj değerleri yazsın)


Biraz karışık oldu farkındayım .Fakat iş yerinden dosya upload etme şansın ne yazık ki yok. Gece işten çıkınca ancak evden benzer bir dosya yollaya bilirim.
İlgilenen arkadaşlara şimdiden teşekkürler.