Открытие разделенной формы с условием(фильтрация), разное!

@Scrat2005 · Регистрация: 04.01.2017

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

Доброго времени суток! В очередной раз обращаюсь к Вам.
Не пойму почему не работает фильтр. Вернее фильтр работает, когда ему захочется....

фМенеджерыВвод-кнопка"ЗадачиОтДиректора"-открывается frmZadachaMgr(вернее она должна открыться отфильтрованная).

На работе такая же БД фильтруется. Дома, эта БД вчерашняя не хочет фильтроваться напрочь....
Такое ощущение, что какой-то хвост остался от чего-то...

в свойстве формы frmZadachaMgr "ФИЛЬТР" - иногда пропадает прописанный мной фильтр.
прописал фильтр на Загрузку....похоже не работает.
Делаю компиляцию, ошибок не дает....А как еще проверить не знаю...

Гляньте плиз мой "шедевральный"))) код, если есть время. БАзу прилагаю...
П.С. Примеры фильтров брал здесь...
Заранее благодарен за отклик!

Попутно задам вопросы:
1. существует ли какая-то возможность запускать БД, ээээээ как бы правильно выразиться........с чистого листа что ли? типа очищается кэш, очищаются переменные что ли.....?

2. дайте подсказку на срабатывание событие ЗадачиОтДиректора.В принципе он у меня срабатывает, когда наступает ДАТА, выскакивает окошко сообщения: Тема-Дата-Менеджер. Но есть нюанс. Оно срабатывает для всех сразу.
Опять получается нужен фильтр...чтобы для каждого менеджера свое событие срабатывало. Функция DWORK при загрузке ГЛАВНАЯ...ВозМожно ли сделать чтобы мигала кнопка "Задачи от Директора" на форме "МенеджерыВвод" при наступлении события?.

3. полеСоСписком Сотрудники(Код,ФИО).В гл.таблицу пишется код, а как еще и ФИО записывать???

4. Как сделать UPDATE поля в таблице правильно.Например: мне надо поменять все Менеджер05 на Менеджер07...?

5. Импорт из Екселя. На что обратить внимание? Как импортировать правильно дату....??? Примеров нашел кучу, у каждого свои заморочки...Хочется услышать Ваше мнение...
...

shanemac51 · 05.05.2017, 21:27

у вас с модулях нет строки Option Explicit и On Error Resume Next через строчку
поэтому вы ошибок не видите, а о компиляции и не думали

я подправила 10-15 мест(до-объявила или исправила опечатку ) и бросила

------------
лень стало, как и вам --но это ваша задача, все должно быть объявлено и проверено

@Scrat2005 · 06.05.2017, 11:56 **[ТС]**

shanemac51, Добрый день, с наступающим праздником Победы! Блин, ну я как не специалист, честно говоря даже и не знал о таких тонкостях. А On Error Resume Next через строчку написан или надо писать через строчку...???
Да! Вы абсолютно правы - это моя ЗАДАЧА, проверять и объявлять...

@alvk · 07.05.2017, 02:28

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

А On Error Resume Next через строчку написан или надо писать через строчку...???

вы явно не на VBA пишите, в VBA он работает до end sub

@Scrat2005 · 07.05.2017, 11:11 **[ТС]**

alvk, Добрый день! Вы можете мне популярно объяснить? Без всяких понтов.
Напишите как должно быть...
Вот код, On Error Resume Next через строчку, так должно быть?

PureBasic
1
2
3
4
5
6
7
8
9
10
Option Compare Database
Option Explicit
 
Private Sub btnClose_Click()
 
On Error Resume Next
 
'DoCmd.Close acForm, "frmInvisible"
DoCmd.Close
End Sub

Тема закрыта. Модератор удалите тему, даже если это невозможно...Чтобы народ не отвлекался, а то я не туда обратился похоже, потому как не в ВБА пишу.

@Eugene-LS · 07.05.2017, 12:00

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

Вы можете мне популярно объяснить? Без всяких понтов.

Попробую ... (без понтов)

Visual Basic
1
On Error Resume Next

Можно перевести на человеческий так:
Если возникнут ошибки выполнения кода - не обращай на них внимания и исполняй код дальше.

Вот и объясните мне пожалуйста, - что эта команда делает в приведённой выше процедуре?
Какая ошибка может возникнуть при тупом закрытии формы?
После которого конец процедуры ...

