Döngü ile başka tablodan veri alarak döngü oluşturma. Ekte ayrıntısını anlattım Yardımınız için şimdiden teşekkürler.

  Yeni Microsoft Access Veritabanı(3).rar (Boyut: 24,24 KB / İndirilme: 82) inceleyiniz.

Harika olmuş. Emeğin ve yardımın için teşekkür ederim.

CurrentDb.Execute "Insert Into aidatlar (daireno, al_tar, tutarı) Select " & Kayit!daireno & " As E0, #" & Format(Tar, "mm\/dd\/yyyy") & "# As E1, " & Me.Tutar

kodda E0,E1 ne anlama geliyor. Bu dizine başka alan nasıl ekleriz. Örnek alan adı:nevi
bağlantısı:metin14

(19-06-2016, 16:37)yahyamacit demiş ki: CurrentDb.Execute "Insert Into aidatlar (daireno, al_tar, tutarı) Select " & Kayit!daireno & " As E0, #" & Format(Tar, "mm\/dd\/yyyy") & "# As E1, " & Me.Tutar

kodda E0,E1 ne anlama geliyor. Bu dizine başka alan nasıl ekleriz. Örnek alan adı:nevi
bağlantısı:metin14

(daireno, al_tar, tutarı) alani verinin eklenecek tabloda ki sutun isimleri.
Select " & Kayit!daireno & " As E0..... ise veriyi olusturan degiskenler. Eklenecek veri sirasi ile degiskenlerin sirasi ayni olmasina dikkat edilmeli ve metin olanlari kesme isereti, tarih olanlar diyez(#) isaretleri ile sinirlamali, sayi olanlar ise bos birakilmalidir. E0,1,2 olanlar sorguda ki degisken isimleridir. Tabloya dayali select olmadigi icin VBA da bazen form uzerindeki nesneler sebebi ile hata alinabilecegi icin As E0 gibi tanimlama yapmakta yarar vardir.

CurrentDb.Execute "Insert Into aidatlar (daireno, al_tar, tutarı, nevi) Select " & Kayit!daireno & " As E0, #" & Format(Tar, "mm\/dd\/yyyy") & "# As E1, " & Me.Tutar & ",'" & me.metin14 & "' As E3"
olarak yapilabilir.

Verdiğin bilgiler için çok teşekkür ederim.