MS Excel VBA. Неправильно начисляет стипендию. Если 2-ка стипендия не начисляется. Троечникам при наличии 4 и 5 - 1000р.

[Satana94]

Sub aa()
Dim cnn As New ADODB.Connection
Dim rst As ADODB.Recordset
cnn.Open "Provider=Microsoft.Jet.OLEDB.4 .0; Data Source= A:\Стипендия\Студент. mdb"
Set rst = New ADODB.Recordset
rst.CursorLocation = adUseServer
rst.Open "Select * from Студенты", cnn, adOpenKeySet, adLockOptimistic
k = 1
rst.MoveFirst
Do
For i = 1 To 3
If rst.Fields(i) = 2 Then
s = 0
Else
If rst.Fields(i) = 3 Then
s = 1000
End If
End If
Next i
Cells(k, 1) = rst.Fields(0)
Cells(k, 2) = s
rst.Move 1
k = k + 1
Loop Until rst.EOF
End Sub

ИНФОРМАЦИЮ берет из таблицы MS Access и выводит в Excel.

[Aleksandr H.]

База на дискете? 8)
Базу и ексель файл архивом выложите
Сама проверка неверно написана. Сначала проверяем на 2, если rst.Fields(1)=2 or rst.Fields(2)=2 or rst.Fields(3)=2 тогда выводим 0, иначе
проверяем, например, сумму. непонятна фраза "Троечникам при наличии 4 и 5 - 1000р.", на считаем что ученик может иметь (3 3 4) и будет стипуха, тогда берем сумму rst.Fields(1)+rst.Fields(2)+rst.Fie lds(3), если она > 9 тогда стипуха - 1000.

[Satana94]

Вот )

[Aleksandr H.]

И че? Какой ответ должен получиться для этого входного набора данных?

Sub aaa()
    Dim cnn As New ADODB.Connection
    Dim rst As ADODB.Recordset
    cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source= D:\Стипендия\Студент.mdb"
    Set rst = New ADODB.Recordset
    With rst
        .CursorLocation = adUseServer
        .Open "Select * from Студенты", cnn, adOpenKeySet, adLockOptimistic
        k = 1
        .MoveFirst
        Do

            If .Fields(1) = 2 Or .Fields(2) = 2 Or .Fields(3) = 2 Then
                s = 0
            ElseIf .Fields(1) + .Fields(2) + .Fields(3) > 9 Then
                s = 1000
            End If
            Cells(k, 1) = .Fields(0)
            Cells(k, 2) = s
            .MoveNext
            k = k + 1
        Loop Until .EOF
    End With
    Set rst = Nothing
End Sub

[Satana94]

Троечникам при наличии 4 или 5 - базовая. Базовая =1000р.
Ударникам при наличии не менее двух пятерок - надбавка 20%
Отличникам - 30 %
Если есть двойка, то стипендия не начисляется.

Про ответ я не знаю

[Aleksandr H.]

"Ударник" че за монстр такой?

[Satana94]

хорошист, то есть без троек

[Aleksandr H.]

Сообщение от Satana94

Про ответ я не знаю

То есть ты не можешь сказать какая стипендия должна быть для каждого из списка?

Абдуллин 5 5 5
Исламов 4 4 4
Аршавин 5 5 4
Исламова 5 4 3
Тимощук 5 4 3
Лодыгин 2 3 3
Морозов 5 5 5
Зарипов 5 5 5
Баруллин 2 3 2
Ткачев 5 5 5

[Satana94]

Какая стипендия для каждого из списка ,я знаю. Не знаю, как реализовать это в программе.

[Aleksandr H.]

Так напиши для каждого!! Ето нужно для проверки