While (Not .EOF)
CurrentDb.Execute "INSERT INTO "
.MoveNext
Wend
Bu kısım hatalı, tablo, sorgu ve formun bulunduğu örnek uygulama eklerseniz incelenip kod yardımında bulunulabilir. Sorunuz görünüş itibariyle ekleme sorgusu ile çözülecek, ancak tablodaki alanlar ne, tablo isimleri ne bilmediğim için kod ekleyemem.