Курсовая работа: Автоматизація обліку та аналізу матеріальних ресурсів підприємства

Dim sp As Single

Dim dbs As Database

Dim oper As Recordset

Dim rah As Recordset

Set dbs = CurrentDb

Set oper = dbs.OpenRecordset("Операції")

Set rah = dbs.OpenRecordset("Рахунки", dbOpenDynaset)

StrDat1 = "#" & Month(Me.ДатаС) & "/" _

& Day(Me.ДатаС) & "/" _

& Year(Me.ДатаС) & "#"

StrDat2 = "#" & Month(Me.ДатаПо) & "/" _

& Day(Me.ДатаПо) & "/" _

& Year(Me.ДатаПо) & "#"

StrFilt = "Дата >= " & StrDat1 & " AND " & _

"Дата <= " & StrDat2 & " AND " & _

"Документ = " & Me.Ордер

'Me.РухКоштів.Form.Filter = StrFilt

rah.FindFirst "Ордер = " & Me.Ордер

Me.Залишок = rah!Сума

oper.MoveFirst

sv = 0

sp = 0

Do While Not oper.EOF

If oper!Документ = Val(Me.Ордер) Then

Select Case oper!Тип

Case "Видаток"

sv = sv + oper!Сума

Case "Прибуток"

sp = sp + oper!Сума