Как в случае ошибки кода, сделать чтобы запускалась нужная форма. / Microsoft Access

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как в случае ошибки кода, сделать чтобы запускалась нужная форма.

19 сообщений из 94, страница 4 из 4

все

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

#39818497

Wawan2005

Гость

vmagРаз учиться не охота и некогда, Вам нужно немного отвлечься... ну например, пойти и поймать завтра пару - тройку преступников, всё ж майор полиции..
Я хоть и майор, но специфика другая, я по должность "Главный специалист" (по образованию радиоинженер)
моя работа компьютеры и сигнализация!

...

Рейтинг:

0 / 0

26.05.2019, 22:12

| Ответить | Цитировать | Написать

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

#39818502

__Michelle

Участник

Сообщения: 3 247

Рейтинг: 0 / 0

Wawan2005__Michelle,
Пишет
Ошибка синтаксиса (пропущен оператор) в выражении запроса
'Наименование = "РСПИ Струна-5 Б-5 GSM+".
Покажите полностью, как выглядит в VBA строка с DCount.

...

Рейтинг:

0 / 0

26.05.2019, 22:24

| Ответить | Цитировать | Написать

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

#39818504

Wawan2005

Гость

__Michelle,

If DCount("*", "[Оборудование ОВО]", "Наименование = """ & Me.П_Дан_Подч_2_УО & """") = 0 Then

...

Рейтинг:

0 / 0

26.05.2019, 22:34

| Ответить | Цитировать | Написать

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

#39818507

Wawan2005

Гость

Код: vbnet

1.
2.
3.
4.
5.
6.

If DCount("*", "[Оборудование ОВО]", "Наименование = """ & Me.П_Дан_Подч_2_УО & """") = 0 Then
  oshibka = "Не определён вид охраны"
  DoCmd.OpenForm "Ф_Ошибка"
 Else
  DoCmd.OpenForm "Данные_Литерка"
 End If

...

Рейтинг:

0 / 0

26.05.2019, 22:35

| Ответить | Цитировать | Написать

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

#39818511

Wawan2005

Гость

...

Рейтинг:

0 / 0

26.05.2019, 22:43

| Ответить | Цитировать | Написать

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

#39818517

__Michelle

Участник

Сообщения: 3 247

Рейтинг: 0 / 0

Замените в П_Дан_Подч_2_УО кавычки на апострофы.

Код: vbnet

If DCount("*", "[Оборудование ОВО]", "Наименование = """ & Replace(Me.П_Дан_Подч_2_УО, """", "'") & """") = 0 Then

...

Рейтинг:

0 / 0

26.05.2019, 23:06

| Ответить | Цитировать | Написать

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

#39818522

Wawan2005

Гость

__MichelleЗамените в П_Дан_Подч_2_УО кавычки на апострофы.

Код: vbnet

If DCount("*", "[Оборудование ОВО]", "Наименование = """ & Replace(Me.П_Дан_Подч_2_УО, """", "'") & """") = 0 Then

Ошибку перестала давать, но постоянно уходит на ветну Ошибка, не зависимо от того совпадает или нет с таблице Оборудование.

...

Рейтинг:

0 / 0

26.05.2019, 23:19

| Ответить | Цитировать | Написать

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

#39818523

Wawan2005

Гость

__Michelle,

Перелистал весь список Наименование, всегда уходит на ветку Ошибка.

...

Рейтинг:

0 / 0

26.05.2019, 23:27

| Ответить | Цитировать | Написать

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

#39818525

__Michelle

Участник

Сообщения: 3 247

Рейтинг: 0 / 0

Надо было и там, и там менять.

Код: vbnet

If DCount("*", "[Оборудование ОВО]", "Replace(Наименование,'""','')=""" & Replace(Me.П_Дан_Подч_2_УО, """", "") & """") = 0 Then

...

Рейтинг:

0 / 0

26.05.2019, 23:33

| Ответить | Цитировать | Написать

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

#39818527

Wawan2005

Гость

__Michelle,

Попробовал узнать чему равно DCoint получилось , не значение поля Наименование,
а цифра 18 равная количеству строк таблицы Оборудование ОВО.

...

Рейтинг:

0 / 0

26.05.2019, 23:37

| Ответить | Цитировать | Написать

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

#39818528

__Michelle

Участник

Сообщения: 3 247

Рейтинг: 0 / 0

Wawan2005__Michelle,

Перелистал весь список Наименование, всегда уходит на ветку Ошибка.
Нужно иметь словарь и использовать в основной таблице не словесные значения, а коды из словаря.
И сравнивать потом между собой не слова, а числа.
Меньше проблем будет.

...

Рейтинг:

0 / 0

26.05.2019, 23:37

| Ответить | Цитировать | Написать

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

#39818529

Wawan2005

Гость

__Michelle,

Ввёл последнее значение , всё заработало, огромное спасибо.

...

Рейтинг:

0 / 0

26.05.2019, 23:39

| Ответить | Цитировать | Написать

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

#39818530

Wawan2005

Гость

__MichelleWawan2005__Michelle,

Перелистал весь список Наименование, всегда уходит на ветку Ошибка.
Нужно иметь словарь и использовать в основной таблице не словесные значения, а коды из словаря.
И сравнивать потом между собой не слова, а числа.
Меньше проблем будет.

Извините, я это сообщение писал до того как увидел Ваше.

...

Рейтинг:

0 / 0

26.05.2019, 23:40

| Ответить | Цитировать | Написать

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

#39818531

__Michelle

Участник

Сообщения: 3 247

Рейтинг: 0 / 0

Wawan2005__Michelle,

Попробовал узнать чему равно DCoint получилось , не значение поля Наименование,
а цифра 18 равная количеству строк таблицы Оборудование ОВО.
Все верно.

Все же придется Вам прочитать про DCount.
Для чего используется и что возвращает.

...

Рейтинг:

0 / 0

26.05.2019, 23:41

| Ответить | Цитировать | Написать

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

#39818532

Wawan2005

Гость

__Michelle,

Ещё раз ОГРОМНОЕ СПАСИБО, за ваше умение и огромное терпение, при общении с ... ну с такими как я. -))

...

Рейтинг:

0 / 0

26.05.2019, 23:42

| Ответить | Цитировать | Написать

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

#39818533

Wawan2005

Гость

__Michelle
Все же придется Вам прочитать про DCount.
Для чего используется и что возвращает.

Попробую.

...

Рейтинг:

0 / 0

26.05.2019, 23:43

| Ответить | Цитировать | Написать

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

#39818589

DarkMan

Участник

Сообщения: 1 041

Рейтинг: 0 / 0

__MichelleВсе же придется Вам прочитать про DCount.
Для чего используется и что возвращает.
Ох не люблю я эти самые DSum, DCount и им подобные . Лично для себя я сделал такую штуку .На форуме уже тестировалась скорость выполнения по DCount сравнению с Recordset , практически одинаково . А плюсом , лично для меня является то , что создавая Запрос , я более наглядно вижу , то что мне нужно , к тому же создав строку через переменную , при пошаговой отладке я конкретно вижу , что я подсовываю в функцию. Это мое личное мнение , но мне так удобнее, и я никогда не использую DSum, DCount . :))

Код: vbnet

1.
2.
3.
4.
5.

Public Function fRs(strS As String) As DAO.Recordset
   Dim db As Database
   Set db = CurrentDb()
Set fRs = db.OpenRecordset(strS)
End Function

...

Рейтинг:

0 / 0

27.05.2019, 08:48

| Ответить | Цитировать | Написать

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

#39818691

sdku

Участник

Откуда: Краснодар

Сообщения: 7 762

Рейтинг: 0 / 0

DarkMan Ох не люблю я эти самые DSum, DCount и им подобные Ох люблю я такие аргументированные утверждения-по словам автора все доменные функции созданы для идиётов.
(хотя,если разобраться,где то глубоко-на системном уровне,они работают именно так,а довольно часто намного рациональней, чем предлагают "рационализаторы")

...

Рейтинг:

0 / 0

27.05.2019, 12:05

| Ответить | Цитировать | Написать

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

#39818733

DarkMan

Участник

Сообщения: 1 041

Рейтинг: 0 / 0

sdkuвсе доменные функции созданы для идиётов.
каждый думает в меру своей распущенности. :))

...

Рейтинг:

0 / 0

27.05.2019, 12:48

| Ответить | Цитировать | Написать

19 сообщений из 94, страница 4 из 4

все

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

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

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=45&msg=39818532&tid=1610684]:	0ms
get settings:	9ms
get forum list:	16ms
check forum access:	2ms
check topic access:	2ms
track hit:	32ms
get topic data:	11ms
get forum data:	2ms
get page messages:	63ms
get tp. blocked users:	1ms
others:	330ms

total:	468ms