End Sub. While Not rstOcenki.EOF

Wend

RstOcenki.MoveNext

While Not rstOcenki.EOF

RstOcenki.MoveFirst

RstOcenki.MoveLast

If rstOcenki.EOF And rstOcenki.BOF Then Exit Sub

RstOcenki.Requery

LstOcenki.Clear

End If

Exit Sub

LstOcenki.Clear

If rstSpisok.EOF Or rstSpisok.BOF Then

Dim strSQL As String

Dim rstOcenki As Recordset

txtFam.Text = ""

txtName.Text = ""

txtOtch.Text = ""

txtGrup.Text = ""

txtFam.Text = rstSpisok.Fields("Familie").Value

txtName.Text = rstSpisok.Fields("Imja").Value

txtOtch.Text = rstSpisok.Fields("Otch").Value

txtGrup.Text = rstSpisok.Fields("Group").Value

strSQL = "SELECT Predmet.NamePredm, Ocenki.Ocenka " & _

"FROM Predmet INNER JOIN Ocenki ON Predmet.Cod = Ocenki.CodPredm " & _

"WHERE (((Ocenki.CodStud)=" + CStr(rstSpisok.Fields("Cod").Value) + "));"

Set rstOcenki = dbsData.OpenRecordset(strSQL, dbOpenDynaset)

lstOcenki.AddItem rstOcenki.Fields("NamePredm").Value + " " + CStr(rstOcenki.Fields("Ocenka").Value)

Сохраните проект. Проверьте работу приложения.

Вызвав Tools – Menu Editor, сформируйте контекстное меню Вашего приложения: на основном уровне (размещайте стрелками) Поиск (mnuPoisk), Отчеты (mnuReport), Статистика (mnuStat) и Выход (mnuExit). Подуровни для Поиск: по фамилии (mnuPoiskFam) и по имени (mnuPoiskName), для Отчеты: список студентов (mnuRepSpisok).

Запрограммируем кнопки меню:

Private Sub mnuExit_Click()

Дата добавления: 2014-12-27