VBA Access Убрать TextBox при пустом значении

[Ethex]

Доброго времени суток
Хочу научить текстовое поле на форме в случае, если пользователь полностью удаляет строку
Пробовал:

Private Sub Поле13_Change()
If Me.Поле13.Value = "" Then Me.Поле13.Visible = False
End Sub

Не сработало. Гуголь тоже не помог

[Serge_Bliznykov]

так, допустим, поле скроется. А как его пользователь сможет вновь заполнить?
или это один раз и навсегда (до перезапуска формы)?

[Ethex]

А это Поле изначально скрыто. Появляется когда выбран необходимый файл в FileDialog. Впринципе, обычная прихоть без которой я смог бы обойтись. Но стало интересно разобраться

update: Есть ещё одна, похожая хотелка. Имеется на этой форме ещё Список, куда заносятся пути к файлам, выбранным в другом FileDialog. Хотелось бы чтобы если выбран хоть один файл, Dir("путь к файлу") передавался глобальной переменную. Да, это можно сделать внутри функции с файлдайлогом, но интересно узнать как сделать через события Списка

[Serge_Bliznykov]

если интересно разобраться - то сделайте небольшой тестовый файлик с формой и выложите его сюда, на форум.

[Ethex]

Прошу прощение за задержку
Содержит формочку с файлдайлогом и текстовым полем

[Serge_Bliznykov]

событие Изменение работает более чем странно.
содержимое меняется только когда фокус меняется (и то не всегда - похоже нужное ещё нажатие Enter и ещё какая-то чертовщина).
киньте на форму Label и выводите туда Me.Поле0 чтобы убедиться в этом.

я бы повесил обработчик на событие ПослеОбновления (AfterUpdate)

Private Sub Поле0_AfterUpdate()
    If IsNull(Me.Поле0) Then
      Me.Кнопка2.SetFocus
      Me.Поле0.Visible = False
    End If
End Sub

[Ethex]

На время праздников от аксеса пребывал в отдалении

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

[Serge_Bliznykov]

Сообщение от Ethex

Приходится кликнуть по другому элементу управления, потом по полю и тогда оно исчезает

К сожалению.

Сообщение от Serge_Bliznykov

содержимое меняется только когда фокус меняется

[Ethex]

и то не всегда - похоже нужное ещё нажатие Enter и ещё какая-то чертовщина

А прописать чтобы это нажатие Enter происходило автоматически возможно?

[Serge_Bliznykov]

Сообщение от Ethex

А прописать чтобы это нажатие Enter происходило автоматически возможно?

извините, что ввёл Вас в заблуждение.
можно на событии Изменение ( OnChange ) сделать нормально.

Private Sub Поле0_Change()
    If IsNull(Me.Поле0.Text) Or (Me.Поле0.Text = "") Then
        Me.Кнопка2.SetFocus
        Me.Поле0.Visible = False
    End If
End Sub