22/05/2011, 14:54
22/05/2011, 14:58
Bu açıklama yetersiz. Lütfen daha net ve anlaşılır şekilde sorunuzu sorun. Hangi formda, ne yapınca, ne olmasını istiyorsunuz örneklendirerek anlatınız.
22/05/2011, 15:14
Sayın alpeki99
form2 formunda f10 tuşu ile form1 açılacak oradaki listede bulunan öyelerin mause ile çift tıklayınca form2 yazılmasını form2 kayıt edilince de kayıtların tablo3 e yazılması gerekiyor.
ilgi ve alakanız için teşekür ediyorum.
form2 formunda f10 tuşu ile form1 açılacak oradaki listede bulunan öyelerin mause ile çift tıklayınca form2 yazılmasını form2 kayıt edilince de kayıtların tablo3 e yazılması gerekiyor.
ilgi ve alakanız için teşekür ediyorum.
22/05/2011, 15:28
Form2'nin Özelliklerinden Kayıt Kaynağını Tablo3 olarak seçtim. Form1'in Vba kodları bölümüne geçiş yaptım. Aşağıdaki kodu tamamen sildim:
Form1'de yer alan liste kutusunun Çift Tıklanma olayına aşağıdaki kodları yazıyorum :
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:
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:
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.
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.
22/05/2011, 15:40
Sayın alpeki99
paylaşım için teşekür ediyorum.
ek'i paylaşmak isterdim ekleme yerini bulamadım.
sonuç doğru olarak veriyor.
teşekür ediyorum.
paylaşım için teşekür ediyorum.
ek'i paylaşmak isterdim ekleme yerini bulamadım.
sonuç doğru olarak veriyor.
teşekür ediyorum.
22/05/2011, 15:56
Ders olarak hazırlanılmış hali ve örnek dosya Bir Formdan Diğer Formdaki Metin Kutusuna Bilgi Taşımak / Kopyalamak / Göndermek adresindedir.