Textbox A Veri Çekme Hk. - icemeno - 08/05/2019
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.
Cvp: Textbox A Veri Çekme Hk. - berduş - 09/05/2019
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
Cvp: Textbox A Veri Çekme Hk. - berduş - 09/05/2019
ş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
Cvp: Textbox A Veri Çekme Hk. - icemeno - 09/05/2019
(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.
Cvp: Textbox A Veri Çekme Hk. - berduş - 09/05/2019
Iyi çalışmalar
Kolay gelsin
Cvp: Textbox A Veri Çekme Hk. - icemeno - 09/05/2019
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
|