powered by simpleCommunicator - 2.0.31     © 2024 Programmizd 02
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Табель учёта рабочего времени
25 сообщений из 46, страница 1 из 2
Табель учёта рабочего времени
    #39389005
Фотография Лапух
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Всем божественным злыдням здравия во все органы.
Так как я практически только начинающий и многих моментов не знаю, то попрошу великознающих богов Access помочь в оптимизации процедур, а именно:
Идя по наипростейшему пути у подформ в источнике записей прописал в запросе что есть сей день, типа суббота или воскресенье, для визуального ублажения глаз и выдедения сих дней розовеньким цветом.
И т. к. трудностей и нудной работы не особо боюсь, то написал и копировал процедурки с изменениями имен полей немеряно.
Осознаю, что это не камильфо и возможно оптимизировать сей момент, но не знаю как, т. к. опыта и знаниёф не хватает.
А т. к. по слухам сей достославный подраздел форума много лет назад славился частым присутствием множества Богов в Access, то если не трудно подмочь мне, всему такому несовершенному и обрести более изощьренную способность в написании процедур, то слёзно прошу не отказать в обретении счастья и успокоения души.
...
Рейтинг: 0 / 0
Табель учёта рабочего времени
    #39389013
Фотография Лапух
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Видимо слухи так и остались слухами и мистическими сказками, а не истинными былинами.
А гонору то от неких, яко бы всемогущих богов было, аж - необеримо.
Я даже почти искренне поверил.
Похоже придется другой, более достославный форум пытать.
...
Рейтинг: 0 / 0
Табель учёта рабочего времени
    #39389027
guest_rusimport
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Лапух,
один момент (со многими IF) я бы упростил ... (к богам не имею никакого отношения )))))
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
  For j = 0 To Me.Form.Controls.Count - 1
    If Len(Me.Form.Controls(j).Name) >= 3 And InStr(1, Right(Me.Form.Controls(j).Name, 2), "ДН") > 0 Then
        Debug.Print Me.Form.Controls(j).Name
        If Me.Controls(j).Value = "Сб" Or Me.Controls(j).Value = "Вс" Then
           Me.Controls(j).BackColor = RGB(255, 217, 236)
        Else
           Me.Controls(j).BackColor = RGB(255, 255, 217)
        End If
    End If
  Next j
...
Рейтинг: 0 / 0
Табель учёта рабочего времени
    #39389030
Фотография Лапух
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
guest_rusimport, спасибо, щас буду пробовать и вникать.
Лично вас не причисляю к Богам, присляю к - Святым Духам.
...
Рейтинг: 0 / 0
Табель учёта рабочего времени
    #39389040
Фотография Лапух
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
guest_rusimport,
ага вот уже из планшета добрался до ноута, тыкаюсь, но ни чё не пойму, в куда совавть?
Можно ли для меня всего такого плохиша-неумёхи по подробнее и пошаговее, а то у меня чёй та ни чего не взлетает. (тем более сёдня немного побухиваю). а приспичило ну прям счас.
Если ни разу так не делал. то по любому недопонятки возникають.
...
Рейтинг: 0 / 0
Табель учёта рабочего времени
    #39389083
Predeclared
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ну так, например:
...
Рейтинг: 0 / 0
Табель учёта рабочего времени
    #39389154
Фотография Лапух
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
guest_rusimport,
Вроде я пришел в себя и собрался в кучку.
Применил ваш код.
Все правильно работает, но почему то при переходе по месяцам, как то моргать и немного притормаживать начало.
Это не принципмально, но хотелось бы уяснить для себя - Так и должно быть?
Еще раз Большое Спасибо , вы Лучший!!!

Predeclared, Спасибо за пример, но я ваще чего то там ни чего не пойму.
Можно ли небольшой комментарий, что бы даже я понял?
...
Рейтинг: 0 / 0
Табель учёта рабочего времени
    #39389174
Фотография vmag
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Лапух Predeclared, Спасибо за пример, но я ваще чего то там ни чего не пойму.

атомный двигатель на твою телегу...
бегунком подвигай...
в лоб тебе не подойдет, но принцип можно понять...
...
Рейтинг: 0 / 0
Табель учёта рабочего времени
    #39389178
Фотография Лапух
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
vmag,
Ну да согласен, немного похоже на атомный реактор.
Хоть пока и не знаю как ЭТО можно реально применить, но однозначно сохраню в закромах.
Авось когда ни то и озарит.
Частенько ранее казалось бы не нужные примерчики пригождались и всплывали через несколько лет.

Вот теперь бы кто подсказал на примере как запросик оптимизировать, а то хоть я и хорахорюсь выпячиваю грудь, что не лентяй. но всё таки хоть 1 раз в жизни, но было довольно нудно изобретать уже кем то наверняка изобретенное.
...
Рейтинг: 0 / 0
Табель учёта рабочего времени
    #39389182
guest_rusimport
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Лапух guest_rusimport,
Вроде я пришел в себя и собрался в кучку.
Применил ваш код.
Все правильно работает, но почему то при переходе по месяцам, как то моргать и немного притормаживать начало.
Это не принципмально, но хотелось бы уяснить для себя - Так и должно быть?
Еще раз Большое Спасибо , вы Лучший!!!

