Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
02/03/2013 18:19
Konu Sahibi
A4177
Yorumlar
8
Okunma
2192
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
A4177

A4177

Aktivasyon Bekleyen
48200
 Belirtilmemiş
 7
 22
 14/05/2012
 Adıyaman
 
 Ofis 2003
 03/08/2013,22:13
Çözüldü 
Merhabalar,
form üzerinde 31 tane liste kutum var,
bu listedeki hangi satıra tıklarsam,
listenin column(1) satırını tanımlamış olduğum
bir Metin kutusuna göndermesini nasıl yapabilirim,
E0=List0.column(1)
gibi, 31 tane liste kutusuna kod yazmadan bunu nasıl yapabilirim.
bilgim dahilinde aşağıdakini yaptım olmadı,
Private Sub Form_Load()
Dim Ctrl As Control
For Each Ctrl In Screen.ActiveForm.Controls

If Ctrl.Name = Me.ActiveControl.Name Then

Me.E0.Value = Ctrl.Column(1)

End If

Next
End Sub




ozguryasin

ozguryasin

Uzman
9727
Öz.... Ya....
 36
 44
 1.131
 23/09/2009
613
 Bursa
 Yazılım
 Ofis 2016 32 Bit
 23/06/2019,16:14
Çözüldü 
sorununuzun daha iyi anlaşılması ve daha hızlı cevap alabilmek için sorununuzu içeren bir örnek eklermisiniz.


POWER 'un Çekirgesi :=)
ozguryasin, 23-09-2009 tarihinden beri AccessTr.neT AİLESİ üyesidir.
Access'i Profesyonel Şekilde Öğrenmek İçin https://www.accesstr.net Ailesi Yeter. alkis


Site Kurallarını sorularınızın hızlı cevaplanması için kesinlikle okuyunuz.

...........
A4177

A4177

Aktivasyon Bekleyen
48200
 Belirtilmemiş
 7
 22
 14/05/2012
 Adıyaman
 
 Ofis 2003
 03/08/2013,22:13
Çözüldü 
Cevap gelmeyince klasik yöntemle,
biraz emekle hallettim...



Yandemir

Yandemir

Onursal Üye

Additional groups:
Üye
9224
Mu.... Ya....
 46
 17
 1.441
 26/08/2009
487
 Tekirdağ
 Yazılım
 Ofis 2003
 04/05/2019,00:10
Çözüldü 
form open olayına koyamazsınız listboxlar seçili değildir.
seçtikten sonra aşağıdaki kod çalışır. On error seçilmemiş ListBox larda hataya düşmemesi içidir.

Visual Basic Code
1
2
3
4
5
6
7
    On Error Resume Next
    Dim c As Control
    For Each c In Me.Controls
        If TypeOf c Is ListBox Then
            MsgBox c.Column(1)
        End If
    Next



Murat YANDEMİR ( PyramiD YAZILIM Uluslar Arası Nakliye Programları )
Bilgisayar Programcısı (1989'dan beri)

+rep Yollar biter Access bitmez. +rep

...........
A4177

A4177

Aktivasyon Bekleyen
48200
 Belirtilmemiş
 7
 22
 14/05/2012
 Adıyaman
 
 Ofis 2003
 03/08/2013,22:13
Çözüldü 
Elinize sağlık sayın yandemir,
formun hangi olayına ekleyim bu kodları?



A4177

A4177

Aktivasyon Bekleyen
48200
 Belirtilmemiş
 7
 22
 14/05/2012
 Adıyaman
 
 Ofis 2003
 03/08/2013,22:13
Çözüldü 
Malesef bir çok olayı denedim çalıştıramadım...



...........

Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Tablodaki Ürünleri Count Etme yurdalsldrk 2 158 24/02/2019, 21:54
Son Yorum: yurdalsldrk
Çözüldü Aynı Kayıt Kontrol Kodu 2 Farklı Sonuç... Oğuz Türkyılmaz 3 262 08/02/2019, 16:27
Son Yorum: Oğuz Türkyılmaz
Çözüldü Kontrol Ettirme Ve Mail Gönderme untouchable 5 328 15/12/2018, 15:26
Son Yorum: ozanakkaya
Çözüldü Değişkeni tüm formda kontrol ettirme bibib 6 302 02/12/2018, 23:28
Son Yorum: bibib
Çözüldü Kullanıcı Giriş Kontrol Kodu untouchable 4 259 30/11/2018, 14:48
Son Yorum: halily

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