- •СервисМакросРедактор Visual Basic
- •СервисМакросРедактор Visual Basic
- •Режимы меню:
- •Меню Edit
- •If условие Then [инструкции] [Else инструкции_Else]
- •If условие Then
- •Инструкция Select Case
- •Цикл For Each…Next
- •Оператор Do Until… Loop
- •Оператор Do … Loop Until
- •Инструкция With
- •Работа с формами и запросами
- •(Библиотека Microsoft dao 3.6 Object Library)
- •FormName – имя формы
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