@Scrat2005 · 07.05.2017, 12:23 **[ТС]**

Я знал, что означает это командаEugene-LS, но я не знал, что его надо в коде писать через строчку.
Про Option Explicit я тоже не знал, пока мне Шанемак не указала...
этот Option Explicit при создании процедуры автоматом появлялся, и я как-то не обращал внимания на это. А сейчас смотрю, он автоматом не появляется...Я не знаю почему. Что и где я изменил без понятия....
Вот везде прописал, затем сделал компиле, вроде ошибок нет...
Почему Option Explicit перестал появляться автоматом можете подсказать? Где и что мне проверить? Может в Туулс надо какую-нить библиотеку добавить или наоборот удалить...

Добавлено через 9 минут
и еще вопрос вдогонку....
В каком месте процедуры мне прописывать очистку переменных.
a = "", set a = Nothing кажется так пишется...
вчера заметил, что предыдущая переменная с ФИО болталась. Хотя я уже другую процедуру запустил, она выдала ошибку. И то я увидел только когда водил мышкой по коду...))))))Так бы и не заметил.
Получается после отработки процедуры надо очищать переменную....
А мне пришлось перезапустить БД.

@Eugene-LS · 07.05.2017, 12:34

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

А сейчас смотрю, он автоматом не появляется...Я не знаю почему.

В настройках VBE "галочку" поставьте и будет ... .

@Capi · 07.05.2017, 12:42

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

Я знал, что означает это команда, но я не знал, что его надо в коде писать через строчку.

Как раз не надо, это shanemac51 неясно выразилась, и смысл поменялся на противоположный.

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

В каком месте процедуры мне прописывать очистку переменных.
a = "", set a = Nothing кажется так пишется...

Переменные "очищать" не надо.
Nothing - это для объектов.

Добавлено через 2 минуты

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

я не туда обратился похоже, потому как не в ВБА пишу

Вот это непонятно.
Или Вас запутали и Вы решили всех запутать?

shanemac51 · 07.05.2017, 12:59

видимо у вас снята галочка в параметрах--обязательное объявление переменных
поэтому все переменные считаются правильными, которым не присвоено значение --автоматически присваивается NULL
естественно при неприсвоенніх значениях(у вас ошибка в имени для пароля) --у вас неправильно работает логика программы

on error я сначала не ставлю , чтобы видеть все ошибки, добавляю по необходимости и после того, как проверю код на работоспособность(некоторые ситуации требуют этой строки, чтобы пропустить, обычно они не влияют на логику, например перейти на следующую запись находясь на последней)

никогда не ставлю в процедуры, где открывается форма/отчет --никогда не отловлю, почему не открываются или надо добавлять не только он on error но и полный цикл строк типа

Visual Basic
1
2
3
4
5
6
private sub knopka23_click()
on error goto err00
docmd.openform "некое имя",....
exit sub
err00:msgbox "форма некое имя -- не найдена или другие проблемы " & err.number & " " & err.description
end sub

у вас же везде пустое on error --команда аксессу пропусти ошибку, но мне ничего не говори

@Scrat2005 · 07.05.2017, 13:31 **[ТС]**

Спасибо друзья! КОШМАР!!! Вы из меня программера скоро сделаете...
shanemac51, Я в шоке....лучше бы я этого не знал....))))

@Scrat2005 · 07.05.2017, 13:35 **[ТС]**

Eugene-LS, Спасибо! Да галочка не стояла...Не пойму как я его отжал))))Я туда ваще не лузу вроде)))
Вернул галочку на место...

@Scrat2005 · 07.05.2017, 13:44 **[ТС]**

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

Вот это непонятно.
Или Вас запутали и Вы решили всех запутать?

не обращайте внимания, мысли вслух...)))

Добавлено через 7 минут

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

Как раз не надо, это shanemac51 неясно выразилась, и смысл поменялся на противоположный

А ошибки теперь не будет? А то я везде в таком виде сделал:

PureBasic
1
2
3
4
5
6
7
8
9
10
Option Compare Database
Option Explicit
 
Private Sub btnClose_Click()
 
On Error Resume Next
 
'DoCmd.Close acForm, "frmInvisible"
DoCmd.Close
End Sub

@Eugene-LS · 07.05.2017, 14:11

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

А ошибки теперь не будет?

Название формы которую вы закрываете и указывать не обязательно ...
Я бы написал так:

