Toplu İban Aktarımı

Merhaba arkadaşlar,
PERS adında tablomda personeller var,
banka değiştik, Sayfa1 adında personellerin yeni ibanları var,
bu Sayfa1 deki ibanları TC no yu baz alarak,
PERS tablosuna bir defada nasıl aktarabilirim,
uğraştığım kodu aşağıya ekledim.

Sub ibanAktar()
'For ekle = 0 To Me.sayy - 2
Dim guncelle As String
guncelle = "UPDATE PERS SET PERS.BankHesNo=Sayfa1.[IBAN] WHERE PERS.TCNo = Sayfa1.[TC];"
DoCmd.SetWarnings False
DoCmd.RunSQL guncelle
'DoCmd.GoToRecord , , acNext
DoCmd.SetWarnings True
'Next ekle
End Sub

2 tabloyu TC üzerinden inner Join ile ilişkilendirmeniz gerekmektedir
kabaca aşağıdakine benzer bir kod işinize yarayabilir

UPDATE PERS INNER JOIN Sayfa1 ON PERS.TcNo = Sayfa1.TCNo SET PERS.BankHesNo= [Sayfa1]![TC];

Berduş hocam aşağıdaki hatayı verdi,
şart kısmında.

2 değişiklik yaptım düzeldi,
çok teşekkür ederim

sayın @ates2014 tablonuzdaki alanların adını bilmiyorum o nedenle hatalı olması normal, sizde hangi alan TC noyu gösteriyorsa o alanın adını yazabilirsiniz.
diğer mesajımda da belirttiğim gibi sadece kabaca yazılmış, kopyala yapıştır yaparken dikkatten kaçmıştır

---

iyi çalışmalar)