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

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

Гость

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

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

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

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

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

все

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

#39818250

Wawan2005

Гость

__Michelle И как-то все же почитать что-нибудь, что ли...
Спасибо за добрый совет, но так много чтива, а так хочется быстро-)

...

Рейтинг:

0 / 0

25.05.2019, 20:06

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

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

#39818252

Wawan2005

Гость

__Michelle,

Do - просто не убирается, ещё и Until - убрал, начинает ругаться на Set....

...

Рейтинг:

0 / 0

25.05.2019, 20:10

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

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

#39818253

Wawan2005

Гость

Wawan2005,

добавил Loop

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.

Private Sub Кн_Литерка_Click()
Dim rs33 'As Recordset
Set rs33 = CurrentDb.OpenRecordset("select * [Оборудование ОВО]")
Do Until rs33.EOF
If rs33.[Наименование] <> Me.П_Дан_Подч_2_УО Then
    oshibka = "Не определён вид охраны"
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
    DoCmd.OpenForm "Ф_Ошибка"
Else
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
    Dim stDocName As String
    Dim stLinkCriteria As String
    stDocName = "Данные_Литерка"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
End If
Loop
End Sub

ругается на Set...

...

Рейтинг:

0 / 0

25.05.2019, 20:12

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

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

#39818255

__Michelle

Участник

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

Рейтинг: 0 / 0

Wawan2005__Michelle,

Do - просто не убирается, ещё и Until - убрал, начинает ругаться на Set....
М-м-м-м.....

То есть, пытаетесь убрать всего две буквы "Do" ?

Экстравагантно.

...

Рейтинг:

0 / 0

25.05.2019, 20:32

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

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

#39818256

__Michelle

Участник

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

Рейтинг: 0 / 0

Wawan2005Wawan2005,

Код: vbnet

Set rs33 = CurrentDb.OpenRecordset("select * [Оборудование ОВО]")

ругается на Set...
А где же FROM ?

...

Рейтинг:

0 / 0

25.05.2019, 20:35

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

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

#39818259

Wawan2005

Гость

__Michelle,

Сделал так

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.

Private Sub Кн_Литерка_Click()
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Dim rs33 'As Recordset
Set rs33 = CurrentDb.OpenRecordset("select * from [Оборудование ОВО]")
Do Until rs33.EOF
If rs33!Наименование <> Me.П_Дан_Подч_2_УО Then
    oshibka = "Не определён вид охраны"
    DoCmd.OpenForm "Ф_Ошибка"
Else
    Dim stDocName As String
    Dim stLinkCriteria As String
    stDocName = "Данные_Литерка"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
End If
Loop
End Sub

стал открывать Ф_Ошибка, но зависает

...

Рейтинг:

0 / 0

25.05.2019, 21:16

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

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

#39818260

Wawan2005

Гость

__Michelle,

Я тут последовал Вашему совету и напоролся на интересную вещь
· метод Find предназначен для поиска по значению одного столбца. Он принимает в качестве параметра критерий поиска, насколько нужно отступить от исходной позиции, направление поиска и откуда нужно начать поиск. Очень удобно, что при определения критерия поиска можно использовать оператор Like с подстановочными символами. При обнаружении нужной записи метод Find переставляет курсор на найденную запись, если же запись не обнаружена, то курсор устанавливается на EOF (или BOF, если поиск был назад). Например, чтобы найти все немецкие фирмы в нашем Recordset для таблицы Customers, можно использовать код вида

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.

rs.Find "country = 'Germany'"

Do While Not rs.EOF

            Wscript.Echo "Название фирмы: "; rs.Fields("CompanyName")

            mark = rs.Bookmark

            rs.Find "country = 'Germany'", 1, , mark

Loop

Помогите мне (точнее, если можно, напишите кусок кода) на основе этого

...

Рейтинг:

0 / 0

25.05.2019, 21:20

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

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

#39818268

__Michelle

Участник

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

Рейтинг: 0 / 0

Wawan2005но зависает
А в 21893926 так и написано:__Michelle И получить бесконечный цикл...

...

Рейтинг:

0 / 0

25.05.2019, 21:59

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

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

#39818270

__Michelle

Участник

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

Рейтинг: 0 / 0

Wawan2005__Michelle,

