private sub Контрол1_Change()
    Контрол1.Tag="True"
end sub
'...
private sub КонтролN_Change()
    КонтролN.Tag="True"
end sub

private sub Контрол1_Validate(KeepFocus As Boolean)
    'выполняем действия по валидации
    Контрол1.Tag="False"
end sub
'...
private sub КонтролN_Validate(KeepFocus As Boolean)
    'выполняем действия по валидации
    КонтролN.Tag="False"
end sub

private sub Form_QueryUnload(cancel As Integer, unloadmode As Integer)
    if Контрол1.Tag="True" then Call Контрол1_Validate
    '...
    if КонтролN.Tag="True" then Call Контрол1_Validate
end sub