Модераторы: Akina

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> сделать выборку и вывести результаты 
:(
    Опции темы
Гость_DeathStorm
Дата 17.1.2006, 08:26 (ссылка)    |    (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered











сразу извиняюсь за такой ламерский вопрос, но очень нужно

ситуация такая есть таблица zakazi
zakazchik auto rasstoyanie stoimost_za_km
z123 101 100 2
z134 103 23 6
z156 101 25 3

есть форма: поля field1(общий километраж), field2 (общая стоимость),field3 (список на кого работал)
и выпадающий список, где указаны auto -(подстановка из таблицы)
при событии onChange надо сделать так чтобы сделалась выборка из таблицы, и сответственно заполнились поля

может кто нибудь, делал что-то подобное, если не затруднит, скиньте код, но ТОЛЬКО рабочий
  Вверх
Митрофан
Дата 17.1.2006, 09:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 20
Регистрация: 16.1.2006

Репутация: нет
Всего: нет



Создаёш фильтор можно в макросе с условием отбора указываеш поля со списком далие при возникновение onChange с тавиш выполнение данного макроса и всё работает
PM MAIL   Вверх
Гость_DeathStorm
Дата 17.1.2006, 09:23 (ссылка)    |    (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered











да дельный совет smile
а поподробнее можно, я же просил ПРИМЕР, да простят меня за назойливость, а что он и суммировать все будет автоматом?
и в поле записывать как строку?
З.Ы. Я же предупреждал что в vb я ламер, да и не нравится мне этот язык, если честно, синтакси у него ... не приведи Господь

  Вверх
Papirus
Дата 17.1.2006, 09:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 298
Регистрация: 19.4.2005
Где: Санкт-Петербург

Репутация: 2
Всего: 1



Цитата(Гость_DeathStorm @ 17.1.2006, 09:23 Найти цитируемый пост)

Я же предупреждал что в vb я ламер

ИМХО, как я понял задачу, можно и бехз программирования и макросов. В одиночную форму кидаешь поле со списком (выборка из таблицы авто). Добавляешь субформу. Источником записей делаешь запрос с группировкой, в котором критерием выборки будет значение поля со списком... Что-то типа
Код

Select zakazchik, Sum(rasstoyanie) As Probeg, Sum(stoimost_za_km*rasstoyanie) As Summa From zakazi
Where auto = Forms!MyForm.Combobox1
Group By zakazchik

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

PM MAIL ICQ   Вверх
Митрофан
Дата 17.1.2006, 09:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 20
Регистрация: 16.1.2006

Репутация: нет
Всего: нет



у тебя это на одной таблице или на двух
PM MAIL   Вверх
Гость_DeathStorm
Дата 17.1.2006, 10:09 (ссылка)    |    (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered











2Mitrofun
таблиц много, но данные надо с этой вытащить
  Вверх
Митрофан
Дата 17.1.2006, 10:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 20
Регистрация: 16.1.2006

Репутация: нет
Всего: нет



тогда делаем так создаем запрос с кодом
Код

Select zakazchik, Sum(rasstoyanie) As Probeg, Sum(stoimost_za_km*rasstoyanie) As Summa From zakazi
Where auto = Forms!1.поля9
Group By zakazchik

далие
на форме создаёш поля и не показываеш его пользователю на пример поля9
Код

Form_1.поля9 = Form_1.полясосписком4
Form_1.RecordSource = "имя запроса приведёного выше"

и всё.
Добавлено @ 10:28
это в выподающем списке
PM MAIL   Вверх
Гость_DeathStorm
Дата 17.1.2006, 11:15 (ссылка)    |    (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered











обработчик такой будет

суп паблик цццц_onChange()

myQ="Select zakazchik, S..... Where auto = Forms!1.полесосписком"
Form_1.RecordSource = "myQ" recordset запустит на выполнение запрос?

конец супа
или я бестолочь этакая, опять что-то не учел smile
  Вверх
Митрофан
Дата 17.1.2006, 11:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 20
Регистрация: 16.1.2006

Репутация: нет
Всего: нет



Цитата

Form_1.RecordSource = "myQ" recordset запустит на выполнение запрос?

обнавит значение полей но тут должны название полей совподать с названем столбцов в запросе а то с глючит
Цитата

myQ="Select zakazchik, S..... Where auto = Forms!1.полесосписком"
Form_1.RecordSource = "myQ" recordset запустит на выполнение запрос?

Данная штука будет рабоботать если измениш полесосписком на поля. Проста понемаеш после обнавление значение с полесосписком проподёт и выдаст глюк и по этому лудше скопировать значение в обычное поле и обработчик поставить после обновления
Код

Private Sub полесосписком_AfterUpdate()
Form_1.поля9 = Form_1.полесосписком
myQ="Select zakazchik, S..... Where auto = Forms!1.полесосписком"
Form_1.RecordSource = "myQ" recordset
End Sub

а лудше скажи своё мало я тибе скину рабочий вариант а то так можеш не понять smile

Это сообщение отредактировал(а) Митрофан - 17.1.2006, 11:32
PM MAIL   Вверх
Гость_deathstorm
Дата 17.1.2006, 11:44 (ссылка)    |    (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered











dstorm81[dog]mail.ru
буду премного благодарен

  Вверх
Митрофан
Дата 17.1.2006, 12:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 20
Регистрация: 16.1.2006

Репутация: нет
Всего: нет



отправил думаю разберёшся если что пеши на сайт а то мыло рабочие и просматривается
PM MAIL   Вверх
dstorm81
Дата 18.1.2006, 08:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


бездельник
***


Профиль
Группа: Завсегдатай
Сообщений: 1178
Регистрация: 18.1.2006
Где: (16RU)

Репутация: нет
Всего: 39



2 митрофан.
Спасибо за пример, классно работает, пытался на своей такое сделать
но к сожалению, полная лажа получается. (у меня цена за км и расстояние в разных бд лежат)
может можно как нибудь это одним модулем организовать, чтобы потом просто на действие привязать
может скинуть свою бд тебе, может уж добьешь до конца (извиняюсь за назойливость, просто ОЧЕНЬ НАДО)

Присоединённый файл ( Кол-во скачиваний: 5 )
Присоединённый файл  fucked_bd.rar 41,57 Kb


--------------------
на форуме с 8.12.2002 (http://forum.vingrad.ru/index.php?act=ST&f=10&t=4874&st=0#)

PM   Вверх
Papirus
Дата 18.1.2006, 09:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 298
Регистрация: 19.4.2005
Где: Санкт-Петербург

Репутация: 2
Всего: 1



Пардон за любопытство.
Ну и нафига было процы плодить? smile
PM MAIL ICQ   Вверх
dstorm81
Дата 18.1.2006, 09:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


бездельник
***


Профиль
Группа: Завсегдатай
Сообщений: 1178
Регистрация: 18.1.2006
Где: (16RU)

Репутация: нет
Всего: 39



2 papirus
что за процы


--------------------
на форуме с 8.12.2002 (http://forum.vingrad.ru/index.php?act=ST&f=10&t=4874&st=0#)

PM   Вверх
Papirus
Дата 18.1.2006, 09:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 298
Регистрация: 19.4.2005
Где: Санкт-Петербург

Репутация: 2
Всего: 1



Цитата(Митрофан @ 17.1.2006, 11:31 Найти цитируемый пост)

Private Sub полесосписком_AfterUpdate()
Form_1.поля9 = Form_1.полесосписком
myQ="Select zakazchik, S..... Where auto = Forms!1.полесосписком"
Form_1.RecordSource = "myQ" recordset
End Sub

Это и есть процедура обработки события. Можно конечно и так, а в некоторых случаях только так (например, если используется проект *.adp) Но здесь, имхо, все это лишнее.
Добавлено @ 10:00
Впрочем, от добра добра не ищут. Если уже все работает - нет смысла менять.
PM MAIL ICQ   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "MS Access"
Akina
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] и [code=sql][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | MS Access | Следующая тема »


 




[ Время генерации скрипта: 0.0758 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.