.................................
.................................
Помогите мне (точнее, если можно, напишите кусок кода) на основе этого
Нет, не можно.
Во-первых, я пишу сейчас с планшета.
Во-вторых, это было бы медвежьей услугой - Вы опять наскоро склеите коллаж из разнородных кусков,
а понимания не прибавится.

...

Рейтинг:

0 / 0

25.05.2019, 22:06

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

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

#39818272

Wawan2005

Гость

__Michelle,

Если честно, мне понятие и не нужно, мне нужно чтобы заработала база,
а учится 44 летнему майору полиции думаю уже поздно.

Может по позже всё таки вспомните про меня?! и чиркните кусочек.

...

Рейтинг:

0 / 0

25.05.2019, 22:09

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

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

#39818273

__Michelle

Участник

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

Рейтинг: 0 / 0

Wawan2005,

Может.
Но не обещаю.
Сегодня вряд ли.

...

Рейтинг:

0 / 0

25.05.2019, 22:20

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

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

#39818274

Wawan2005

Гость

__Michelle,

Да я понял, заранее спасибо.

...

Рейтинг:

0 / 0

25.05.2019, 22:26

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

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

#39818280

DarkMan

Участник

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

Рейтинг: 0 / 0

__MichelleВо-вторых, это было бы медвежьей услугой -
Истину глаголите ,друХ мой. :))
__MichelleМожет.
Но не обещаю.
Сегодня вряд ли.
Сударыня , не поддавайтесь на провокации . Учиться можно и в 50 , и в 60 , а в 45 жизнь только начинается.

...

Рейтинг:

0 / 0

25.05.2019, 22:42

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

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

#39818282

Лапух

Участник

Откуда: Стойбище № 7

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

Рейтинг: 0 / 0

DarkMan...Учиться можно и в 50 , и в 60...
Вредный и злой ты какой та.
А как же - ХАЛЯВА ?

...

Рейтинг:

0 / 0

25.05.2019, 22:46

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

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

#39818286

Wawan2005

Гость

Да подставить свои формы и поля то не сложно, но там как то ДОА или АДО надо прибздюхать

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.

Private Sub Кн_Литерка_Click()
?????????????
?????????????
?????????????
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
rs.Find "[Наименование] = Me.Me.П_Дан_Подч_2_УО"

Do While Not rs.EOF
'            Wscript.Echo "Название фирмы: "; rs.Fields("CompanyName")
            mark = rs.Bookmark
            rs.Find "[Наименование] = Me.Me.П_Дан_Подч_2_УО'", 1, , mark
Loop

If mark  <> Me.П_Дан_Подч_2_УО Then
    oshibka = "Не определён вид охраны"
    DoCmd.OpenForm "Ф_Ошибка"
Else
    Dim stDocName As String
    Dim stLinkCriteria As String
    stDocName = "Данные_Литерка"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
End If
End Sub

а так то в принципе всё готово
P.S.: По крайней меря я так думаю-)

...

Рейтинг:

0 / 0

25.05.2019, 23:10

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

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

#39818352

__Michelle

Участник

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

Рейтинг: 0 / 0

Wawan2005Да подставить свои формы и поля то не сложно, но там как то ДОА или АДО надо прибздюхать

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.

Private Sub Кн_Литерка_Click()
?????????????
?????????????
?????????????
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
rs.Find "[Наименование] = Me.Me.П_Дан_Подч_2_УО"

Do While Not rs.EOF
'            Wscript.Echo "Название фирмы: "; rs.Fields("CompanyName")
            mark = rs.Bookmark
            rs.Find "[Наименование] = Me.Me.П_Дан_Подч_2_УО'", 1, , mark
Loop

If mark  <> Me.П_Дан_Подч_2_УО Then
    oshibka = "Не определён вид охраны"
    DoCmd.OpenForm "Ф_Ошибка"
Else
    Dim stDocName As String
    Dim stLinkCriteria As String
    stDocName = "Данные_Литерка"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
End If
End Sub

а так то в принципе всё готово
P.S.: По крайней меря я так думаю-)

Вместо всей этой чуши.

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.

