Создание методов
Метод — это действие, которое может быть выполнено над объектом. Чтобы создать метод для класса, достаточно создать общедоступную подпрограмму или функцию. Предположим, что нужно отслеживать дату и время каждой регистрации пользователя. Приведенный ниже код создает метод Login,
который вводит в таблицу дату и время регистрации пользователя.
Public Sub Login()
' Создание объектной переменной для набора записей.
Dim rst As ADODB.Recordset
' Создание строковой переменной.
Dim strSQL As String
' SQL-оператор для tbIUsers.
StrSQL = "SELECT * FROM tbIUsers"
' Создание набора записей ADO.
Set rst = New ADODB.Recordset
' Открытие набора записей.
rst.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
' Добавление новой записи.
rstAddNew
' Запись даты и времени регистрации пользователя.
With rst
!Name = Me.Name
!Date = Date
!Time = Time End With
' Сохранение новой записи.
rst.Update
' Закрытие набора записей.
rst.Close
' Уничтожение объектной переменной.
Set rst = Nothing
End Sub
