Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
БД_проектор.doc
Скачиваний:
2
Добавлен:
21.04.2019
Размер:
239.1 Кб
Скачать

FormName – имя формы

View – режимы:

  • asDesign - режим конструктора

  • acFormDS – таблица

  • acFormPivotChart – сводная диаграмма

  • acFormPivotTable – сводная таблица

  • acNormal – режим формы, по умолчанию

  • acPreviev - предварительный просмотр

FilterName имя фильтра

WhereConditionусловие отбора

DataMode - режим данных

  • acFormAddдобавление данных, нельзя редактировать существующие

  • acFormEditдобавление и редактирование существующих

  • acFormReadOnlyформа только для чтения

WindowModeрежим окна

  • acDialog – режим диалога

  • acHidden –форма невидима

  • acIcon – форма свернута

  • acWindowNormal - предлагается по умолчанию

OpenArgs - аргументы открытия, (например, открытие многостраничной формы на 3 странице)

Пример3.

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

'пересчет в рубли

Dim bd2 As Database

Set bd2 = CurrentDb

Dim z2 As Recordset

Set z2 = bd2.OpenRecordset("Курс валюты")

Dim a As Date

a = Me.дата_поступления

z2.MoveFirst

While Not z2.EOF()

If z2.Fields("дата") = a Then

Me.цена__руб = Me.цена * z2.Fields("Курс")

End If

z2.MoveNext

Wend

Me.Repaint

z2.Close

End Sub