Доброго время суток, столкнулся с проблемой автоматизированного ввода. А именно проверки введены ли данные, к примеру, пользователь вводит данные в форму (см. рис "Ввод") и программа должна сперва проверить перед вводом, введены ли данные, а у меня получилось, что программа вводит, а потом проверяет. Вот код программы:
Private Sub CommandButton1_Click() Dim Data(1 To 100) As Variant Dim i As Integer Макрос1 Data(1) = TextBox1.Value Data(2) = ComboBox1.Value Data(3) = TextBox2.Value Data(4) = TextBox4.Value Data(5) = TextBox3.Value Data(6) = TextBox5.Value Data(7) = TextBox6.Value For i = 1 To 10 Cells(R + 1, i).Value = Data(i) Next If TextBox2.Value = "" Then MsgBox "Вы не заполнили форму даты" TextBox2.SetFocus Else End If If TextBox1.Value = "" Then MsgBox "Вы не заполнили форму ввода ФИО " TextBox1.SetFocus Else End If If TextBox3.Value = "" Then MsgBox "Вы не заполнили форму ввода адреса" TextBox3.SetFocus Else End If If TextBox4.Value = "" Then MsgBox "Вы не заполнили форму ввода лицевого счета (номера договора)" TextBox4.SetFocus Else End If If TextBox5.Value = "" Then MsgBox "Вы не заполнили форму ввода номера телефона" TextBox5.SetFocus Else End If If TextBox6.Value = "" Then MsgBox "Вы не заполнили форму с вводом описания заявки" TextBox6.SetFocus Else End If
End Sub [moder]Нарушение Правил форума 1. п. 2 2. п.3 в части файла 3. п. 3 в части тегов До исправления ответ скрыт[/offtop][/offtop][/offtop][/offtop]
Доброго время суток, столкнулся с проблемой автоматизированного ввода. А именно проверки введены ли данные, к примеру, пользователь вводит данные в форму (см. рис "Ввод") и программа должна сперва проверить перед вводом, введены ли данные, а у меня получилось, что программа вводит, а потом проверяет. Вот код программы:
Private Sub CommandButton1_Click() Dim Data(1 To 100) As Variant Dim i As Integer Макрос1 Data(1) = TextBox1.Value Data(2) = ComboBox1.Value Data(3) = TextBox2.Value Data(4) = TextBox4.Value Data(5) = TextBox3.Value Data(6) = TextBox5.Value Data(7) = TextBox6.Value For i = 1 To 10 Cells(R + 1, i).Value = Data(i) Next If TextBox2.Value = "" Then MsgBox "Вы не заполнили форму даты" TextBox2.SetFocus Else End If If TextBox1.Value = "" Then MsgBox "Вы не заполнили форму ввода ФИО " TextBox1.SetFocus Else End If If TextBox3.Value = "" Then MsgBox "Вы не заполнили форму ввода адреса" TextBox3.SetFocus Else End If If TextBox4.Value = "" Then MsgBox "Вы не заполнили форму ввода лицевого счета (номера договора)" TextBox4.SetFocus Else End If If TextBox5.Value = "" Then MsgBox "Вы не заполнили форму ввода номера телефона" TextBox5.SetFocus Else End If If TextBox6.Value = "" Then MsgBox "Вы не заполнили форму с вводом описания заявки" TextBox6.SetFocus Else End If
End Sub [moder]Нарушение Правил форума 1. п. 2 2. п.3 в части файла 3. п. 3 в части тегов До исправления ответ скрыт[/offtop][/offtop][/offtop][/offtop]Danko
т.е. вот так?? так программа зациклилась.... Private Sub CommandButton1_Click() Dim Data(1 To 100) As Variant Dim i As Integer Макрос1 Data(1) = TextBox1.Value Data(2) = ComboBox1.Value Data(3) = TextBox2.Value Data(4) = TextBox4.Value Data(5) = TextBox3.Value Data(6) = TextBox5.Value Data(7) = TextBox6.Value For i = 1 To 10 Cells(R + 1, i).Value = Data(i) If TextBox2.Value = "" Then MsgBox "Вы не заполнили форму даты" TextBox2.SetFocus Else End If If TextBox1.Value = "" Then MsgBox "Вы не заполнили форму ввода ФИО " TextBox1.SetFocus Else End If If TextBox3.Value = "" Then MsgBox "Вы не заполнили форму ввода адреса" TextBox3.SetFocus Else End If If TextBox4.Value = "" Then MsgBox "Вы не заполнили форму ввода лицевого счета (номера договора)" TextBox4.SetFocus Else End If If TextBox5.Value = "" Then MsgBox "Вы не заполнили форму ввода номера телефона" TextBox5.SetFocus Else End If If TextBox6.Value = "" Then MsgBox "Вы не заполнили форму с вводом описания заявки" TextBox6.SetFocus Else End If Next End Su
т.е. вот так?? так программа зациклилась.... Private Sub CommandButton1_Click() Dim Data(1 To 100) As Variant Dim i As Integer Макрос1 Data(1) = TextBox1.Value Data(2) = ComboBox1.Value Data(3) = TextBox2.Value Data(4) = TextBox4.Value Data(5) = TextBox3.Value Data(6) = TextBox5.Value Data(7) = TextBox6.Value For i = 1 To 10 Cells(R + 1, i).Value = Data(i) If TextBox2.Value = "" Then MsgBox "Вы не заполнили форму даты" TextBox2.SetFocus Else End If If TextBox1.Value = "" Then MsgBox "Вы не заполнили форму ввода ФИО " TextBox1.SetFocus Else End If If TextBox3.Value = "" Then MsgBox "Вы не заполнили форму ввода адреса" TextBox3.SetFocus Else End If If TextBox4.Value = "" Then MsgBox "Вы не заполнили форму ввода лицевого счета (номера договора)" TextBox4.SetFocus Else End If If TextBox5.Value = "" Then MsgBox "Вы не заполнили форму ввода номера телефона" TextBox5.SetFocus Else End If If TextBox6.Value = "" Then MsgBox "Вы не заполнили форму с вводом описания заявки" TextBox6.SetFocus Else End If Next End SuDanko
Миронов Андрей
Сообщение отредактировал Danko - Четверг, 02.04.2015, 12:35
Модератор: Нарушение Правил форума 1. п. 2 2. п.3 в части файла 3. п. 3 в части тегов До исправления ответ скрыт
Все по правилам, в названии темы нету запрещенных слов. В части файла, тоже отклонений не вижу А теги я не нашел, и что это вообще? [moder]Давайте пререкаться не будем. Кстати, это тоже нарушение Правил. Внимательнее читайте Правила, там все четко написано.
Модератор: Нарушение Правил форума 1. п. 2 2. п.3 в части файла 3. п. 3 в части тегов До исправления ответ скрыт
Все по правилам, в названии темы нету запрещенных слов. В части файла, тоже отклонений не вижу А теги я не нашел, и что это вообще? [moder]Давайте пререкаться не будем. Кстати, это тоже нарушение Правил. Внимательнее читайте Правила, там все четко написано.Danko
Миронов Андрей
Сообщение отредактировал _Boroda_ - Четверг, 02.04.2015, 12:57