Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
08/05/2019 19:19
Konu Sahibi
icemeno
Yorumlar
10
Okunma
349
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
icemeno

icemeno

Üye
103912
 38
 7
 25
 20/04/2019
0
 -
 
 -
 22/05/2019,15:25
Çözüldü 
Merhaba;

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


[Resim: f0aeec31d0e.jpeg]

[Resim: a9530951bbd.jpeg]

Vb kod ise şu şekilde.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
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.



halily

halily

Uzman
65596
Ha....
 26
 1.157
 30/07/2014
209
 -
 
 Ofis 2019 64 Bit
 Bugün,22:32
cb_tipler_Change() cb_tipler değiştiğinde olayına aşağıdakine benzer bir kod yazarsanız olur bence.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
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



...........
halily

halily

Uzman
65596
Ha....
 26
 1.157
 30/07/2014
209
 -
 
 Ofis 2019 64 Bit
 Bugün,22:32
ş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.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
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



icemeno

icemeno

Üye
103912
 38
 7
 25
 20/04/2019
0
 -
 
 -
 22/05/2019,15:25
(09/05/2019 01:45)haliliyas Adlı Kullanıcıdan Alıntı: ş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.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
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.



...........
halily

halily

Uzman
65596
Ha....
 26
 1.157
 30/07/2014
209
 -
 
 Ofis 2019 64 Bit
 Bugün,22:32
Iyi çalışmalar
Kolay gelsin



icemeno

icemeno

Üye
103912
 38
 7
 25
 20/04/2019
0
 -
 
 -
 22/05/2019,15:25
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.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
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



...........

Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Formda Dinamik Textbox Oluşturulabilir Mi? icemeno 3 120 26/04/2019, 15:16
Son Yorum: ozanakkaya
Çözüldü Kapalı Olan Access Tablosundan Bilgi Çekme cozum 3 191 11/03/2019, 13:58
Son Yorum: cozum
Çözüldü İnternetten veri Çekme (tjk) osman06 12 7.656 04/03/2019, 20:23
Son Yorum: hüseyin Kara
Çözüldü Tablodan Tabloya Veri Çekme access acemisi 8 422 19/02/2019, 22:45
Son Yorum: access acemisi
Çözüldü Altform'dan Veri Çekme... Oğuz Türkyılmaz 11 336 27/01/2019, 02:22
Son Yorum: Oğuz Türkyılmaz

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2019 MyBB Group.