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

If IsNull(Me.Документ) = True Or Me.Документ = "" Then
MsgBox "Поле пустое"
Else
MsgBox "Поле заполнено"
End If
...
Рейтинг: 0 / 0
Если поле пустое
    #39723885
Serg197311
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
...
Рейтинг: 0 / 0
Если поле пустое
    #39723895
NovLaymer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Tarasios,Спасибо!
...
Рейтинг: 0 / 0
Если поле пустое
    #39723896
NovLaymer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Serg197311,Спасибо!
...
Рейтинг: 0 / 0
Если поле пустое
    #39723914
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
Если поле пустое
    #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
Если поле пустое
    #39723953
DarkMan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Аллюр Д.Мне прям стало обидно за старый добрый Nz
В какой то из книг Гетца , если я не ошибаюсь , то это Программирование на Visual Basic 6 и VBA Руководство разработчика. В главе Работа со строками прозвучала фраза , что функция Len относится к одной из самых быстрых , и что для проверки строк рекомендовал именно ее .
Правда не помню , упоминалось ли там про Nz.
...
Рейтинг: 0 / 0
8 сообщений из 8, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Если поле пустое
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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