Visual Basic
1
2
3
Private Sub btnClose_Click()
 DoCmd.Close acForm, Me.Name 'Закрытие текущей формы
End Sub

И всё ...
А можно и одной строчкой :

Visual Basic
1
Private Sub btnClose_Click(): DoCmd.Close acForm, Me.Name 'Закрытие текущей формы: End Sub

И никаких излишеств!

shanemac51 · 07.05.2017, 15:33

Visual Basic
1
Private Sub btnClose_Click(): DoCmd.Close acForm, Me.Name 'Закрытие текущей формы: End Sub

никогда так не пишу, не объединяю операторы через двоеточие

полнейшая нечитабельность ради 2-3 строк

только

Visual Basic
1
2
3
Private Sub btnClose_Click() 
DoCmd.Close acForm, Me.Name 'Закрытие текущей формы
End Sub

@Eugene-LS · 07.05.2017, 15:55

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

никогда так не пишу, не объединяю операторы через двоеточие

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

Visual Basic
1
2
3
4
5
6
7
8
9
GetData_Bye:
    On Error Resume Next
    rst.Close: Set rst = Nothing
    con.Close: Set con = Nothing
    Exit Function
 
GetData_Err:
    GetData = vDefault: Err.Clear: Resume GetData_Bye
End Function

И на мой взгляд - вполне нормально выглядит. А чего лишние строки плодить когда их и так тысячи ...
И наоборот в нетривиальных и заковыристых кусках - всё расставляю красиво и комментами, что бы самому (через год -два) понять чего наворотил - то.

Новые блоги и статьи Все статьи Все блоги /
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ
Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .	Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .

shanemac51 Модератор 12231 / 5078 / 814 Регистрация: 07.08.2010 Сообщений: 14,941 Записей в блоге: 4
	05.05.2017, 21:27
	у вас с модулях нет строки Option Explicit и On Error Resume Next через строчку поэтому вы ошибок не видите, а о компиляции и не думали я подправила 10-15 мест(до-объявила или исправила опечатку ) и бросила ------------ лень стало, как и вам --но это ваша задача, все должно быть объявлено и проверено 2

@Scrat2005 2 / 2 / 1 Регистрация: 04.01.2017 Сообщений: 166
	06.05.2017, 11:56 [ТС]
	shanemac51, Добрый день, с наступающим праздником Победы! Блин, ну я как не специалист, честно говоря даже и не знал о таких тонкостях. А On Error Resume Next через строчку написан или надо писать через строчку...??? Да! Вы абсолютно правы - это моя ЗАДАЧА, проверять и объявлять... 0

@Scrat2005 2 / 2 / 1 Регистрация: 04.01.2017 Сообщений: 166
	07.05.2017, 12:23 [ТС]
	Я знал, что означает это командаEugene-LS, но я не знал, что его надо в коде писать через строчку. Про Option Explicit я тоже не знал, пока мне Шанемак не указала... этот Option Explicit при создании процедуры автоматом появлялся, и я как-то не обращал внимания на это. А сейчас смотрю, он автоматом не появляется...Я не знаю почему. Что и где я изменил без понятия.... Вот везде прописал, затем сделал компиле, вроде ошибок нет... Почему Option Explicit перестал появляться автоматом можете подсказать? Где и что мне проверить? Может в Туулс надо какую-нить библиотеку добавить или наоборот удалить... Добавлено через 9 минут и еще вопрос вдогонку.... В каком месте процедуры мне прописывать очистку переменных. a = "", set a = Nothing кажется так пишется... вчера заметил, что предыдущая переменная с ФИО болталась. Хотя я уже другую процедуру запустил, она выдала ошибку. И то я увидел только когда водил мышкой по коду...))))))Так бы и не заметил. Получается после отработки процедуры надо очищать переменную.... А мне пришлось перезапустить БД. 0

@Scrat2005 2 / 2 / 1 Регистрация: 04.01.2017 Сообщений: 166
	07.05.2017, 13:31 [ТС]
	Спасибо друзья! КОШМАР!!! Вы из меня программера скоро сделаете... shanemac51, Я в шоке....лучше бы я этого не знал....)))) 0

@Scrat2005 2 / 2 / 1 Регистрация: 04.01.2017 Сообщений: 166
	07.05.2017, 13:35 [ТС]
	Eugene-LS, Спасибо! Да галочка не стояла...Не пойму как я его отжал))))Я туда ваще не лузу вроде))) Вернул галочку на место... Миниатюры 0