Forma Listeden Kayıtları aktarmak

Değerli Form Üyeleri,

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

yardımcı olursanız sevinirm.

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.

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

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.

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