Skip to main content

AccessTr.neT


Bütün listeleri kontrol etme

Bütün listeleri kontrol etme

Çözüldü #1
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
Cevapla
Çözüldü #2
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.
Cevapla
Çözüldü #3
Cevap gelmeyince klasik yöntemle,
biraz emekle hallettim...
Son Düzenleme: 03/03/2013, 22:39, Düzenleyen: A4177.
Cevapla
Çözüldü #4
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.

    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
Cevapla
Çözüldü #5
Elinize sağlık sayın yandemir,
formun hangi olayına ekleyim bu kodları?
Cevapla
Çözüldü #6
Malesef bir çok olayı denedim çalıştıramadım...
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da