ник: kot_k_k
меня терзают смутные сомненья.
ларчик открывался просто!!!!
Private Sub Кнопка150_Click() 'Заполнить столбец "Количество"
Dim rs As DAO.Recordset 'использем для доступа к таблице заказов
Dim db As Database
Dim a As Long 'суток
Dim k As Long 'количество
Dim c As Long 'категория
Dim d As Long 'документ
Dim e As Long 'количество
Dim w As Long 'Возраст
Dim strSql As String
Set db = CurrentDb()
a = Forms![Заказпрог]![Список76] ' число суток
c = Forms!Заказпрог!subZak!id_kat_zak
d = Forms!Заказпрог!subZak!Тип_док 'документ 1-билет 2-наряд
w = Forms!Заказпрог!subZak!Id_Vozr 'Возраст 1- шк 2- взр 5 - всё
strSql = _
"SELECT tabZak.id_Prog_zak, tabZak.id_kat_zak, tabZak.Id_Vozr, tabZak.Тип_док, tabZak.Kol " & _
"FROM tabZak " & _
"WHERE tabZak.id_Prog_zak=" & Me.id_Закпрог
Set rs = db.OpenRecordset(strSql) 'db.OpenRecordset (sSQL)Открываем рекордсет
Do Until rs.EOF ' начало цикла
If rs.Fields(1) = 2 Then
k = Me.Всего_гр
e = a * k
ElseIf rs.Fields(1) = 3 Then
e = Me.Всего_гр
ElseIf (rs.Fields(1) = 4 Or 5 Or 10) And (rs.Fields(3) = 1 And rs.Fields(2) = 2) Then
e = Me.Всего_взр
ElseIf (rs.Fields(1) = 4 Or 5 Or 10) And (rs.Fields(3) = 1 And rs.Fields(2) = 1) Then
e = Me.Детей
Else
e = 0
End If
rs.Edit ' редактирование
rs.Fields(4) = e ' присваение значению переменной нужной мне расчётной величины
rs.Update
rs.MoveNext
Loop 'конец цикла
rs.Close
Set rs = Nothing
Me.subZak.Requery
End Sub
|
см. влож файл