Liste Kutusu

(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

(05/01/2023, 14:50)Sümeyye_ yazdı:

(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

Form açılıyor ama üstünde değerler belli olmuyor neden olabilir acaba

Eklediğim örnekte herhangi bir hata göremedim. 

"Değerler belli olmuyor" kısmını anlamadım.

(05/01/2023, 23:31)ozanakkaya yazdı: Eklediğim örnekte herhangi bir hata göremedim. 

"Değerler belli olmuyor" kısmını anlamadım

Anlatamadım eklediğiniz örnek sorunsuz çalışıyor tam da istediğim gibi olmuş.
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.

Şö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.Bookmark

kodu 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.