Sayın 208319 ve sledgeab;

Günaydınlar ve iyi haftalar.

Emek ve katkı için teşekkürler.

bimukabele assenucler

Forma ay seçebileceğin açılan kutu ekledim.

çok teşekkürler ozan bey allah razı olsun

merhaba sn. sledgeab tablolar arası veri kopyalamada formüllerde hata yapıyorum mümkünse kontrol edebilirmisin teşekkür ederim
Private Sub Komut104_Click()
yol = CurrentProject.path & "\" & "Frm1.mdb"
ay = MtnAy
DoCmd.RunSQL "INSERT INTO Tablo ( SucNo, SucAyrim, TumSuclar, SucMerkezleri, SucMahalleleri, CaddeSokak, MerkezdekiSuc, OlayTarihi, OlayAyi, OlaySaati, SaatAralik, KurumMeskenNo, Aydinlatilan, FailiMechul, Toplam, Serbest, Tevkif, Firar, Firar_, Tarih, Olay, Tarih_, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, Ruhsatlı, Ruhsatsız, Ruhsatlı_, Ruhsatsız_, Belgeli, Belgesiz, Bicak, Diger, Kayip, Bulundu, CalintiArac, BulunanAraclar, CalintiMotor, BulunanMotor, OkuldakiSuclar, BulunmaTarihi, EsyaAdi, Turu, Miktari, MiktarCinsi) IN '" & yol & "' SELECT Tablo.SucNo," & _
" Tablo.SucAyrim, Tablo.TumSuclar, Tablo.SucMerkezleri, Tablo.SucMahalleleri, Tablo.CaddeSokak, Tablo.MerkezdekiSuc, Tablo.OlayTarihi, Tablo.OlayAyi, Tablo.OlaySaati, Tablo.SaatAralik, Tablo.KurumMeskenNo, Tablo.Aydinlatilan, Tablo.FailiMechul, Tablo.Toplam, Tablo.Serbest, Tablo.Tevkif, Tablo.Firar, Tablo.Firar_, Tablo.Tarih, Tablo.Olay, Tablo.Tarih_, Tablo.1, Tablo.2, Tablo.3, Tablo.4, Tablo.5, Tablo.6, Tablo.7, Tablo.8, Tablo.9, Tablo.10, Tablo.11, Tablo.12, Tablo.13, Tablo.14, Tablo.15, Tablo.16, Tablo.17, Tablo.18, Tablo.19, Tablo.20, Tablo.21, Tablo.22, Tablo.23, Tablo.24, Tablo.25, Tablo.26, Tablo.27, Tablo.28, Tablo.29, Tablo.30, Tablo.31, Tablo.32, Tablo.33, Tablo.34, Tablo.35, Tablo.36, Tablo.37, Tablo.38, Tablo.39, Tablo.40, Tablo.Ruhsatlı, Tablo.Ruhsatsız, Tablo.Ruhsatlı_, Tablo.Ruhsatsız_, Tablo.Belgeli, Tablo.Belgesiz, Tablo.Bicak, Tablo.Diger, Tablo.Kayip, Tablo.Bulundu, Tablo.CalintiArac, Tablo.BulunanAraclar, Tablo.CalintiMotor, Tablo.BulunanMotor, Tablo.OkuldakiSuclar," & _
" Tablo.BulunmaTarihi, Tablo.EsyaAdi, Tablo.Turu, Tablo.Miktari, Tablo.MiktarCinsi, FROM Tablo WHERE (((Tablo.OlayAyi)='" & ay & "'));"
End Sub

Örnek uygulama olmadan hatayı bulmak zor.