Private Sub &#202;&#237;_&#203;&#232;&#242;&#229;&#240;&#234;&#224;_Click()
 If DCount("*", "[&#206;&#225;&#238;&#240;&#243;&#228;&#238;&#226;&#224;&#237;&#232;&#229; &#206;&#194;&#206;]", "&#205;&#224;&#232;&#236;&#229;&#237;&#238;&#226;&#224;&#237;&#232;&#229; = " & Me.&#207;_&#196;&#224;&#237;_&#207;&#238;&#228;&#247;_2_&#211;&#206;) = 0 Then
  oshibka = "&#205;&#229; &#238;&#239;&#240;&#229;&#228;&#229;&#235;&#184;&#237; &#226;&#232;&#228; &#238;&#245;&#240;&#224;&#237;&#251;"
  DoCmd.OpenForm "&#212;_&#206;&#248;&#232;&#225;&#234;&#224;"
 Else
  DoCmd.OpenForm "&#196;&#224;&#237;&#237;&#251;&#229;_&#203;&#232;&#242;&#229;&#240;&#234;&#224;"
 End If
End Sub

...

Рейтинг:

0 / 0

26.05.2019, 13:08

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

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

#39818354

__Michelle

Участник

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

Рейтинг: 0 / 0

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.

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

...

Рейтинг:

0 / 0

26.05.2019, 13:09

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

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

#39818367

sdku

Участник

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

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

Рейтинг: 0 / 0

__Michelle....Вместо всей этой чуши...
ТСу об этом говорилось уже давноsdku....существуют и другие способы определения числа записей в запросе,например иметь сохраненный запрос и старым-добрым Dcount это сделатьС подходом "надо все и сразу" VBA не одолеть...(Я так думаю!-Мимино)

...

Рейтинг:

0 / 0

26.05.2019, 14:15

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

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

#39818370

__Michelle

Участник

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

Рейтинг: 0 / 0

sdkuС подходом "надо все и сразу" VBA не одолеть...(Я так думаю!-Мимино)
Вряд ли ТС собирается одолевать VBA, сам же говорит "мне понятие и не нужно, мне нужно чтобы заработала база".

...

Рейтинг:

0 / 0

26.05.2019, 14:22

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

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

#39818468

Wawan2005

Гость

__Michelle,

Здравствуйте, спасибо, что не забыли про меня.
Попробовал, ругается на

Код: vbnet

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

P.S.: На всякий случай перекопировал [Оборудование ОВО], [Наименование], [Me.П_Дан_Подч_2_УО]
вдруг ошибся в написании, а ннет всё правильно, по прежнему ругается.

...

Рейтинг:

0 / 0

26.05.2019, 20:26

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

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

#39818470

Wawan2005

Гость

Как я понял "ТС" - это вы про меня, а почему "ТС"??

...

Рейтинг:

0 / 0

26.05.2019, 20:27

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

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

#39818482

__Michelle

Участник

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

Рейтинг: 0 / 0

Wawan2005Как я понял "ТС" - это вы про меня, а почему "ТС"??
Так сокращенно называют автора топика, темы - "ТопикСтартер", калька с английского.

Wawan2005ругается
Значит, Наименование - текстовое поле, нужны кавычки.

Код: vbnet

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

...

Рейтинг:

0 / 0

26.05.2019, 21:42

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

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

#39818492

Wawan2005

Гость

__MichelleЗначит, Наименование - текстовое поле, нужны кавычки.

не помогло

...

Рейтинг:

0 / 0

26.05.2019, 22:01

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

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

#39818494

vmag

Участник

Откуда: MP

Сообщения: 4 280

Рейтинг: 0 / 0

Wawan2005не помогло

Раз учиться не охота и некогда, Вам нужно немного отвлечься... ну например, пойти и поймать завтра пару - тройку преступников, всё ж майор полиции...

...

Рейтинг:

0 / 0

26.05.2019, 22:07

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

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

#39818495

Wawan2005

Гость

__Michelle,
Пишет
Ошибка синтаксиса (пропущен оператор) в выражении запроса
'Наименование = "РСПИ Струна-5 Б-5 GSM+".

...

Рейтинг:

0 / 0

26.05.2019, 22:10

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

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

все

Цитировать

Написать

Автор*:

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

Тема*:

Сообщение

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

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

Автор:

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

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

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

Вложение:

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

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

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

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

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

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

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

start [/forum/topic.php?fid=45&msg=39818250&tid=1610684]:	0ms
get settings:	10ms
get forum list:	13ms
check forum access:	3ms
check topic access:	3ms
track hit:	34ms
get topic data:	10ms
get forum data:	3ms
get page messages:	57ms
get tp. blocked users:	1ms
others:	15ms

total:	149ms