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

Adı Soyadı:
Konum:
Adana
Ofis Versiyonu:
Ofis 2010 32 Bit
Son Oturumu:
19/02/2025,23:45
Cevapla