Базы данных и знаний. Мартьянова А.Е. - 127 стр.

UptoLike

ВУЗ: 

АГТУ | Астрахань

Составители: 

Рубрика: 

Мартьянова А.Е. Базы данных и знаний 127
If Data2.Recordset.NoMatch Then
Data2.Recordset.MoveFirst
End If
End Sub
Рис. II.39. Дополнение автоматически созданной формы кнопкой поиска
Рис. II.40. Окно ввода для поиска студента по номеру зачетной книжки
Mожно дополнительно добавить сведения о текущей записи базы и
количестве записей. Для этого откроем событийную процедуру для Data
и выберем из списка существующее событие на событие Reposition().
Метка Label предназначена для вывода числа общего количества запи-
сей. Данный код будет работать при установке свойства RecordSetType
элемента Data2 в положение 1-Dynaset.
Private Sub Data2_Reposition()
Screen.MousePointer = vbDefault
On Error Resume Next
Data2.Caption = "Record: " & (Data2.Recordset.AbsolutePosition + 1)
x = Data2.Recordset.RecordCount 
   Мартьянова А.Е. Базы данных и знаний                                       127


If Data2.Recordset.NoMatch Then
     Data2.Recordset.MoveFirst
End If
End Sub




      Рис. II.39. Дополнение автоматически созданной формы кнопкой поиска




       Рис. II.40. Окно ввода для поиска студента по номеру зачетной книжки

      Mожно дополнительно добавить сведения о текущей записи базы и
количестве записей. Для этого откроем событийную процедуру для Data
и выберем из списка существующее событие на событие Reposition().
Метка Label предназначена для вывода числа общего количества запи-
сей. Данный код будет работать при установке свойства RecordSetType
элемента Data2 в положение 1-Dynaset.
Private Sub Data2_Reposition()
Screen.MousePointer = vbDefault
On Error Resume Next
Data2.Caption = "Record: " & (Data2.Recordset.AbsolutePosition + 1)
x = Data2.Recordset.RecordCount

Страницы