Отчет и запрос

[slone2179]

Спасибо Woodlin! Вы молодец! Последний вопрос как можно сделать, чтобы флажки обновлялись? А то постоянно нажимать F5 пользователи не будут. Update Screen в Excel есть, а в Access будет аналогично?

[Woodlin]

Если я правильно понимаю о чём речь, попробуйте на событие флажка После обновления повесить такой код:

Me.Refresh

[slone2179]

Спасибо огромное! Сколько и что нужно читать в день, чтобы программировать без проблем?

[slone2179]

Последний вопрос, добавляю кнопку разделить в форме second_step. Выделяем к примеру запись Hello Количество 700. Нажимаю кнопку Разделить появляется окно с двумя полями, для того, чтобы 700 разбить на числа: Вбиваю 300 в одно поле и 400 в другое.
было:
Hello 700
В итоге получаем после разбивки:
Hello 300
Hello 400

[Woodlin]

Добавлена таблица Quantity, где содержится количество. Создана связь с табл COLLECTION.
Ввод значений после разбивки производится в форме frm_Set_Quantity, вызывается из формы second_step
Источник записей second_step - запрос qry_Quantity.

[slone2179]

Спасибо, Woodlin! Да в Access с VBA все возможно. Если используется запрос, куда нужно поставить условие на следующее?
Запись число 150 в первое поле вбиваю 100, а во втором автоматом (чтобы не было ошибки) число 50?

[slone2179]

По-подробнее:
Hello 150
Нажимаю кнопку Разбить
В первое поле вбиваю 100
Во втором автоматом 50, т.е. если я ставлю число к примеру 80 вылетает ошибка.

[Woodlin]

В форме frm_Set_Quantity на поле Quantity в событие до обновления поместите код:

Private Sub Quantity_BeforeUpdate(Cancel As Integer)
Dim me_Rst As Recordset '-- будет клон рекордсета формы
Dim S As Single         '-- Сумма количеств
Dim id_Curr As Long     '-- id текущей записи формы

id_Curr = Me.Id
Set me_Rst = Me.RecordsetClone

If me_Rst.RecordCount = 0 Then Exit Sub

    me_Rst.MoveFirst
    
    Do Until me_Rst.EOF
        If me_Rst!Id <> id_Curr Then
            S = S + me_Rst!Quantity
        End If
        me_Rst.MoveNext
    Loop
    
    
    If S + Me.Quantity.Text > Me.Количество_Первоначальное Then
        MsgBox "Ошибка!"
        Cancel = True
    End If
End Sub

[slone2179]

Ну все я убит. Спасибо. Я сейчас делаю копию таблицы откуда будут данные, т.к. исходная таблица нужна без изменений. А в копии будут разбивки сохранятся и т.п.

[slone2179]

А можно сделать, чтобы в следующем поле выводился остаток? К примеру первоначальное значение 5, в первое поле ввожу 4, то в следующем появляется цифра 1. Где это указать в цикле, если конечно я двигаюсь в верном направлении

Do Until me_Rst.EOF
If me_Rst!Id <> id_Curr Then
S = S + me_Rst!Quantity
End If
me_Rst.MoveNext
Loop