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
Toplu İban Aktarımı
2 tabloyu TC üzerinden inner Join ile ilişkilendirmeniz gerekmektedir
kabaca aşağıdakine benzer bir kod işinize yarayabilir
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.
şart kısmında.
2 değişiklik yaptım düzeldi,
çok teşekkür ederim
çok teşekkür ederim
Konuyu Okuyanlar: 1 Ziyaretçi