Самоучитель VBA


         

Нажатие кнопки Новая запись запускает


/p>





























































































Нажатие кнопки Новая запись запускает на выполнение процедуру

CommandButtonl_Click



Создает новую запись в конце файла.



Нажатие кнопки Записать изменения запускает на выполнение процедуру

CommandButton2_Click



Считывает из диалогового окна в текущую запись файла информацию при помощи процедуры ЗаписатьЗапись .



Нажатие кнопки Закрыть запускает на выполнение процедуру

CommandButton3 Click



Закрывает открытый файл и диалоговое окно.



Нажатие кнопки запускает на выполнение процедуру

CommandButton5 Click



Осуществляет переход на последнюю запись.



Нажатие кнопки запускает на выполнение процедуру

CommandButton6 Click



Осуществляет переход на первую запись.



Показать Запись



Выводит в поля диалогового окна запись с номером, указанным в переменной текущаяЗапись .



Записать Запись



Записывает в файл из полей диалогового окна запись с номером, указанным в переменной текущаяЗапись .



На листе стандартного модуля наберите описание пользовательского типа:

Option Explicit

Public Type СтудентТуре

Фамилия As String * 30

Имя As String * 30

Группа As String * 11

End Type

На листе модуля userForm1 наберите следующую программу:

Option Explicit

'

' Переменные уровня модуля

'

Dim Студент Аs СтудентТуре

Dim ДлинаФайла As Long

Dim ДлинаЗаписи As Long

Dim ИмяФайла As String

Dim ТекущаяЗапись As Long

Dim ПоследняяЗапись As Long

Dim Номер As Integer

'

Sub ПоказатьЗапись()

Get #Номер, ТекущаяЗапись, Студент

With Студент

TextBoxl.Text = Trim(.Фамилия)

TextBox2.Text = Trim(.Имя)

TextBoxB.Text = Trim(.Группа)

TextBox4.Text = ТекущаяЗапись

UserFormi.Caption = TextBoxl.Text & " " & TextBox2.Text

End With

End Sub

'

Sub ЗаписатьЗапись()

With Студент

.Фамилия = TextBoxl.Text

.Имя = TextBox2.Text

.Группа = TextBox3.Text

End With

Put Шомер, ТекущаяЗапись, Студент End Sub

'

Private Sub CommandButtonl_Click{}

'

' Кнопка Новая запись '

UserForml.Caption = "Информация о студентах"


Содержание  Назад  Вперед