Predeclared, Спасибо за пример, но я ваще чего то там ни чего не пойму.
Можно ли небольшой комментарий, что бы даже я понял?
не, мне до уважаемого Predeclared далеко, я так классами играть не умею, так что вы присмотритесь внимательней к его примеру, очень красиво...
...
Рейтинг: 0 / 0
Табель учёта рабочего времени
    #39389187
Фотография Лапух
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
guest_rusimport,
Ого круто.
Благодарю, беру на вооружение.
Глазом тормоза почти и не заметить если специально не присматриваться.
...
Рейтинг: 0 / 0
Табель учёта рабочего времени
    #39389197
guest_rusimport
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Лапух guest_rusimport,
Ого круто.
Благодарю, беру на вооружение.
Глазом тормоза почти и не заметить если специально не присматриваться.
Вы поменьше рефрешьте формы, а то у вас это делается и когда надо и когда не надо ))))
...
Рейтинг: 0 / 0
Табель учёта рабочего времени
    #39389199
Фотография Лапух
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
guest_rusimport,
Ну да, есть у меня такой грешок, учту.
Спасибо за науку.
...
Рейтинг: 0 / 0
Период между сообщениями больше года.
Табель учёта рабочего времени
    #39946900
Фотография kniga
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Predeclared
Ну так, например:


Пример (Ex5) почти идеально подошел к моему табелю, спасибо!

Можно попросить, если не хлопотно, подправить код, чтобы подсветка работала при выборе даты не из свободного поля, а из полей со списком? Прокрутку можно не учитывать, я ее не использовал в своем табеле.
Я добавил эти комбо, пробовал сам, но творить это не собирать ), не тяну.
...
Рейтинг: 0 / 0
Табель учёта рабочего времени
    #39946923
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
посмотрите это-может чё подойдет
(все привязано к тек.дате,а пример делался давно,так что корректная работа исключается. Но принципы остаются-если есть желание попытайтесь разобраться)
...
Рейтинг: 0 / 0
Табель учёта рабочего времени
    #39946946
Фотография kniga
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
sdku,

да, интересный вариант, подсвечиваются поля не только в заголовках, спасибо! Буду пробовать )
...
Рейтинг: 0 / 0
Табель учёта рабочего времени
    #39946973
Фотография kniga
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
sdku,

почти идеально получается )) опять почти..
Я удалил неиспользуемые элементы и код, оставил только, что касается подсветки; сделал загрузку по текущему месяцу и году - табель отображается как надо.
Вот теперь как сделать, чтобы при смене месяца и года, вместо нажатия кнопки, табель обновлялся? Me.Requery на комбо с годом и мес не срабатывает (
Как бы в дальнейшем кнопку не хотелось использовать.
...
Рейтинг: 0 / 0
Табель учёта рабочего времени
    #39947020
Фотография kniga
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
sdku,
повесил код, который на кнопку, на события AfterUpdate полей со списком и все получилось )) Спасибо за пример, можно теперь примерять к своей БД
...
Рейтинг: 0 / 0
Табель учёта рабочего времени
    #39947022
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
kniga,
попробуйте: обработку события CLICK преобразовать в процедуру SUB и вызывать её при AfterUpdate нужного поля
...
Рейтинг: 0 / 0
Табель учёта рабочего времени
    #39947024
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
пока писал Вы все решили-опоздал
...
Рейтинг: 0 / 0
Табель учёта рабочего времени
    #39947338
Фотография kniga
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
sdku,

авторпопробуйте: обработку события CLICK преобразовать в процедуру SUB и вызывать её при AfterUpdate нужного поля - спасибо за совет )

А вот такой вопрос: в чем преимущество нахождения формы "табель" как подчиненной? Нельзя ли поля "год" и "месяц" расположить прямо в заголовке формы "табель" и тогда будет всего одна форма?
...
Рейтинг: 0 / 0
Табель учёта рабочего времени
    #39947383
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
kniga,
Все зависит от того какие цели Вы преследуете создавая эту БД.При одной логике работы БД поля для ввода критериев отбора вполне возможно размещать в заголовке ленточной формы,при другой форма должна быть подчиненной-решение за Вами
(использование подчиненной формы нельзя назвать преимуществом или недостатком-правильнее сказать необходимость-есть задачи которые не возможно/сложно решить не сделав форму подчиненной)
...
Рейтинг: 0 / 0
Табель учёта рабочего времени
    #39948262
Фотография kniga
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
sdku,

ясно, спасибо. Подскажите, пж, в Вашей БД имена полей "год" и "месяц" в тбл. Табель совпадают с именами Полей со списком на форме. Это так надо? Я пытался поменять имена полей комбо, но код переставал работать..
...
Рейтинг: 0 / 0
Табель учёта рабочего времени
    #39948437
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Имена полей в форме наследуют(если Вы их перетаскиваете в конструкторе из списка полей)имена полей таблицы.
Изменять имена любого элемента управления надо не только в форме,но и в коде
Имена полей можно задавать любые,соответствующие "соглашению" об именах (см.справку)
...
Рейтинг: 0 / 0
Табель учёта рабочего времени
    #39948439
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
И, естессно, на форме не должно быть одинаковых имен ([мес] и [месяц] это разные имена)
...
Рейтинг: 0 / 0
25 сообщений из 46, страница 1 из 2
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Табель учёта рабочего времени
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]