AccessTr.neT
Liste Kutusundan Forma Veri Gönderme - Baskı Önizleme

+- 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ığı: Liste Kutusundan Forma Veri Gönderme (/konu-liste-kutusundan-forma-veri-gonderme.html)



Liste Kutusundan Forma Veri Gönderme - yahzee_61 - 06/10/2020

Arkadaşlar formum üzerinde giriş alanları var fakat tablo ile ilişkili değil. alt tarafta ise liste kutusu var. bu liste kutusunda herhangi bir işleme tıkladığımda forma ıd sine göre gelsin normalde geliyor fakat ıd ye göre getiremedim. hata nerede bakabilirmisiniz.


RE: Liste Kutusundan Forma Veri Gönderme - ozanakkaya - 06/10/2020

LstBanka isimli liste kutusunun ilişkili sütun özelliğini 0 olarak değiştir,

Aynı liste kutusunun tıklandığında olayındaki

If Not rs.EOF Then Me.Bookmark = rs.Bookmark

kodunun altına

    Me.BankaAdi = Me.LstBanka.Column(2)
Me.BankaKodu = Me.LstBanka.Column(1)

şeklinde kod ekle, formdaki diğer ilişkisiz alanlar için de Column değerine göre kod eklemelisin.


RE: Liste Kutusundan Forma Veri Gönderme - yahzee_61 - 06/10/2020

SAYIN ozanakkaya düzenlemeyi söylediğiniz gibi yaptım sorunu çözdüm fakat şöyle bir hata veriyor.
Addnew veya edit olmaksızın update veya cancelupdate.

bunu nasıl düzenleyeceğiz. kod aşağıdaki gibidir
Private Sub Lstbanka_Click()
Dim RS As Object
Set RS = Me.Recordset.Clone
RS.FindFirst "(Banka_Id)=" & Me.LstBanka
If Not RS.EOF Then Me.Bookmark = RS.Bookmark
BankaKodu = LstBanka.Column(1)
BankaAdi = LstBanka.Column(2)
BankaSubesi = LstBanka.Column(3)
BankaHesapNo = LstBanka.Column(4)
BankaIban = LstBanka.Column(5)
BankaHesapCinsi = LstBanka.Column(6)
BankaYetkili = LstBanka.Column(7)
BankaYetkiliTelefon = LstBanka.Column(8)
BankaTelefon = LstBanka.Column(9)
BankaFax = LstBanka.Column(10)
BankaMail = LstBanka.Column(11)
BankaNotu = LstBanka.Column(12)
Bankaİli = LstBanka.Column(13)
Bankaİlce = LstBanka.Column(14)
BankaDurum = LstBanka.Column(15)
End Sub



RE: Liste Kutusundan Forma Veri Gönderme - yahzee_61 - 06/10/2020

Ayrıca alt tarafa kodu yazdığımda o alanlar güncelleniyor Banka_Id güncellemiyor. alt tarafa yazdığım kodu siliyorum Banka_Id güncelliyor. bi ayar yapamadım.


RE: Liste Kutusundan Forma Veri Gönderme - ozanakkaya - 06/10/2020

Formda BankaNotu ve BankaDurum metin kutuları ilişkili olduğu için bu denetimlere veri aktarılmayacak.

BankaNotu = LstBanka.Column(12)

ve

BankaDurum = LstBanka.Column(15)

kodları olmayacak.


RE: Liste Kutusundan Forma Veri Gönderme - yahzee_61 - 06/10/2020

çok teşekkür ederim ben onları da kaldırdım diye hiç bakmıyorum kodla uğraşıyorum çok çok teşekkürler.