Forma Listeden Kayıtları aktarmak

22/05/2011, 14:54

sadikkavakli

Değerli Form Üyeleri,

forma listeden kayıt aktarmaya çalışıyorum olmuyor.

yardımcı olursanız sevinirm.
22/05/2011, 14:58

alpeki99

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

sadikkavakli

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.
22/05/2011, 15:28

alpeki99

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:


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

sadikkavakli

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.


22/05/2011, 15:56

alpeki99

Ders olarak hazırlanılmış hali ve örnek dosya Bir Formdan Diğer Formdaki Metin Kutusuna Bilgi Taşımak / Kopyalamak / Göndermek adresindedir.