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


         

For Random As Номер Len


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

ПоследняяЗапись = ПоследняяЗапись + 1

With Студент

.Фамилия = ""

.Имя = ""

.Группа = "" End With

I'

TextBoxl.Text => ""

TextBox2.Text = ""

TextBox3.Text = ""

TextBox4.Text = CStr{ПоследняяЗапись}

'

Put #Номер, ПоследняяЗапись, Студент

'

ТекущаяЗапись = ПоследняяЗапись

'

End Sub

Private Sub CommandButton2_Click ()

'

' Кнопка Записать изменения '

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

End Sub '

Private Sub CommandButton3_Click()

'

' Кнопка Закрыть '

Close #Номер UserForml.Hide

End Sub

Private Sub CommandButton4_Click()

' Открытие файла

'

Dim Начало As Boolean

Управление СЗаписями:=Тгие,

СФайлом:=False ИмяФайла = Trim(ComboBoxl.Text)

ДлинаЗаписи = Len(Студент) '

Номер = FreeFile

Open ИмяФайла

For Random As Номер Len = ДлинаЗаписи '

ТекущаяЗапись = 1

ПоследняяЗапись = FileLen(ИмяФайла) / ДлинаЗаписи

Начало = True

If ПоследняяЗапись = 0 Then

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

ПоследняяЗапись = 1

Начало = False

End If

'

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

If Начало = False Then

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

End If

TextBoxl.SetFocus

Label4.Caption = "Номер записи из " & ПоследняяЗапись

'

End Sub

'

Private Sub CommandButton5_Click()

' Переход на последнюю запись

'

ТекущаяЗапись = ПоследняяЗапись

SpinButtonl.Value = ПоследняяЗапись Показать Запись

End Sub

'

Private Sub CommandButton6_Click()

'

' Переход на первую запись

'

SpinButtonl.Value = 1

ТекущаяЗапись = 1 ПоказатьЗапись

End Sub

'

Private Sub SpinButtonl_Change()

'

SpinButtonl.Min = 1

SpinButtonl.Max = ПоследняяЗапись

ТекущаяЗапись = SpinButtonl.Value

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

'

End Sub

'

Private Sub UserForeinitialize ()

'

Dim ИмяПапки As String

Dim ИмяФайла As String

Dim ДлинаПути As Integer

Dim i As Integer

Управление СЗаписями:=False, СФайлом:=Тгие

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

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