End Sub

End Sub

Rst.Close

End If

Else

Rst.MoveFirst

Rst.Close

End If

Next i

Rst.MoveNext

Else

If rst.EOF And rst.BOF Then

Rst.MoveFirst

Rst.MoveLast

Rst.Close

End If

End If

Else

Next i

Rst.MoveNext

End If

Else

If rst.EOF And rst.BOF Then

Rst.MoveFirst

Rst.MoveLast

Rst.Close

Next i

Rst.MoveNext

End If

If rst.EOF And rst.BOF Then

Rst.MoveFirst

Rst.MoveLast

Rst.Close

End If

Exit Sub

If rst.EOF And rst.BOF Then

Rst.MoveFirst

Rst.MoveLast

Dim strSQL As String

Dim n As Long

Dim s As Long

Dim i As Long

End Sub

FrmStat.Hide

Public rst As Recordset

Public dbsData As Database

Private Sub cmbOk_Click()

Private Sub Form_Activate()

Set rst = dbsData.OpenRecordset("Spisok", dbOpenDynaset)

txtKol.Text = ""

txtSrBall.Text = ""

txtWord.Text = ""

txtExel.Text = ""

txtAccess.Text = ""

' общее количество студентов соответствует количеству записей в таблице Spisok

txtKol.Text = rst.RecordCount

' для подсчета общего балла достаточно взять все оценки из таблицы Ocenki

Set rst = dbsData.OpenRecordset("Ocenki", dbOpenDynaset)

txtSrBall.Text = "0"

s = 0

For i = 1 To rst.RecordCount

s = s + rst.Fields("Ocenka").Value

' при подсчете среднего получится вещественное число, представим его в форматированном виде

txtSrBall.Text = Format(s / rst.RecordCount, "0.00")

' подсчитаем оценки с кодом предмета 1 (Word)

Set rst = dbsData.OpenRecordset("Ocenki", dbOpenDynaset)

txtWord.Text = "0"

s = 0

n = 0

For i = 1 To rst.RecordCount

If rst.Fields("CodPredm").Value = 1 Then

s = s + rst.Fields("Ocenka").Value

n = n + 1

If n = 0 Then

txtWord.Text = "0"

txtWord.Text = Format(s / n, "0.00")

' сформируем запрос который будет содержать только оценки с кодом предмета 2 (Exel)

Set rst = dbsData.OpenRecordset("Select * From Ocenki Where CodPredm = 2", dbOpenDynaset)

txtExel.Text = "0"

s = 0

For i = 1 To rst.RecordCount

s = s + rst.Fields("Ocenka").Value

txtExel.Text = Format(s / rst.RecordCount, "0.00")

' и самый простой вариант - подсчет произвести с помощью SQL запроса

strSQL = "SELECT Sum([Ocenki]![Ocenka])/Count([Ocenki]![Ocenka]) AS Access " & _

"From Ocenki WHERE (((Ocenki.CodPredm)=3));"

Set rst = dbsData.OpenRecordset(strSQL, dbOpenDynaset)

If IsNull(rst.Fields("Access")) Then

txtAccess.Text = "0"

txtAccess.Text = Format(rst.Fields("Access"), "0.00")

Private Sub Form_Load()

Set dbsData = OpenDatabase("dbLaba.mdb")

Протестируйте приложение полностью, проверьте работу всех функциональных возможностей.

По окончании скомпилируйте exe-файл своей работы (File – Make Project1.exe), указав свое имя проекта и предоставьте преподавателю для защиты.

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