Ввод полей записи через независимые

Добавлено в среду, 20 февраля, 2008 - 13:22 | по администратора |

Есть несколько способов, чтобы ввести запись, и наиболее распространенным является получение через форму привязаны к столу. Еще один способ сделать это через связанных между собой областях, то есть, используя форму с полями независимых связаны с таблицей. К
ввести данные мы используем "записей", то есть с помощью кода, который в данном примере выглядит следующим образом:

Dim дБ базы данных
Dim RS Как записей

If MsgBox ("Вы хотели бы написать?" VbYesNoCancel, "Настройки") = vbYes тогда
"При нажатии на вопрос, сохранить ли запись или нет, если да, то код продолжается до конца
Установить дБ = CurrentDb ()
Set RS = db.OpenRecordset ("Данные", dbOpenTable)
"Откройте таблицу, чтобы вставить данные регистрации

rs.AddNew
RS ("имя") = Me! INome
RS ("адрес") = Me! Imorada
RS ("возраст") = Me! Iidade
rs.Update "посылает данные в таблицу
rs.Close "Очистить данные и закрывает записей
Установить RS = Nothing
Установите дБ = Nothing

Me.INome = Null 'очищает поля в форме
Me.Imorada = Null
Me.Iidade = Null
MsgBox "Запись сохранена", vbInformation "Готово" 'Display подтверждение
Me.INome.SetFocus "переместите курсор в первое поле
Остальное: Sub выход
End If