+- 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ığı: Liste Kutusu (/konu-liste-kutusu--90286.html)
Sayfalar:
1
2
RE: Liste Kutusu - Sümeyye_ - 05/01/2023
(05/01/2023, 14:08)ozanakkaya yazdı: Örneğinizin düzenlenmiş hali ektedir.
Çok teşekkürler yaptım ama çift tıklayınca sonucu vermiyor hala hatamı arıyorum
RE: Liste Kutusu - Sümeyye_ - 05/01/2023
(05/01/2023, 14:50)Sümeyye_ yazdı:Form açılıyor ama üstünde değerler belli olmuyor neden olabilir acaba(05/01/2023, 14:08)ozanakkaya yazdı: Örneğinizin düzenlenmiş hali ektedir.
Çok teşekkürler yaptım ama çift tıklayınca sonucu vermiyor hala hatamı arıyorum
RE: Liste Kutusu - ozanakkaya - 05/01/2023
Eklediğim örnekte herhangi bir hata göremedim.
"Değerler belli olmuyor" kısmını anlamadım.
RE: Liste Kutusu - Sümeyye_ - 06/01/2023
(05/01/2023, 23:31)ozanakkaya yazdı: Eklediğim örnekte herhangi bir hata göremedim.Anlatamadım eklediğiniz örnek sorunsuz çalışıyor tam da istediğim gibi olmuş.
"Değerler belli olmuyor" kısmını anlamadım
Ama ben başka bir uygulama da yapıyorum. Yaptım ama çalışmadı.
Listede değer seçince o değer diğer formda gözükmüyor onun nedenini bulamadım.
En baştan yine kontrol edeceğim.
RE: Liste Kutusu - ozanakkaya - 07/01/2023
Şöyle anlatayım. Modül içerisinde
Global GeciciId As StringŞeklinde kod mevcut.
Ara isimli formdaki liste kutusunun çift tıklandığında olayında
GeciciId = Me.Liste5.Column(0)Kodu var. Liste kutusu çift tıklandığında, GeciciId'e liste kutusunun satır kaynağındaki sorgunun ilk sütununda bulunan "MachineName" değerini aktarıyor. Column(0), sorgudaki ilk sütun. Column(1) yazsaydım, sorgudaki 2. sütunu alacaktı.
FrmComputers isimli formun etkinleştiğinde olayında da;
Dim rs As Object
If Len(GeciciId & "") = 0 Then
GeciciId = Dlookup ("MachineName", "Computers")
End If
Set rs = Me.Recordset.Clone
rs.FindFirst "[MachineName] = '" & GeciciId & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmarkkodu mevcut. Önceki formda bulunan Liste kutusu çift tıklandığında kaydedilen GeciciId değerini burada kullanıyor. frmComputers isimli formun kayıt kaynağında MachineName ile GeciciId değeri eşit olan ilk kaydı buluyor.