Доброго времени суток, УВАЖАЕМЫЕ =)
В общем помогите создать условие с условиями...
Часть работает корректно отдельно
[vba]Код
Sub _______
Dim st As String
st = ""
For Each con In Me.Controls
If con.Name Like "txt*" Or con.Name Like "cb*" Then
If con.Text = "" Then st = st & vbCr & con.Tag
End If
Next
If st <> "" Then
MsgBox "Не заполнены следующие поля:" & st
Else
MsgBox "Здесь продолжается выполнеия условия1"
End If
End sub
[/vba]
Задача у меня создать условие, при котором вышеупомянутое условие выполнялось.
[vba]Код
Private Sub CommandButton1_Click()
'Условие при включенном чек боксе
If CheckBox1.Value = True Then
'__________________________
Dim st As String
st = ""
For Each con In Me.Controls
If con.Name Like "txt*" Or con.Name Like "cb*" Then
If con.Text = "" Then st = st & vbCr & con.Tag
End If
Next
If st <> "" Then
MsgBox "Не заполнены следующие поля:" & st
Else
MsgBox "Здесь продолжается выполнение условия 1"
End If
'Условие при выключенном чекбоксе
Next
Else
CheckBox1.Value = False
'__________________________
Dim st As String
st = ""
For Each con In Me.Controls
If con.Name Like "txt1*" Or con.Name Like "cb1*" Then
If con.Text = "" Then st = st & vbCr & con.Tag
End If
Next
If st <> "" Then
MsgBox "Не заполнены следующие поля:" & st
Else
MsgBox "Здесь продолжается выполнение условия я"
End If
End Sub
[/vba]
Наверняка куча ошибок, может ранее и удалось написать более менее корректное действие но оно все ровно не выполнялось, это уже последний способ был который выложил.
Для включения формы кнопка на листе
P.S. Поясню задачу при первом условии проверяются ТextBox-ы (с началом txt) и если они пусты, то выводиться в сообщении список тэгов ТextBox-ов, при
втором условии ТextBox-ы (с началом txt1) и если они пусты, то выводиться в сообщении список тэгов ТextBox-ов