Сообщение при отсутствии данных

@u_tarvo · Регистрация: 21.10.2012

Студворк — интернет-сервис помощи студентам

Здравствуйте!
Подскажите пожалуйста
1. Как правильно прописать условие, если в таблице "ТаблицаРКЭнгельРено" (формируется запросом) не будет данных (например в поле Karta), то выдать сообщение "Нет режимки"

Visual Basic
1
2
3
4
nomer = "select top 1 * from ТаблицаРКЭнгельРено"   ' & "" & Me.Выбор_ТПА.Column(1) & """
  With CurrentDb.OpenRecordset(nomer)
  If Len(!Karta & "") = 0 Then MsgBox "Нет режимки": Exit Sub
  End With

Пробовал

Visual Basic
1
If Len(!Karta & "") is null Then MsgBox "Нет режимки": Exit Sub

тоже не работает.
Пробовал обратное условие

Visual Basic
1
If Len(!Karta & "") > 0 Then MsgBox "Есть режимка": Exit Sub

работает.
Где у меня ошибка?
2. Можно ли имя таблицы сделать плавающим:

Visual Basic
1
nomer = "select top 1 * from ТаблицаРК & "" & Me.Выбор_ТПА.Column(1) & """

Как правильно прописать?
Спасибо!

mobile · 26.01.2014, 22:19

Сообщение от u_tarvo

Как правильно прописать условие, если в таблице "ТаблицаРКЭнгельРено" (формируется запросом) не будет данных (например в поле Karta), то выдать сообщение "Нет режимки"

Предикат Top не имеет смысла без явной сортировки. Надо задавать сортировку, иначе рискуете получить случайное значение.

Visual Basic
1
2
3
4
nomer = "select top 1 * from ТаблицаРКЭнгельРено order by [ИмяПоляСортировки]"   ' & "" & Me.Выбор_ТПА.Column(1) & """
  With CurrentDb.OpenRecordset(nomer)
  If Len(!Karta & "") = 0 Then MsgBox "Нет режимки": Exit Sub
  End With

Сообщение от u_tarvo

2. Можно ли имя таблицы сделать плавающим:

Visual Basic
1
nomer = "select top 1 * from [ТаблицаРК" & Me.Выбор_ТПА.Column(1) & "]"

@u_tarvo · 26.01.2014, 23:54 **[ТС]**

Сообщение от mobile

Предикат Top не имеет смысла без явной сортировки. Надо задавать сортировку, иначе рискуете получить случайное значение.

Visual Basic
1
2
3
4
nomer = "select top 1 * from ТаблицаРКЭнгельРено order by [ИмяПоляСортировки]"   ' & "" & Me.Выбор_ТПА.Column(1) & """
  With CurrentDb.OpenRecordset(nomer)
  If Len(!Karta & "") = 0 Then MsgBox "Нет режимки": Exit Sub
  End With

mobile, Спасибо!
По второму вопросу получилось, а первый никак.
Посмотри пожалуйста.
На Титул выбрать деталь, материал, ТПА и нажать кнопку "Реж.карта"

mobile · 27.01.2014, 00:27

u_tarvo, была запорчена форма титула. Я восстановил.

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

Visual Basic
1
2
3
4
5
  nomer = "select top 1 * from [ТаблицаРК" & Me.Выбор_ТПА.Column(1) & "] order by [Karta]"
  With CurrentDb.OpenRecordset(nomer)
    If .EOF Then MsgBox "Нет записей для выбранных параметров": Exit Sub
    If Len(!Karta & "") = 0 Then MsgBox "Нет режимки": Exit Sub
  End With

@u_tarvo · 27.01.2014, 07:16 **[ТС]**

Сообщение от mobile

u_tarvo,
Проблемный участок падал не на том, что поле было пусто, а из-за отсутствия записей в запросе. Которое не проверялось.

Visual Basic
1
  If .EOF Then MsgBox "Нет записей для выбранных параметров": Exit Sub

Спасибо большое!
Вот какого элемента не хватало

@u_tarvo · 13.02.2014, 20:24 **[ТС]**

Возвращаясь к напечатанному

Visual Basic
1
2
3
4
5
6
7
8
Private Sub Form_Load()
  Dim t1, nomer As String
   Dim s
   nomer = "select top 1 * from Режимы WHERE (((Режимы.KodTPA)=[Forms]![Титул]![Выбор ТПА]) AND ((Режимы.Material)=[Forms]![Титул]![Material]) AND ((Режимы.№Detali)=[Forms]![Титул]![ПолеСоСписком34]))ORDER BY Режимы.Karta DESC;"
  With CurrentDb.OpenRecordset(nomer)
    If .EOF Then MsgBox "Нет карты": Me.[DataEnter] = Date: Exit Sub
    'If Len(!Karta & "") = 0 Then MsgBox "Нет карты": Exit Sub
   End With

При выполнении процесса выдает ошибку 3061. "Слишком мало параметров. Требуется 3."
В чем проблема?
Сделал его самостоятельным запросом, все работает.
Где ошибка?
Спасибо!

mobile · 13.02.2014, 20:34

При компиляции скл-строки в ВБА, все ссылки на формы надо задавать значением, а не ссылкой

Visual Basic
1
2
3
4
5
6
nomer = "select top 1 * " _
& " from Режимы " _
& " WHERE (((Режимы.KodTPA)=" & [Forms]![Титул]![Выбор ТПА] & ") " _
& " AND ((Режимы.Material)='" & [Forms]![Титул]![Material] & "')" _
& " AND ((Режимы.№Detali)=" & [Forms]![Титул]![ПолеСоСписком34] & "))" _
& " ORDER BY Режимы.Karta DESC;"

Я предположил, что Режимы.Material текстовое поле, а остальные числовые и поэтому без ограничивающих апострофов

@u_tarvo · 13.02.2014, 20:38 **[ТС]**

Понял смысл, попробую поправить.
Спасибо!
PS. Сколько всяких элементарных вещей нужно помнить!

Новые блоги и статьи Все статьи Все блоги /
Символьное дифференцирование igorrr37 13.02.2026 / * Логарифм записывается как: (x-2)log(x^2+2) - означает логарифм (x^2+2) по основанию (x-2). Унарный минус обозначается как ! */ #include <iostream> #include <stack> #include <cctype>. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .

@u_tarvo 3 / 3 / 0 Регистрация: 21.10.2012 Сообщений: 208
	13.02.2014, 20:38 [ТС]
	Понял смысл, попробую поправить. Спасибо! PS. Сколько всяких элементарных вещей нужно помнить! 0

Сообщение при отсутствии данных

Решение