Combobox null in if statement

Question

Я пытаюсь закодировать оператор if, где, если определенная combobox имеет значение NULL, тогда она запускает определенную часть кода, если в ней есть данные, тогда она запускает другую. Я написал это:

Private Sub ProjectAddSetDateAutoBtn_Click() 
If ProjectAddAllDueDateAutoCmBx = Null Then 
'Code1 
Msgbox("ComboBox Is Null") 
Else 
'Code2 
Msgbox("ComboBox Has Data") 
End If 
End Sub 

Я оставляю выпадающий без данных, а затем он не запускается код в первой части, если или код во 2-й части этого либо! Если я ввожу данные в поле, он отлично выполняет вторую часть инструкции if. Ошибок нет, я на этом сильно зациклен. У ComboBoxes есть свой «Null»? Есть ли проблема с этим оператором if?

Answer 1

Nothing is ever equal to Null, not even another Null.

Используйте IsNull(), чтобы проверить, является ли поле со списком нулевым.

'If ProjectAddAllDueDateAutoCmBx = Null Then 
If IsNull(ProjectAddAllDueDateAutoCmBx) = True Then 

Answer 2

эквивалент нуль в VB является Ничто так чек не хочет быть:

If ProjectAddAllDueDateAutoCmBx Is Nothing Then 

....

это надежда помогает.

Answer 3

Вы не можете использовать = Null сравнение, чтобы получить результаты, которые вы хотите, потому что Null распространяется. Чтобы увидеть это в действии, попробуйте:

? Null = Null 

в окне Immediate, и вы увидите, что Null возвращается. Используйте функцию IsNull, которая вернет true или false, как вы ожидали.

Private Sub ProjectAddSetDateAutoBtn_Click() 
If IsNull(ProjectAddAllDueDateAutoCmBx) Then 
'Code1 
Msgbox("ComboBox Is Null") 
Else 
'Code2 
Msgbox("ComboBox Has Data") 
End If 
End Sub 

Answer 4

Я хотел бы предложить

If IsNull(ProjectAddAllDueDateAutoCmBx.Value) Then 

Это правильно проверяет NullIsNull (вместо = Null), и она явно проверяет значение поля со списком.

(в большинстве случаев - в зависимости от контекста. - просто используя имя элемента управления дает значение, но это не мешает быть явным)

Answer 5

Хотя принятый ответ совершенно правильно, Я использую другой подход:

If HasValue(ProjectAddAllDueDateAutoCmBx) Then 

где функция HasValue является:

Public Function HasValue(v As Variant) As Boolean 
    If Trim(v & "") <> "" Then 
     HasValue = True 
    Else 
     HasValue = False 
    End If 
End Function 

Это имеет преимущество лечения NULL и «» (или любой чистый пробел) значения то же самое, что во много что вы хотите с помощью элементов управления MSAccess. Например, ввод значения в текстовом поле с нулевым значением и его повторное удаление с обратным пространством приведет к «" -значению, а не NULL. С точки зрения пользователя это в основном означает одно и то же.

[The (v & «») -часть это просто уловка, чтобы заставить преобразование в строку.]