Как правильно прописать условие "текст не содержит" в коде?

@Soft17 · Регистрация: 15.01.2017

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

Пробую получить список таблиц в базе данных.
Использую код:

Visual Basic
1
2
3
4
5
6
7
8
   Dim db As Database
   Dim c As TableDef
             
   Set db = CurrentDb
    
   For Each c In db.TableDefs
       Debug.Print c.Name ' Семейства объектов
   Next c

Получаю список таблиц:
"MSysAccessStorage
MSysACEs
MSysComplexColumns
MSysNameMap
MSysNavPaneGroupCategories
MSysNavPaneGroups
MSysNavPaneGroupToObjects
MSysNavPaneObjectIDs
MSysObjects
MSysQueries
MSysRelationships
MSysResources
Контакты
Параметры
"

Мне необходимы только таблицы:
- Контакты;
- Параметры.

Чтобы исключить таблицы с именем "MSys*"
Использую код:

Visual Basic
1
2
3
  If c.Name Not Like "MSys*" then
              Debug.Print c.Name ' Семейства объектов
  End If

В строке `If c.Name Not Like "Msys*" then` получаю в `Like` ошибку "Syntax error".
Вопросы.
1. Как правильно прописать условие "текст не содержит" в коде?
или
2. Есть ли другие способы получения списка нужных таблиц по другому?

shanemac51 · 01.05.2019, 17:48

попробуйте так

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub mtab()
 
   Dim db As Database
   Dim c As TableDef
             
   Set db = CurrentDb
    
   For Each c In db.TableDefs
   If (c.Name Like "msys*") = False Then
       Debug.Print c.Name ' Семейства объектов
       End If
   Next c
End Sub

другую форму записи не люблю и никогда не применяю

Visual Basic
1
2
3
 If Not (c.Name Like "msys*") Then
       Debug.Print c.Name ' Семейства объектов
       End If

@Варекай · 02.04.2022, 15:02

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

другую форму записи не люблю и никогда не применяю

Почему? Что за принципы, если эта пропись гораздо короче?

@SDKU · 02.04.2022, 16:35

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

Пробую получить список таблиц в базе данных.

Как вариант(у Вас имеется еще 2 непонятных таблицы "f*" с ними разбирайтесь сами):

SQL
1
2
3
SELECT MSysNavPaneObjectIDs.Name, MSysNavPaneObjectIDs.Type
FROM MSysNavPaneObjectIDs
WHERE (((MSysNavPaneObjectIDs.Name) NOT LIKE "msys*") AND ((MSysNavPaneObjectIDs.Type)=1));

@Capi · 02.04.2022, 17:11

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

с ними разбирайтесь сами

Думаю, ТС давно разобрался - дело-то было три года назад.

@SDKU · 02.04.2022, 17:20

Варекай, сообщение сегодня в 15.02 и в списке тема была выделена жирным шрифтом, а на дату создания топика, каюсь, не глянул

@Capi · 02.04.2022, 17:22

SDKU,

Но Вы-то обращаетесь к ТС.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .
SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .

@SDKU 598 / 404 / 51 Регистрация: 06.03.2022 Сообщений: 2,129
	02.04.2022, 17:20
	Варекай, сообщение сегодня в 15.02 и в списке тема была выделена жирным шрифтом, а на дату создания топика, каюсь, не глянул 0

@Capi Модератор 6231 / 2909 / 707 Регистрация: 12.06.2016 Сообщений: 7,839
	02.04.2022, 17:22
	SDKU, Но Вы-то обращаетесь к ТС. 0

Как правильно прописать условие "текст не содержит" в коде?

Решение