Уношење рекордних поља кроз независна
Постоји неколико начина да уђе у записник, а најчешће је да се кроз форму обавезује на табели. Други начин да то урадите је кроз неповезане области, односно користећи формулар са пољима независна невезаним за сто. На
унесете податке ћемо користити 'записа', тј од кода, који у случају овај пример је како следи:
Дим дб Ас Датабасе
Дим РС као записаАко МсгБок ("Желите ли да напишете?" ВбИесНоЦанцел, "Опције") = вбИес Онда
"Притиском се питао да ли да сачувате запис или не, ако је тако код наставља до краја
Сет дб = ЦуррентДб ()
Сет рс = дб.ОпенРецордсет ("подаци", дбОпенТабле)
"Отворите табелу да бисте уметнули податке регистроватирс.АддНев
РС ("Име") = Ја ИНоме!
РС ("Адреса") = ме! Иморада
РС ("старост") = ме! Иидаде
рс.Упдате 'шаље податке у табелу
рс.Цлосе "Слободан подаци и затвара записа
Сет рс = Нотхинг
Сет дб = НотхингМе.ИНоме = Нула 'брише поља у форми
Ме.Иморада = НУЛЛ
Ме.Иидаде = НУЛЛ
МсгБок "Рекорд спасен", вбИнформатион, "Доне" "Дисплаи поруку о потврди
Ме.ИНоме.СетФоцус 'Померите курсор до првог поља
Друго: Екит Суб
Енд Иф
Довнлоад: Место Независна
Нема коментара.