Доброго времени суток, УВАЖАЕМЫЕ =) В общем помогите создать условие с условиями...
Часть работает корректно отдельно [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-ов
Доброго времени суток, УВАЖАЕМЫЕ =) В общем помогите создать условие с условиями...
Часть работает корректно отдельно [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-овtelevnoy
Если честно, я не очень понял Ваше пожелание. Может, вот так? [vba]
Код
Private Sub CommandButton1_Click() Dim st As String If CheckBox1.Value = True Then 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 Else 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 "Здесь продолжается выполнеия условия2" End If End If End Sub
[/vba]
Если честно, я не очень понял Ваше пожелание. Может, вот так? [vba]
Код
Private Sub CommandButton1_Click() Dim st As String If CheckBox1.Value = True Then 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 Else 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 "Здесь продолжается выполнеия условия2" End If End If End Sub
Уважаемый _Boroda_, да почти. Только вот при выполнении 1 условия выводится как надо, сообщение об одном не заполненном, во втором об двух... =(
Уважаемый _Boroda_, да почти. Только вот при выполнении 1 условия выводится как надо, сообщение об одном не заполненном, во втором об двух... =(televnoy