| |
|
|
| | Есть форма, на ней 100 кнопок, обозначающих полки с товарами.
Нужно, чтобы, когда курсор находится над кнопкой, в списке на форме показывались товары, соответствующие этой полке, а при нажатии - открывалась форма с редактированием. Как это сделать?
(есть 3 таблицы: товары(код, название, описание, кодгруппы,кодполки,количество), группа товаров, полка). | |
| |
| |
| |
|
|
| | Офигеть!!! 100 кнопок на форме. Их остается только раскрасить в черные и белые цвета поочереди и называть форму роялем .Реализация - полный ацтой!!!
Логичнее сделать список ( а лучше несколько ) в которм находятся номера полок и по выбору из списка выводить записи.
Ну если хотите мучаться - то пожалуйста...
На событие моусмув кнопки меняйте роусорс вашего списка.
На событие клик кнопки открывайте форму и задавайте соответствующий рекордсоурс формы.
Можете выложить сюда вашу базу - на примере 1 кнопки покажу реализацию. | |
| |
| |
| |
 36 Кб. |
|
| | Конечно это было бы логичней, но требуется именно так - схематичное расположение полок(палето-мест) на складе...
заранее огромное спасибо | |
| |
| |
| |
39 Кб. |
|
| | Как вариант.
Возможно кто-то предложит лучшее решение. ( Мне не нравится обработка флагов firstime)
Но к вечеру голова уже не соображает | |
| |
| |
| |
40 Кб. |
|
| | Еще и ошибок наделал... Все пора домой | |
| |
| |
| |
|
|
| | Спасибо большое! Пошёл разбираться :)
----------
хм, в таком случае код разрастается до безумия - нужно прописывать на все кнопки firsttimeXX=true (кроме одного) для каждой кнопки... можно ли это как-нибудь по-другому решить? | |
| |
| |
| |
|
|
| | Я бы реализовал это по другому:
При клике на кнопку меяется список товаров . Рядом со списком повесить кнопку "Редактировать" и при клике на нее открывалась бы форма для редактирования.
Тогда код можно реализовать с помощью одной функции. А ее уже вызывать при клике на каждую кнопку. | |
| |
| |
| |
|
|
| | А как с запросами?
И как будет выглядеть эта функция? | |
| |
| |
| |
38 Кб. |
|
| | См комментарии в модуле1 | |
| |
| |
| |
|
|
| | Клёво! огромное спасибо, теперь понятно.
Осталось разобраться, как вызывать нужную запись через редактирование :) и выложу готовую програмку сюда. | |
| |
| |
| |
71 Кб. |
|
| | Теперь проблемы с выгрузкой в excel... | |
| |
| |
| |
|
|
| | Предложение: Если заменить кнопки группой переключателей (с видом кнопок), то не придется писать код обработки события для каждой отдельной кнопки, достаточно будет одного события AfterUpdate для группы, например:
Dim strFiltr As String
strFiltr = "Поле=" & Me.grpBox
DoCmd.OpenForm "frmSt", , , strFiltr
Me.grpBox = 0 | |
| |
| |
| |
|
|
| | У вас идет неправильное обращение к объектам Экселя. Обращайтесь к ним через объект экселя, созданный вами в приложении Аксесса. | |
| |
| |
