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

VBA

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

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

11.01.2017, 14:35. Просмотров 286. Ответов 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
0
Миниатюры
Проверка заполнения поля  
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
11.01.2017, 14:35
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Проверка заполнения поля (VBA):

Проверка заполнения документа MS Word - VBA
Столкнулся с проблемой: есть шаблон ворда с защитой для редактирования (доступны лишь некоторые части документа). Возможно ли осуществить...

Проверка на заполненность поля и его заполнение Access - VBA
Здравствуйте, столкнулся с проблемой в задании. Есть таблица и форма из которой она заполняется, при заполнении таблицы необходимо что-бы...

Функция заполнения массива - VBA
Массив через код VBA заполняется так: Dim b() ReDim b (1 To n, 1 To 5) For k = 1 To n For i = 1 To 5 ...

Макрос для заполнения таблички - VBA
Добрый день. Помогите пож-та написать макрос . Есть табличка такого плана: столбец А 610035 610035 610035

Написать процедуру заполнения массива - VBA
Написать процедуру заполнения массива. Массив должен заполняться следующим образом: a) В ячейку А1 вводится произвольное число b) В...

Расчеты в ячейках в момент заполнения - VBA
В общем хочется попросту организовать автозаполнение в реальном времени. Есть книга и два листа. Хочу постоянно сравнивать значение в...

5
yutrans
63 / 63 / 24
Регистрация: 10.11.2011
Сообщений: 322
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
0
Panzermensch
0 / 0 / 0
Регистрация: 12.11.2013
Сообщений: 213
12.01.2017, 08:13  [ТС] #3
ругается(

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

У меня вот так получилось, но вылетает ошибка.
0
Миниатюры
Проверка заполнения поля  
yutrans
63 / 63 / 24
Регистрация: 10.11.2011
Сообщений: 322
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
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.01.2017, 10:25
Привет! Вот еще темы с ответами:

Ограничение области заполнения в Excel - VBA
Пользователь заполняет прямоугольную область на листе, напр., B2:F10. При вводе данных по нажатию Enter активизируется ячейка справа...

Макрос для проверки заполнения - VBA
Доброе время суток. Плиз, прошу помощи. Макрос должен работать в "фоновом" режиме при открытии файла Excel. Найти на первом (!) листе...

Составить макрос заполнения путевых листов - VBA
Доброе время суток подскажите как можно из списка произвести заполнение путевых листов?

Программа-макрос для заполнения аттестатов - VBA
Задача такая. Министерство образования заставляет заполнять аттестаты о получении образования в школе не шариковойручкой, как раньше, а...


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

Или воспользуйтесь поиском по форуму:
6
Yandex
Объявления
12.01.2017, 10:25
Ответ Создать тему
Опции темы

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