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.
Liste Kutusundan Forma Veri Gönderme
LstBanka isimli liste kutusunun ilişkili sütun özelliğini 0 olarak değiştir,
Aynı liste kutusunun tıklandığında olayındaki
kodunun altına
şeklinde kod ekle, formdaki diğer ilişkisiz alanlar için de Column değerine göre kod eklemelisin.
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.
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
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
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.
Formda BankaNotu ve BankaDurum metin kutuları ilişkili olduğu için bu denetimlere veri aktarılmayacak.
ve
kodları olmayacak.
BankaNotu = LstBanka.Column(12)
ve
BankaDurum = LstBanka.Column(15)
kodları olmayacak.
çok teşekkür ederim ben onları da kaldırdım diye hiç bakmıyorum kodla uğraşıyorum çok çok teşekkürler.
Konuyu Okuyanlar: 2 Ziyaretçi