Доступ к VBA для изменения изображения в непрерывной форме

Question

Я пытаюсь создать форму квитанции, в которой люди будут подтверждать, получили ли они полное количество заказа.Как часть этого, я хочу, чтобы произошло следующее:

1. Если они получили полное количество, появляется зеленая галочка
2. Если они получили частичное количество, появляется оранжевый треугольник
3. Если они не получили никаких предметов, появляется красный x

. Для этого я использую непрерывную форму с 3 файлами изображений для каждой ситуации.Я использую код ниже, чтобы изменить изображение при изменении количества.Проблема в том, что при изменении количества в 1 строке символ меняется для всех строк.Я также выложу фотографии.

Любые мысли о том, как я могу это исправить?

Я открыт для других методов реализации этой идеи тоже.

Private Sub FinalQTY_AfterUpdate()

If IsNull(Me.FinalQty) Then
    MsgBox "You must enter a quantity for this item"
    Me.FinalQty.SetFocus
    Exit Sub
Else
    LValue = Me.[FinalQty]
    If IsNumeric(LValue) = 0 Then
    Me.FinalQty = ""
    MsgBox "Qty must be a numeric value"
    Me.QTY.SetFocus
    Exit Sub
    End If
End If

Me.FinalTotalPrice = Me.FinalPrice * Me.FinalQty

If Me.FinalQty = 0 Then
    Me.Yes.Visible = False
    Me.Change.Visible = False
    Me.No.Visible = True
End If

If Me.FinalQty < Me.QTY Then
    Me.Yes.Visible = False
    Me.Change.Visible = True
    Me.No.Visible = False
End If

If Me.FinalQty = Me.QTY Then
    Me.Yes.Visible = True
    Me.Change.Visible = False
    Me.No.Visible = False
End If

End Sub

Это до того, как я настрою количество:

Это после того, как я настрою количество только второй строки:

Answer 1

Поскольку форматирование каждой записи, отображаемой в непрерывной форме, наследуется от шаблона дизайна формы, любые изменения в шаблоне будут автоматически применяться ко всем записям, отображаемым в форме, за исключением действующих правил условного форматирования или несколькихсвойства, которые могут быть изменены с помощью события OnPaint раздела Сведения.

Одной из возможных альтернатив может быть добавление нового поля в таблицу с типом данных объекта OLE и заполнение значения в AfterUpdateсобытие с использованием метода AppendChunk, получение данных изображения из отдельной таблицы, содержащей три записи, соответствующие вашей зеленой галочке, оранжевому треугольнику и изображениям красного креста.