Textbox A Veri Çekme Hk.

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.

cb_tipler_Change() cb_tipler değiştiğinde olayına aşağıdakine benzer bir kod yazarsanız olur bence.

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

'______________________Deneme______

Dim rst As New ADODB.Recordset

Dim SqlMerkal As String

Dim a, i As Integer



SqlMerkal = "select * from TBL_MERKMAL where [tip_idfk]=" & me.cb_tipler

rst.Open SqlMerkal, CurrentProject.Connection, adOpenKeyset, adLockOptimistic 

rst.movelast

rst.movefirst



a=rst.RecordCount 

For i = 1 To a

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

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

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

Controls("txt_uks" & i) = rst.field("txt_uks" & i)

Controls("txt_aks" & i) = rst.field("txt_aks" & i)



Next i

'_______________deneme_bitti______________



End Sub

şimdi dener misiniz? activeX dosyası eksikmiş bir de alanları ve tabloları bilmediğimden kodlamada hata yapmışım 
not : referanslara "microsoft Activex data objects x.x library" eklemelisiniz.

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

'______________________Deneme______

Dim rst As New ADODB.Recordset

Dim SqlMerkal As String

Dim a, i As Integer



SqlMerkal = "select * from TBL_UYARI_SINIRI WHERE (TBL_UYARI_SINIRI.tip_idfk)=" & Me.cb_tipler



rst.Open SqlMerkal, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

rst.MoveLast

rst.MoveFirst



a = rst.RecordCount

For i = 1 To a

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

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

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

Controls("txt_uks" & i) = rst.Fields("uks")

Controls("txt_aks" & i) = rst.Fields("aks")

rst.MoveNext

Next i

'_______________deneme_bitti______________



End Sub

(09/05/2019, 01:45)haliliyas yazdı: şimdi dener misiniz? activeX dosyası eksikmiş bir de alanları ve tabloları bilmediğimden kodlamada hata yapmışım 
not : referanslara "microsoft Activex data objects x.x library" eklemelisiniz.

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

'______________________Deneme______

Dim rst As New ADODB.Recordset

Dim SqlMerkal As String

Dim a, i As Integer



SqlMerkal = "select * from TBL_UYARI_SINIRI WHERE (TBL_UYARI_SINIRI.tip_idfk)=" & Me.cb_tipler



rst.Open SqlMerkal, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

rst.MoveLast

rst.MoveFirst



a = rst.RecordCount

For i = 1 To a

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

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

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

Controls("txt_uks" & i) = rst.Fields("uks")

Controls("txt_aks" & i) = rst.Fields("aks")

rst.MoveNext

Next i

'_______________deneme_bitti______________



End Sub

Teşekkür ederim @haliliyas  bey. Dediğinizi yapınca oldu.

Iyi çalışmalar
Kolay gelsin

Merhaba @haliliyas  Bey;
Merkmal adını yazdırmak için textbox ekledim ve TBL_MERKMAL tablosundan merkmal_adi alanını çekmek için sizin yazdığınız dan esinlenerek sorgu1 yazdım,  Record set oluşturdum.
Fakat şu hatayı alıyorum.  RunTime Error '424 Object Required 
Debug 'a tıkladığımda   alttaki satırda hata olduğunu gösteriyor.


rst.Open SqlMerkal, CurrentProject.Connection, adOpenKeyset, adLockOptimistic   
Ekledim satırlar aşağıdaki gibidir.

Private Sub cb_tipler_Change()

Me.pdf_gosterici.Visible = True

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



Dim rst, rst1 As New ADODB.Recordset

Dim SqlMerkal, sorgu1 As String

Dim a, i As Integer



SqlMerkal = "select * from TBL_UYARI_SINIRI WHERE (TBL_UYARI_SINIRI.tip_idfk)=" & Me.cb_tipler



rst.Open SqlMerkal, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

rst.MoveLast

rst.MoveFirst



a = rst.RecordCount

For i = 1 To a

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

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

Controls("txt_uks" & i) = rst.Fields("uks")

Controls("txt_aks" & i) = rst.Fields("aks")

rst.MoveNext

Next i



sorgu1 = "select * from TBL_MERKMAL where (TBL_MERKMAL.tip_idfk)=" & Me.cb_tipler

rst1.Open sorgu1, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

rst1.MoveLast

rst1.MoveFirst



a = rst1.RecordCount

For i = 1 To a



Controls("txt_lbl_" & i) = rst1.Fields("merkmal_adi")



rst1.MoveNext

Next i







End Sub