Liste Kutusundan Forma Veri Gönderme

06/10/2020, 02:37

yahzee_61

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.
06/10/2020, 11:04

ozanakkaya

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.
06/10/2020, 11:30

yahzee_61

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
06/10/2020, 11:46

yahzee_61

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.
06/10/2020, 13:51

ozanakkaya

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.
06/10/2020, 14:04

yahzee_61

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