АвтоАвтоматизацияАрхитектураАстрономияАудитБиологияБухгалтерияВоенное делоГенетикаГеографияГеологияГосударствоДомДругоеЖурналистика и СМИИзобретательствоИностранные языкиИнформатикаИскусствоИсторияКомпьютерыКулинарияКультураЛексикологияЛитератураЛогикаМаркетингМатематикаМашиностроениеМедицинаМенеджментМеталлы и СваркаМеханикаМузыкаНаселениеОбразованиеОхрана безопасности жизниОхрана ТрудаПедагогикаПолитикаПравоПриборостроениеПрограммированиеПроизводствоПромышленностьПсихологияРадиоРегилияСвязьСоциологияСпортСтандартизацияСтроительствоТехнологииТорговляТуризмФизикаФизиологияФилософияФинансыХимияХозяйствоЦеннообразованиеЧерчениеЭкологияЭконометрикаЭкономикаЭлектроникаЮриспунденкция

Private Sub Кнопка4_Click()

Читайте также:
  1. Private Sub Клиенты_Click()
  2. Private Sub Кнопка0_Click()
  3. Private Sub Кнопка0_Click()
  4. Private Sub Кнопка2_Click()
  5. Private Sub Кнопка4_Click()
  6. Private Sub Кнопка8_Click()
  7. Private Sub Кнопка8_Click()
  8. Наследование. Понятие наследования. Спецификаторы доступа к данным: private, public, protected.

Dim basa As Database, nabor As Recordset ‘ Объявление переменных basa, nabor типа

‘ Database,Recordset

Set basa = CurrentDb ‘ Работаем в текущей базе данных

Set nabor = basa.OpenRecordset("Товары", dbOpenTable) ‘ Открываем набор в режиме

‘ таблицы

With nabor

.AddNew ‘ Добавляет в таблицу пустую запись

.Fields!Товар = Товар.Value ‘ Значению полю в таблице присваивается

.Fields!Цена = Цена.Value ‘ значение текстового поля в форме

.Fields!Поставщик = Поставщик.Value ‘ тоже

.Fields!Дата_поставки = Дата_поставки.Value ‘ тоже

.Update ‘ Обновляет таблицу

.Close ‘ Закрывает набор

End With

End Sub

Пример

Отредактировать в таблице “Товары” последнюю запись.

 

Таблица до выполнения программы состояла из записей.

 

 
 

 


1. Создадим в конструкторе форму “Редактор” на основе таблицы «Товары»:

 
 


 

2. В поля формы введём новые значения для последней записи.

3. По событию «Нажатие кнопки» пишем программный код.

 


1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | 32 | 33 | 34 | 35 | 36 | 37 | 38 | 39 | 40 | 41 | 42 | 43 | 44 |

Поиск по сайту:

Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. Студалл.Орг (0.003 сек.)