Cуммы по платежкам меньше суммы

Set rst = dbs.OpenRecordset(strSQL)

rst.MoveLast

Дата = rst![Дата]

j = rst.RecordCount

rst.MoveFirst

For i = 1 To j

ЦенаП = rst![Цена] + ЦенаП

rst.MoveNext

Next i

Forms![Просмотр]![ОсновныеСчета].Form![ПоПлатежке] = ЦенаП

rst.Close

If ЦенаП < Сумма Then

        Msg = "Cумма по счету" & Chr(13) & "                                        - " & Сумма & "р." & Chr(13) & "Cуммы по платежкам " & Chr(13) & "                                        - " & ЦенаП & "р." & Chr(13) & " Cуммы по платежкам меньше суммы по счета." ' Сообщение.

        'Msg = "Cуммы по платежкам меньше суммы по счетам." & Chr(13) & "Занести в авансовый отчет?" ' Сообщение.

        Style = vbCancel + vbCritical     ' Кнопки.

        Title = "Предупреждение"    ' Заголовок.

        Response = MsgBox(Msg, Style, Title)     ' Выводит сообщение.

           

        Exit Sub

      

End If

If ЦенаП > Сумма Then

        Msg = "Cумма по счету" & Chr(13) & "                                        - " & Сумма & "р." & Chr(13) & "Cуммы по платежкам " & Chr(13) & "                                        - " & ЦенаП & "р." & Chr(13) & "Cуммы по платежкам больше суммы по счета." ' Сообщение.

        'Msg = "Cуммы по платежкам больше суммы по счета." & Chr(13) & "Занести в авансовый отчет?" ' Сообщение.

        Style = vbOKCancel + vbCritical   ' Кнопки.

        Title = "Предупреждение"    ' Заголовок.

        Response = MsgBox(Msg, Style, Title)     ' Выводит сообщение.

        If Response = vbOK Then ' Если нажата кнопка "Да" (Yes).

            flagБольше = True

            Разница = ЦенаП - Сумма

            GoTo labelOK

        Else

            Exit Sub


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

---

Forekc.ru
Рефераты, дипломы, курсовые, выпускные и квалификационные работы, диссертации, учебники, учебные пособия, лекции, методические пособия и рекомендации, программы и курсы обучения, публикации из профильных изданий

---