CbxOperation

Данные: Operation

Тип источника строк: таблица или запрос

Источник строк: SELECT tblOperation.* FROM tblOperation;

Присоединенный столбец: 1

Число столбцов: 2

Ширина столбцов: 0см; 3см

TxtDate

Данные: Date

Формат поля: Краткий формат даты

Значение по умолчанию: =Date()

Доступ: нет

Блокировка: нет

TxtOstatok

Доступ: нет

SQL – запросы.

QrySummaPrixod

SELECT Sum(tblKassa.Summa) AS [Sum-Summa], tblOperation.Operation

FROM tblOperation INNER JOIN tblKassa ON tblOperation.Operation = tblKassa.Operation

GROUP BY tblOperation.Operation

HAVING (((tblOperation.Operation)=1));

QrySummaRasxod

SELECT Sum(tblKassa.Summa) AS [Sum-Summa], tblOperation.Operation

FROM tblOperation INNER JOIN tblKassa ON tblOperation.Operation = tblKassa.Operation

GROUP BY tblOperation.Operation

HAVING (((tblOperation.Operation)=2));

Текст программы.

Private Sub cmdDobavit_Click() ‘ нажатие кнопки Добавить

Dim varPrixod As Variant

Dim varRasxod As Variant

Dim varSumma As Variant

cbxOperation.SetFocus

On Error GoTo Err_cmdDobavit_Click

DoCmd.GoToRecord,, acNext

On Error GoTo 0

varPrixod = DSum(" [Sum-Summa]", " qrySummaPrixod")

varRasxod = DSum(" [Sum-Summa]", " qrySummaRasxod")

varPrixod = Nz(varPrixod, 0)

varRasxod = Nz(varRasxod, 0)

varSumma = varPrixod - varRasxod

If (varPrixod < varRasxod) Then ‘ проверка на наличие денег в кассе

MsgBox " Недостаточно денег в кассе"

DoCmd.GoToRecord, " ", acLast

DoCmd.RunCommand acCmdDeleteRecord

Else: txtOstatok = varSumma

End If

cbxOperation.SetFocus

Exit_cmdDobavit_Click:

Exit Sub

Err_cmdDobavit_Click:

MsgBox " Заполните все поля"

Resume Exit_cmdDobavit_Click

End Sub

Private Sub Form_Load() ‘ проверка на наличие денег в кассе при загрузке формы

cbxOperation.SetFocus

varPrixod = DSum(" [Sum-Summa]", " qrySummaPrixod")

varRasxod = DSum(" [Sum-Summa]", " qrySummaRasxod")

varPrixod = Nz(varPrixod, 0)

varRasxod = Nz(varRasxod, 0)

varSumma = varPrixod - varRasxod

txtOstatok = varSumma

End Sub

Private Sub cbxOperation_AfterUpdate() ‘ переход на следующую строку при обновлении поля cbxOperation

txtSumma.SetFocus

End Sub

Private Sub Zakritie_Click() ‘ проверка наличия денег в кассе при закрытии формы

If cbxOperation.Value = 2 Then

If (txtOstatok.Value - txtSumma.Value) < 0 Then

MsgBox " Недостаточно денег в кассе"

DoCmd.GoToRecord, " ", acLast

DoCmd.RunCommand acCmdDeleteRecord

cbxOperation.SetFocus

End If

Else: DoCmd.Close

End If

End Sub