+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Bütün listeleri kontrol etme (/konu-butun-listeleri-kontrol-etme.html)
Sayfalar:
1
2
Bütün listeleri kontrol etme - A4177 - 02/03/2013
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
Cvp: Bütün listeleri kontrol etme - ozguryasin - 02/03/2013
sorununuzun daha iyi anlaşılması ve daha hızlı cevap alabilmek için sorununuzu içeren bir örnek eklermisiniz.
Cvp: Bütün listeleri kontrol etme - A4177 - 02/03/2013
Cevap gelmeyince klasik yöntemle,
biraz emekle hallettim...
Cvp: Bütün listeleri kontrol etme - Yandemir - 03/03/2013
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
Cvp: Bütün listeleri kontrol etme - A4177 - 03/03/2013
Elinize sağlık sayın yandemir,
formun hangi olayına ekleyim bu kodları?
Cvp: Bütün listeleri kontrol etme - A4177 - 04/03/2013
Malesef bir çok olayı denedim çalıştıramadım...