(19/05/2025, 15:14)HORZUM yazdı: db.Execute "INSERT INTO tblListe0 (Tarih, Islem, Uye, Aciklama, Tutar, EvrakTur, EvrakTarih, EvrakNo, Odtarihi, TurTipi) " & _
                  "VALUES (#" & Format(rs!Tarih, "dd-mm-yyyy") & "#, '" & rs!Islem & "', '" & rs!Uye & "', '" & rs!Aciklama & "', " & rs!Tutar & ", '" & rs!EvrakTur & "', #" & Format(rs!EvrakTarih, "dd-mm-yyyy") & "#, '" & rs!EvrakNo & "', #" & Format(rs!Odtarihi, "dd-mm-yyyy") & "#, '" & rs!TurTipi & "')"

yukardaki kısmı aşağıdaki gibi değiştirip dener misiniz?

       xSql = "INSERT INTO tblListe0 (Tarih, Islem, Uye, Aciklama, Tutar, EvrakTur, EvrakTarih, EvrakNo, Odtarihi, TurTipi) " & _

              "VALUES ( " & CLng(rs!Tarih) & ", '" & rs!Islem & "', '" & rs!Uye & "', '" & rs!Aciklama & "', " & rs!Tutar & ", '" & rs!EvrakTur & "'," & CLng(rs!Tarih) & ", '" & rs!EvrakNo & "'," & CLng(rs!Tarih) & ", '" & rs!TurTipi & "')"

        db.Execute xSql

Not: kodunuzda döngü kullanmanıza gerek var mı? anladığım kadarıyla WHERE Month([Tarih]) = 3 AND TurTipi IN ('GELİR', 'ÜYE GELİR') koşulunu sağlayan her kayıt tblListe0 tablosuna aktarılıyor. döngü yerine aşağıdaki kodla tek seferde eklenebilir
Komut1 düğmesinin kodunu aşağıdaki kodla değiştirip dener misiniz?

Sub Komut1_Click()



    Dim xSQL As String

    

    ' Sql sorgusu: Verileri seç ve var olan tabloya ekle

   xSQL = "INSERT INTO tblListe0 (Tarih, Islem, Uye, Aciklama, Tutar, EvrakTur, EvrakTarih, EvrakNo, Odtarihi, TurTipi) " & _

          "SELECT                 Tarih, Islem, Uye, Aciklama, Tutar, EvrakTur, EvrakTarih, EvrakNo, Odtarihi, TurTipi " & _

          "FROM T030_BankalarIslem " & _

          "WHERE Month([Tarih]) = 3 AND TurTipi IN ('GELİR', 'ÜYE GELİR');"

    

    ' xSQL komutunu çalıştır

      Set db = CurrentDb

          db.Execute xSQL

    Debug.Print db.RecordsAffected, "Veriler HedefTablo'ya eklendi."



End Sub