Почему условный тест для значения ComboBox игнорируется? (Доступ к VBA)

У меня есть пункт If, который полностью игнорировался, пока я не нашел обходной путь, но теперь я хотел бы лучше понять, что происходит под капотом.

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

If (Me.Combo78.Value = "") Then
    mb "Please select a value"
End If

Код никогда не сработает, пока я не изменю условие на следующее:

If ("" & Me.Combo78.Value = "") Then
    mb "Please select a value"
End If

Я предполагаю, что "" & заставляет сравнение быть текстовым сравнением и, следовательно, может достоверно проверять пустую строку "", но что на самом деле делало предыдущее сравнение, и есть ли лучший, более интуитивный способ управлять этим? Решение, которое у меня есть, кажется отвратительным.

-- 30-летний опыт программирования на Pascal, HTML, Javascript, но менее 1 года программирования на VBA после того, как ему передали устаревшее приложение, требующее отладки.

vba ms-access ms-access-forms

28.05.2019 22:01

Стоит ли изучать PHP в 2023-2024 годах?

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

Поведение ключевого слова "this" в стрелочной функции в сравнении с нормальной функцией

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

Приемы CSS-макетирования - floats и Flexbox

Здравствуйте, друзья-студенты! Готовы совершенствовать свои навыки веб-дизайна? Сегодня в нашем путешествии мы рассмотрим приемы CSS-верстки - в...

Тестирование функциональных ngrx-эффектов в Angular 16 с помощью Jest

В системе управления состояниями ngrx, совместимой с Angular 16, появились функциональные эффекты. Это здорово и делает код определенно легче для...

Концепция локализации и ее применение в приложениях React ⚡️

Локализация - это процесс адаптации приложения к различным языкам и культурным требованиям. Это позволяет пользователям получить опыт, соответствующий...

Пользовательский скаляр GraphQL

Листовые узлы системы типов GraphQL называются скалярами. Достигнув скалярного типа, невозможно спуститься дальше по иерархии типов. Скалярный тип...

Перейти к ответу Данный вопрос помечен как решенный

Ответы 1

Ответ принят как подходящий

Если ComboBox не имеет значения, то Me.Combo78.Value будет нулевым, и, следовательно, Me.Combo78.Value = "" будет нулевым и не будет проверять тестовое выражение для оператора if.

Во втором коде объединение пустой строки с нулевым значением вернет пустую строку, поэтому "" & Me.Combo78.Value возвращает пустую строку, тем самым проверяя тестовое выражение.

При желании вы можете убедиться в этом сами в окне Immediate Window VBE (доступно с помощью Ctrl+G):

?Null = ""
Null
?Null & "" = ""
True

Более читаемым решением может быть:

If IsNull(Me.Combo78) Or Me.Combo78 = "" Then
    mb "Please select a value"
End If

В качестве альтернативы вы можете использовать функцию Nz:

If Nz(Me.Combo78, "") = "" Then
    mb "Please select a value"
End If

Поскольку свойство Value является членом по умолчанию для этого класса, его можно безопасно опустить.

Спасибо за очень понятное объяснение. Я пропустил, что поле Value было Variant, и поэтому undefined равно Null. Только начинаю привыкать к VBA и к тому, как он делает самые простые вещи.

— 28.05.2019 23:39

28.05.2019 22:12