powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Проблема с ListBox на форме
4 сообщений из 4, страница 1 из 1
Проблема с ListBox на форме
    #32119591
немец
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Дело вот в чем:

Из списка фирм в форме (lstВыбор) при помощи DblClick выбирается одна искомая.
На следущей форме (frmГлавная), берущей данные из запроса qryЗапрос, есть помимо того ListBox, в которой высвечиваются один или несколько ответственных за работу: SELECT qryЗапрос. tblСотр.[st_Nr], [st_name], [st_tel], [st_mail];
Далее упрощенный код:

Private Sub lstВыбор_DblClick(Cancel As Integer)
Dim db As Database, qd As QueryDef
Dim s As String, aw As String
aw = Me.lstВыбор.Column(1)

s = "SELECT tblАдрес.ad_adr, tblАдрес.ad_zip…" и т. д.
s = s + " FROM (tblФирма LEFT JOIN tblСотр ON tblФирма.fi_Nr = tblСотр.st_Nr) LEFT JOIN tblАдрес ON tblФирма.fi_Nr = tblАдрес.ad_Nr"
s = s + " WHERE tblФирма.fi_name = " & "'" & aw & "'" & ";"

Set db = CurrentDb
Set qd = db.CreateQueryDef("qryЗапрос", s)

DoCmd.OpenForm ("frmГлавная")

Вопрос: как избавиться от постоянно высвечивающегося окошечка c вопросом о st_Nr?
В нем ничего не надо писать, нужно только на OK нажать, но лажа ведь!, извините за выражение!
...
Рейтинг: 0 / 0
Проблема с ListBox на форме
    #32119875
virtart
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Я бы сделал так:
1. Сделай источником записей frmГлавная запрос qryЗапрос с условием отбора [Forms].[frmГлавная].[firmName] на поле tblФирма.fi_name (тоже самое для ListBox)
2. Создай свободное поле firmName на форме frmГлавная
3.Вызывай
DoCmd.OpenForm frmГлавная,,,,,,aw
4. Обработчиком открытия формы
Private Sub Form_Open(Cancel As Integer)
firmName = Me.OpenArgs
End Sub

Прим. если бы не ListBox, то можно было бы просто
DoCmd.OpenForm frmГлавная,,,"tblФирма.fi_name = " & "'" & aw & "'"
и запрос qryЗапрос без параметров отбора.
...
Рейтинг: 0 / 0
Проблема с ListBox на форме
    #32120304
немец
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Дорогой virtart!
Большое спасибо за участие, но прошу меня, пожалуйста, извинить: я - не программист, мне это надо по работе, т.к. шеф и еще двое зависят в чем-то от моих данных; я, как ни крути, так и не разобрался:

Речь идет о двух формах:

frmВыбор с lstВыбор, где выбирается искомая контора, и

frmГлавная с перечислением данных и lstСотрудники на ней, из-за которой-то и весь сыр-бор.

Так на которой из них мне создать это самое „Hidden“-Поле для передачи аргумента?

Извините за вопросы, - я не программист!
...
Рейтинг: 0 / 0
Проблема с ListBox на форме
    #32121093
virtart
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Так на которой из них мне создать это самое „Hidden“-Поле для передачи аргумента?
см. п2

frmВыбор с lstВыбор, где выбирается искомая контора
На этой форме я так понимаю есть кнопка cmdShow "Показать". Обработчик ее нажатия:
Private Sub cmdShow_Click()
DoCmd.OpenForm frmГлавная,,,,,,Me.lstВыбор.Column(1)
End Sub

qryЗапрос у тебя в базе есть.
в поле tblФирма.fi_name сейчас стоит название какой-либо фирмы.
Поставь вместо нее строчку [Forms].[frmГлавная].[firmName].
Аналогично поступи с запросом для lstСотрудники
...
Рейтинг: 0 / 0
4 сообщений из 4, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Проблема с ListBox на форме
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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