Добрый день! Подскажите пожалуйста что делаю не правильно. В диалоговом окне есть форма Textbox - tbcreatename Ниже расположена кнопка, при нажатии на которую необходимо сделать проверку на то, что это поле пустое (Если да, то выводим сообщение об ошибке) Если поле не пустое, берём значения из этого Textbox'a и присваиваем в значения .value строки которая расположена ниже. А если и она занята, то в строку еще ниже, покажу на скриншоте.
[vba]
Код
Private Sub btnCreatecard_Click() If (tbcreatename.Value = "") Then: MsgBox ("Введите Имя, Фамилию и Отчество ученика!") If (tbstudent1.Value = "") Then: tbstudent1.value = tbcreatename.value End Sub
[/vba]
P.S. поле для проверки tbcreatename Поля для вставки tbstudent1, tbstudent2, tbstudent3, tbstudent4, tbstudent5, tbstudent6
Не могу понять как это сделать, то ошибку выдает Else without If , а если пишу ElseIf то пишет error expression.
Добрый день! Подскажите пожалуйста что делаю не правильно. В диалоговом окне есть форма Textbox - tbcreatename Ниже расположена кнопка, при нажатии на которую необходимо сделать проверку на то, что это поле пустое (Если да, то выводим сообщение об ошибке) Если поле не пустое, берём значения из этого Textbox'a и присваиваем в значения .value строки которая расположена ниже. А если и она занята, то в строку еще ниже, покажу на скриншоте.
[vba]
Код
Private Sub btnCreatecard_Click() If (tbcreatename.Value = "") Then: MsgBox ("Введите Имя, Фамилию и Отчество ученика!") If (tbstudent1.Value = "") Then: tbstudent1.value = tbcreatename.value End Sub
[/vba]
P.S. поле для проверки tbcreatename Поля для вставки tbstudent1, tbstudent2, tbstudent3, tbstudent4, tbstudent5, tbstudent6
Не могу понять как это сделать, то ошибку выдает Else without If , а если пишу ElseIf то пишет error expression.Jelvis
Пишите if-then в нормальном виде, без двоеточий, тогда и ElseIf сможете вставить. Не, его и в кратком виде вставить можно, через двоеточие, но зачем? [vba]
Код
If tbstudent1.Value = "" Then tbstudent1.Value = tbcreatename.Value ElseIf tbstudent2.Value = "" Then tbstudent2.Value = tbcreatename.Value ... End If
[/vba]
Пишите if-then в нормальном виде, без двоеточий, тогда и ElseIf сможете вставить. Не, его и в кратком виде вставить можно, через двоеточие, но зачем? [vba]
Код
If tbstudent1.Value = "" Then tbstudent1.Value = tbcreatename.Value ElseIf tbstudent2.Value = "" Then tbstudent2.Value = tbcreatename.Value ... End If
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
