Достъп Примери

Има няколко начина да се влезе рекорд и най-често е да се получи чрез форма, обвързана към таблица. Друг начин да направите това е чрез несвързани поле, т.е. като се използва формуляр с полета, независим несвързани на масата. За
въведете данните, които използваме "записи", т.е. с код, който в случая на този пример е, както следва:

Dim db на базата данни
На Дим RS Като записи

Ако MsgBox ("Искаш ли да пиша?" VbYesNoCancel, "Options") = vbYes, Тогава
"Чрез натискане се задава дали да запазите записа, или не, ако е така кода продължава до края
Set db = CurrentDb ()
Комплект RS = db.OpenRecordset ("Данни", dbOpenTable)
"Отваряне на таблица, за да вмъкнете данните регистър

rs.AddNew
RS ("име") = Me! INome
RS ("Адрес") = Me! Imorada
RS ("възраст") = Me! Iidade
rs.Update "изпраща данните на масата
rs.Close "изчистите данните и затваря записи
Задайте RS = Нищо
Задайте db = Нищо

Me.INome = Null изчиства полета във формуляра
Me.Imorada = NULL
Me.Iidade = NULL
MsgBox "спасен Record", vbInformation, "Done", "съобщение за потвърждение на дисплея
Me.INome.SetFocus "движение на курсора до първото поле
Друго: Sub Изход
Крайна сметка, ако

Изтегляне: Поставете Независим