Форум программистов, компьютерный форум CyberForum.ru

VBA

Войти
Регистрация
Восстановить пароль
 
Panzermensch
0 / 0 / 0
Регистрация: 12.11.2013
Сообщений: 212
#1

Проверка заполнения поля - VBA

11.01.2017, 14:35. Просмотров 224. Ответов 5
Метки нет (Все метки)

Здравствуйте! Прошу помочь. Есть форма ввода данных в Access. В одном из полей идет автоподстановка значения. Если пользователь вводит неверное значение запись все равно происходит. Нужно чтобы если поле пустое выходило сообщение об ошибке. Имя поля - Наименование

Скрин приложения и листинг кода для кнопки добавить:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Добавить1_Click()
On Error GoTo Err_Добавить1_Click
 
    DoCmd.GoToRecord , , acNewRec
Месяц = отчетныймес
    Кассир = ТКассир
 Станция = 0
 Станция.SetFocus
 
Exit_Добавить1_Click:
    Exit Sub
 
Err_Добавить1_Click:
    MsgBox Err.Description
    Resume Exit_Добавить1_Click
    
End Sub
Миниатюры
Проверка заполнения поля  
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
11.01.2017, 14:35     Проверка заполнения поля
Посмотрите здесь:

Visual Basic Макрос для заполнения полей в декларации
Проверка корректности введенных данных в текстовые поля Visual Basic
Пример заполнения ListBox Visual Basic
Как увеличить скорость заполнения ячеек MSFlexGrid? Visual Basic
Visual Basic От чего зависит скорость заполнения таблицы Excel?
Visual Basic Как сделать поля ОБЯЗАТЕЛЬНОГО заполнения.
Создать проект заполнения массива А(9,9) индексом столбца Visual Basic
Проверка заполнения формы Visual Basic
Проверка поля text на пустоту и дозапись в него Visual Basic
Программа для заполнения таблицы в Sharepoint 2010 Visual Basic
Visual Basic Структура заполнения
Visual Basic Определить, сколько воды потребуется для заполнения всех кастрюль

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
yutrans
52 / 52 / 20
Регистрация: 10.11.2011
Сообщений: 273
11.01.2017, 18:27     Проверка заполнения поля #2
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Private Sub CommandButton1_Click()
 Dim X As Control
'проверка на заполнение полей формы
  For Each X In Me.Controls
        If TypeOf X Is MSForms.TextBox Or TypeOf X Is MSForms.ComboBox Then
            If X.Value = "" Then
               MsgBox "Все обязательные поля должны быть заполнены.", 48, "Сообщение"
                Exit Sub
            End If
        End If
    Next
Panzermensch
0 / 0 / 0
Регистрация: 12.11.2013
Сообщений: 212
12.01.2017, 08:13  [ТС]     Проверка заполнения поля #3
ругается(

не нравится ему такой тип данных, хотя другие вроде и не подходят
Миниатюры
Проверка заполнения поля  
yutrans
52 / 52 / 20
Регистрация: 10.11.2011
Сообщений: 273
12.01.2017, 08:24     Проверка заполнения поля #4
Незнаю почему ,но у меня работает. Смотрите вложение
Вложения
Тип файла: rar Книга1.rar (13.7 Кб, 2 просмотров)
Panzermensch
0 / 0 / 0
Регистрация: 12.11.2013
Сообщений: 212
12.01.2017, 08:47  [ТС]     Проверка заполнения поля #5
а как будет выглядеть код, который будет получать значение из конкретного поля, проверять его на то чтобы оно не было пустым и в случает если оно пустое выдавать сообщение об ошибке?

У меня вот так получилось, но вылетает ошибка.
Миниатюры
Проверка заполнения поля  
yutrans
52 / 52 / 20
Регистрация: 10.11.2011
Сообщений: 273
12.01.2017, 10:25     Проверка заполнения поля #6
Это сайт по vba,а не по фотошопу.Приложите файл.

Добавлено через 34 минуты
Проверяйте каждое поле отдельно и должно работать
Visual Basic
1
2
3
4
Private Sub CommandButton1_Click()
If Me.TextBox1 = "" Then MsgBox "Не заполнено поле", 48, "Сообщение": Exit Sub
If Me.TextBox2 = "" Then MsgBox "Не заполнено поле", 48, "Сообщение": Exit Sub
End Sub
Yandex
Объявления
12.01.2017, 10:25     Проверка заполнения поля
Ответ Создать тему
Опции темы

Текущее время: 15:04. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru