Ошибка обновления подчиненной формы

[Aleksandr H.]

Возникла проблема при обновлении подчиненной формы после удаления записи из таблицы которая является источником строк для подчиненной формы.

Как сделать что-бы после нажатия на "Удалить" подчиненная форма корректно обновилась?

https://youtu.be/8wMwXmOrm4Y

код кнопки

Private Sub btnDelete_Click()
    Dim ID As String
    ID = IIf(IsNull(tbIDHidden), "", tbIDHidden)
    If ID <> "" Then
        If MsgBox("Удалить запись о перевозке " & [Form_подчиненная форма qryTransportationByTransport].Destination & _
        " от " & [Form_подчиненная форма qryTransportationByTransport].Data_ & " ? ", vbQuestion + vbYesNo) = vbYes Then
        DoCmd.SetWarnings False
        DoCmd.RunSQL "DELETE * FROM tblTransportation where Код = " & ID
        DoCmd.SetWarnings True
        
        With [Form_подчиненная форма qryTransportationByTransport]
            .Filter = ""
            .FilterOn = False
             .Form.Requery
        End With
        tbIDHidden = vbNullString
        End If
    End If
End Sub

[VinniPuh]

Может сначала ещё рефрешить нужно?
...
.Form.Refresh
.Form.Requery
...

[Aleksandr H.]

Проблема изначально была мной неверно идентифицирована. Подчиненная форма отображает данные по критерию из комбобокса. Если комбобокс пустой, источник строк подчиненной формы давал сбой. Я же тестировал так: сначала добавляль новую строку в таблицу (с очисткой полей ввода) и сразу же хотел удалить строку кнопкой. Но тк комбобокс очистился то источник строк подчиненной формы валился.