Textbox A Veri Çekme Hk.

1 2
08/05/2019, 19:19

icemeno

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.
09/05/2019, 01:03

berduş

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
09/05/2019, 01:45

berduş

ş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, 03:14

icemeno

(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.
09/05/2019, 03:25

berduş

Iyi çalışmalar
Kolay gelsin
09/05/2019, 17:09

icemeno

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
1 2