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