for next sorgusunu yapamadım hocam yardımcı olur musunuz?
rs.Open "TBLKATILIMCIALT", CurrentProject.Connection, adOpenDynamic, adLockReadOnly
rs2.Open "T_KATILIMCILAR", CurrentProject.Connection, adOpenDynamic, adLockOptimistic
rs2.AddNew
rs2!DONEMID = Me.AKDONEM
rs2!ADSOYAD = rs("ADI")
rs2!UNVANID = rs("UNVANI")
rs2!ISTASYONID = rs("ISYERI")
rs2.Update
rs2.Close
rs.Close
MsgBox "Veriler başarıyla aktarıldı."
listeye çoklu ekle çıkar kaydet
Konuyu Okuyanlar: 1 Ziyaretçi