Bir form ve bu formda bir düğme oluşturun, Tıklandığında olayına;

Private Sub Komut0_Click()

DoCmd.SetWarnings False

   DoCmd.RunSQL ("INSERT INTO Table_ocak ( ID, yıl, ay, tarih, fat_no, fat_tutar )SELECT Table_aktar.ID, Table_aktar.yıl, Table_aktar.ay, Table_aktar.tarih, Table_aktar.fat_no, Table_aktar.fat_tutar FROM Table_aktar WHERE (((Table_aktar.ay)='1'))")

   DoCmd.RunSQL ("INSERT INTO Table_subat ( ID, yıl, ay, tarih, fat_no, fat_tutar ) SELECT Table_aktar.ID, Table_aktar.yıl, Table_aktar.ay, Table_aktar.tarih, Table_aktar.fat_no, Table_aktar.fat_tutar FROM Table_aktar WHERE ((Table_aktar.ay)='2')")

   DoCmd.RunSQL ("INSERT INTO Table_mart ( ID, yıl, ay, tarih, fat_no, fat_tutar ) SELECT Table_aktar.ID, Table_aktar.yıl, Table_aktar.ay, Table_aktar.tarih, Table_aktar.fat_no, Table_aktar.fat_tutar FROM Table_aktar WHERE ((Table_aktar.ay)='3')")

DoCmd.SetWarnings True

End Sub

yazarak deneyin lütfen.