Private Sub Liste2_AfterUpdate()
' burada formumuzun denetimindeki verilerden listedeki seçime uymasını sağlıyoruz, yani biz listede hangisini seçmişsek kayıtlarda oraya gitsin.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[ekipmankodu] = " & Val(Nz(Me![Liste2], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
Form1'de yer alan liste kutusunun Çift Tıklanma olayına aşağıdaki kodları yazıyorum :
Forms!form2.SetFocus
Böylelikle Form1'de iken Form2'ye odaklanabiliyorum. Form2'de yer alan metin kutularının içine Form1' de yer alan listenin 1. ve 2. sütunlarının değerlerini yazdırıyorum:
Forms!form2.SetFocus
Forms!form2.Form!ekipmankodu = Liste2.Column(1)
Forms!form2.Form!Ekipmanaciklaması = Liste2.Column(2)
Artık Form1'de iken Listeye çift tıkladığımda tıkladığım satırdaki değerler Form2'de yer alan metin kutularına yerleştiriliyor.
Eğer çift tıkladıktan sonra Form1 kapatılsın istersem en alta şu kodu yerleştiriyorum:
Forms!form2.SetFocus
Forms!form2.Form!ekipmankodu = Liste2.Column(1)
Forms!form2.Form!Ekipmanaciklaması = Liste2.Column(2)
DoCmd.Close acForm, "form1"
Muhtemel Sorun : Form1 açıkken Form2 kapalı olursa hata verir. Bunun için IsLoaded isimli fonksiyon kullanılabilir ya da Form2 kapatılmadan Form1 Özelliklerinden Açılan ve Kalıcı Evet olarak ayarlanır. En sağlamı ise IsLoaded kullanımıdır.