|
|
|
Проблема с ListBox на форме
|
|||
|---|---|---|---|
|
#18+
Дело вот в чем: Из списка фирм в форме (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 нажать, но лажа ведь!, извините за выражение! ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 13.03.2003, 17:31 |
|
||
|
Проблема с ListBox на форме
|
|||
|---|---|---|---|
|
#18+
Я бы сделал так: 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Запрос без параметров отбора. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 14.03.2003, 09:47 |
|
||
|
Проблема с ListBox на форме
|
|||
|---|---|---|---|
|
#18+
Дорогой virtart! Большое спасибо за участие, но прошу меня, пожалуйста, извинить: я - не программист, мне это надо по работе, т.к. шеф и еще двое зависят в чем-то от моих данных; я, как ни крути, так и не разобрался: Речь идет о двух формах: frmВыбор с lstВыбор, где выбирается искомая контора, и frmГлавная с перечислением данных и lstСотрудники на ней, из-за которой-то и весь сыр-бор. Так на которой из них мне создать это самое „Hidden“-Поле для передачи аргумента? Извините за вопросы, - я не программист! ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 14.03.2003, 15:48 |
|
||
|
Проблема с ListBox на форме
|
|||
|---|---|---|---|
|
#18+
Так на которой из них мне создать это самое „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Сотрудники ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 17.03.2003, 13:27 |
|
||
|
|

start [/forum/topic.php?fid=45&fpage=1817&tid=1682093]: |
0ms |
get settings: |
9ms |
get forum list: |
19ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
42ms |
get topic data: |
12ms |
get forum data: |
3ms |
get page messages: |
40ms |
get tp. blocked users: |
2ms |
| others: | 224ms |
| total: | 359ms |

| 0 / 0 |
