Подформа не требует - PullRequest
Новая
       11

Подформа не требует

0 голосов
/ 19 июня 2019

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

Я думаю, что событие Form_Dirty является правильным для запуска обновления.Я попытался: 

Private Sub Form_Dirty(Cancel As Integer)
    MsgBox "deleted a license"
End Sub

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

    Me.requery
    Me.Recalc
    Me.refresh
    Forms.user.Form.requery
    Forms.user.licenses.Form.requery

он просто остается прежним.Если я нажму F5, то он обновится.Как это может быть?

1 Ответ

0 голосов
/ 19 июня 2019

Попробуйте использовать AfterUpdate событие подчиненной формы: 

Private Sub Form_AfterUpdate()
    If Me!Active.Value = False Then
        Me.Requery
    End If
End Sub

Редактировать . Или: 

Private Sub Active_AfterUpdate()
    If Me!Active.Value = False Then
        Me.Dirty = False
        Me.Requery
    End If
End Sub
...