Код не проверяет наличия текста в TextBox

@TI_ProJecT · Регистрация: 13.03.2011

Author24 — интернет-сервис помощи студентам

Visual Basic

Private Sub CommandButton1_Click()
Dim razmer As Integer
razmer = Application.CountA(Sheets("Òîâàð").Range("A:A")) + 3
 
If (IsEmpty(TextBox1) = True) Or (IsEmpty(TextBox2) = False) Or (IsEmpty(TextBox3) = False) Or (IsEmpty(ComboBox1) = False) Then
Cells(razmer, 1) = Cells(razmer - 1, 1) + 1
Cells(razmer, 2) = TextBox1.Text
Cells(razmer, 3) = TextBox2.Text
Cells(razmer, 4) = TextBox3.Text
Cells(razmer, 5) = ComboBox1.Text
 
 
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
 
 
Else
MsgBox ("Íå âñå ïîëÿ çàïîëíåíû"): UserForm1_òîâàð.Hide
End If
 End Sub
 
Private Sub CommandButton2_Click()
m: UserForm1_òîâàð.Hide
End Sub
 
 
 
Private Sub UserForm_Initialize()
ComboBox1.AddItem "øò"
ComboBox1.AddItem "ì2"
End Sub

Не проверяет на наличие текста в текст боксах, почему?

@Казанский · 06.12.2011, 16:40

В пустых контролах содержится не Empty, а строка нулевой длины. Это не одно и то же

Visual Basic

1	If TextBox1 = "" Or TextBox2 <> "" Or TextBox3 <> "" Or ComboBox1 <>"" Then

@TI_ProJecT · 06.12.2011, 16:46 **[ТС]**

Казанский, спасибо, а я на что тогда проверял?
То есть в каких случаях мое будет работать?

@Казанский · 06.12.2011, 17:07

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

а я на что тогда проверял?

На Empty

Empty - это особое состояние переменной типа Variant. Строка нулевой длины - это НЕ Empty. Числовая переменная, равная 0 - НЕ Empty.

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

То есть в каких случаях мое будет работать?

Ни в каких.

Visual Basic

Sub TestEmpty()
Dim s As String, i As Long, x
Debug.Print IsEmpty(s), IsEmpty(i), IsEmpty(x) 'False         False         True
x = ""
Debug.Print IsEmpty(s), IsEmpty(i), IsEmpty(x) 'False         False         False
x = Empty
s = Empty
i = Empty
Debug.Print IsEmpty(s), IsEmpty(i), IsEmpty(x) 'False         False         True
End Sub

@mc-black · 06.12.2011, 18:07

Empty - это особое состояние переменной типа Variant. Строка нулевой длины - это НЕ Empty. Числовая переменная, равная 0 - НЕ Empty.

Чтобы немного запутать:

Visual Basic

1	Debug.Print Empty = "", Empty = 0 'True True

Добавлено через 2 минуты

Visual Basic

1 2	?TypeName(Empty) Empty

@TI_ProJecT 0 / 0 / 0 Регистрация: 13.03.2011 Сообщений: 96
	06.12.2011, 16:46 [ТС]	3
	Казанский, спасибо, а я на что тогда проверял? То есть в каких случаях мое будет работать? 0

	06.12.2011, 18:07