+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Forma Listeden Kayıtları aktarmak (/konu-forma-listeden-kayitlari-aktarmak.html)
Forma Listeden Kayıtları aktarmak - sadikkavakli - 22/05/2011
Değerli Form Üyeleri,
forma listeden kayıt aktarmaya çalışıyorum olmuyor.
yardımcı olursanız sevinirm.
Cvp: Forma Listeden Kayıtları aktarmak - alpeki99 - 22/05/2011
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.
Cvp: Forma Listeden Kayıtları aktarmak - sadikkavakli - 22/05/2011
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.
Cvp: Forma Listeden Kayıtları aktarmak - alpeki99 - 22/05/2011
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.
Cvp: Forma Listeden Kayıtları aktarmak - sadikkavakli - 22/05/2011
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.
Cvp: Forma Listeden Kayıtları aktarmak - alpeki99 - 22/05/2011
Ders olarak hazırlanılmış hali ve örnek dosya Bir Formdan Diğer Formdaki Metin Kutusuna Bilgi Taşımak / Kopyalamak / Göndermek adresindedir.