Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Если поле пустое / 8 сообщений из 8, страница 1 из 1
27.10.2018, 13:13
    #39723869
NovLaymer
NovLaymer
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Если поле пустое
Подскажите пожалуйста ,как сделать ,чтоб вылетало сообщение о том что поле пустое не заполненное. Поле называется Документ.За ранее благодарен!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.10.2018, 13:46
    #39723877
Tarasios
Tarasios
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Если поле пустое
NovLaymer, ну так вам же нужно, что бы "вылетало сообщение" не постоянно, а в ответ на какое то событие, верно? Например - на нажатие кнопки, или после ввода инфы в какое то поле.
Вот, скажем, на событие "после обновления" кнопочки цепляете проверку. Например:

If IsNull(Me.Документ) = True Or Me.Документ = "" Then
MsgBox "Поле пустое"
Else
MsgBox "Поле заполнено"
End If
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.10.2018, 14:52
    #39723885
Serg197311
Serg197311
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Если поле пустое
http://www.sql.ru/forum/1303723/zapret-na-vyhod-iz-obyazatelnogo-polya-v-forme-bez-zapolneniya
Тока тока тут обсуждали
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.10.2018, 15:37
    #39723895
NovLaymer
NovLaymer
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Если поле пустое
Tarasios,Спасибо!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.10.2018, 15:38
    #39723896
NovLaymer
NovLaymer
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Если поле пустое
Serg197311,Спасибо!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.10.2018, 18:39
    #39723914
DarkMan
DarkMan
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Если поле пустое
TarasiosIf IsNull(Me.Документ) = True Or Me.Документ = "" Then
Код: vbnet
1.
2.
3.
4.
5.
    if len(Me.Документ & "")=0
         MsgBox "Поле пустое"
    else
        MsgBox "Поле заполненное"
    endif


Код: vbnet
1.
2.
3.
4.
5.
6.
?len("a" & "")
 1 
?len(Null & "") 
 0 
?len("" & "")
 0

Как то так наверное.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.10.2018, 21:44
    #39723945
Аллюр Д.
Аллюр Д.
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Если поле пустое
Мне прям стало обидно за старый добрый Nz

Если в переменной Null, то по умолчанию возвращает ""
Если надо, то может вернуть другое значение, например, 1
Если в переменной не Null и не "", то возвращает то что в переменной

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Public Function ttt()

Dim v As Variant

  v = Null
  Debug.Print Nz(v) = ""
  Debug.Print Nz(v, "1")
  Debug.Print Len(Nz(v)) = 0
  v = ""
  Debug.Print Len(Nz(v)) = 0
  v = "55"
  Debug.Print Nz(v)

End Function



Код: vbnet
1.
2.
3.
4.
5.
6.
?ttt
True
1
True
True
55



Очень удобно в запросах обозначать как-то не введённые данные - прочерком или текстом "не задано"
Код: sql
1.
2.
SELECT Nz(t1.f1,"--") AS ff1
FROM t1;


Код: sql
1.
2.
SELECT Nz(t1.f1,"[не задано]") AS ff1
FROM t1;
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
27.10.2018, 22:03
    #39723953
DarkMan
DarkMan
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Если поле пустое
Аллюр Д.Мне прям стало обидно за старый добрый Nz
В какой то из книг Гетца , если я не ошибаюсь , то это Программирование на Visual Basic 6 и VBA Руководство разработчика. В главе Работа со строками прозвучала фраза , что функция Len относится к одной из самых быстрых , и что для проверки строк рекомендовал именно ее .
Правда не помню , упоминалось ли там про Nz.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Если поле пустое / 8 сообщений из 8, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 568ms
Закрыть
start [/forum/topic.php?fid=45&tablet=1&tid=1611077]:
 0ms
get settings:
 7ms
get forum list:
 10ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 188ms
get topic data:
 12ms
get forum data:
 2ms
get page messages:
 46ms
get tp. blocked users:
 2ms
others: 295ms
total:  568ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]