, ? |
Private Sub Ok_Click() Dim rs As DAO.Recordset Set rs = CurrentDb.OpenRecordset("Table2", dbOpenDynaset) rs.AddNew rs! = Me!1 rs! = Me!2 rs.Update rs.Close Set rs = Nothing End Sub
http://www.sql.ru/forum/1279641/kak-vstavit-v-polya-na-forme-dannye-iz-tablicy