(22/09/2015, 14:23)atoz112 dusunceli davranisiniz icin tesekkur ederim. Asagida yazldigi sekilde bir cozum urettim. Uygulama gayet basarili bir sekilde calisiyor. Uygulamanin gorulmesi icinde ekte sunuyorum.    Private Sub List1_DblClick(Cancel As Integer) yazdı: Forms![frm_main]![UNITCODE] = Me.List1.Column(1)
Forms![frm_main]![UNITNUMBER] = Me.List1.Column(2)
End Sub

Private Sub List2_DblClick(Cancel As Integer)
Forms![frm_main]![DISCIPLINECODE] = Me.List2.Column(1)
Forms![frm_main]![DISCIPLINENUMBER] = Me.List2.Column(2)
End Sub

Private Sub List3_DblClick(Cancel As Integer)
Forms![frm_main]![TYPECODE] = Me.List3.Column(1)
Forms![frm_main]![TYPENUMBER] = Me.List3.Column(2)
End Sub



atoz112sayın orhantanriverdi,

Alıntı:Konuyu arastirmalarim sonucu cozmus bulunuyorum.

Tesekkurler

ifadenize yönelik olarak;

her ne kadar katılımcılar tarafından konunuza paylaşımda bulunmak adına imkan ve zaman fırsatı söz konusu olamamasına rağmen,kendi çabalarınız ya da araştırmalarınız nezdinde çözüm elde etmeniz nezdinde,siz de uygun görür ve isterseniz eğer,sorununuza dair çözümünü ve çözülmüş halini içeren örnek uygulamanızı paylaşmak ister misiniz?

böylece,benzer soruna maruz kalabilecek diğer üyelerin de bilgi edinmesini ve öğrenmesini,benzer çözüm mantığı ile sonuca ulaşmalarına da imkan sağlamış olursunuz.teşekkürler.

bilginize...iyi çalışmalar,saygılar.