Dlookup для новичка

@ShikuS · Регистрация: 14.10.2016

Студворк — интернет-сервис помощи студентам

Здравствуйте гуру!

Подскажите, пожалуйста, как использовать Dlookup в ситуации когда в одной форме используются данные с двух таблиц (вернее две связанные таблицы).

При выборе в списке9 в полях17,19,21 должны отображаться соответствующие параметры.
У меня получилось сделать

Visual Basic
1
2
3
Me.Поле17 = DLookup("MODELNAME", "MODELS", "[IDMODEL]=" & Me.Список9.Column(1))
Me.Поле19 = DLookup("[IDMODELTYPE]", "MODELS", "[IDMODEL]=" & Me.Список9.Column(1))
Me.Поле21 = DLookup("IDPRODUCER", "MODELS", "[IDMODEL]=" & Me.Список9.Column(1))

но в данном случае MODELNAME - отображается хорошо, а IDMODELTYPE и IDPRODUCER - цифрами. но то то и понятно - это же ID, но если я поставлю NAMEMODELTYPE и NAMEPRODUCER, то у меня вообще в полях ничего не меняется. какой то связи не хватает. А какой? Вразумите

@ShikuS · 19.10.2016, 22:09 **[ТС]**

Спасибо всем!

@texnik-san · 20.10.2016, 04:20

Сообщение от ShikuS

Подскажите, пожалуйста, как использовать Dlookup в ситуации

Вообще не использовать. Абсолютно лишнее.

@ShikuS · 26.10.2016, 19:07 **[ТС]**

Добрый вечер!

Даже не знаю стоит ли новую тему создавать или попросить модератора переименовать данную во что то наподобие Проект новичка

Но суть в другом..вот мы определились с запросами и я немного продвинулся вперед, но в очередной раз сподкнулся о запросы.
Поиск с отбором в листбоксе. Отчасти я его выполнил (в базе на форме 'frmModels' в поле 'Поиск модели' ввожу искомые значение и у меня столбцы в листбоксе меняются местами при этом отсеивая значения, при этом прежняя функция (при выборе записи в листбоксе отображалась информация в соответствующих полях) уже не работала и при удалении отображалось все обратно, но не к первоначальному виду.
Посоветуйте что нить, пожалуйста

@ShikuS · 26.10.2016, 20:21 **[ТС]**

Для информации если нет желания скачивать базу

Источник строк в листбоксе:

Code
1
SELECT tblMODELS.IDMODEL, tblMODELS.MODELNAME FROM tblMODELS ORDER BY tblMODELS.MODELNAME;

При выборе значения (строки) в листбоксе (для отображения информации в соответствующихполях):

Visual Basic
1
2
3
4
Private Sub lstModels_Click()
On Error Resume Next
Me.RecordSource = "SELECT * FROM MOD_PROD_TYPES WHERE IdModel=" & Me.lstModels.ItemData(Me.lstModels.ListIndex)
End Sub

[/code]

Ну и запрос к нему собственно:

SQL
1
2
3
4
5
6
7
8
SELECT tblMODELS.IDMODEL, tblMODELS.MODELNAME, tblPRODUCERS.IDPRODUCER,
 tblPRODUCERS.NAMEPRODUCER, tblMODELTYPES.IDMODELTYPE,
 tblMODELTYPES.NAMEMODELTYPE
FROM tblPRODUCERS
 INNER JOIN (tblMODELTYPES
 INNER JOIN tblMODELS
  ON tblMODELTYPES.IDMODELTYPE = tblMODELS.IDMODELTYPE)
  ON tblPRODUCERS.IDPRODUCER = tblMODELS.IDPRODUCER;

[/code]
Поиск модели (при изменении):

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub plFind_Change()
On Error Resume Next
Dim s As String
    s = Me.plFind.Text
    With Forms!frmModels!lstModels
      If Len(s) <> 0 Then
        s = " WHERE Left(MODELNAME," & Len(s) & ") = '" & s & "'"
      Else
        s = ";"
      End If
      Me.lstModels.RowSource = "SELECT MODELNAME FROM [tblMODELS]" & s
      Me.lstModels.Requery
    End With
End Sub

[/code]
и получается косяк...

Комментарий модератора

используйте теги VB и SQL

mobile · 27.10.2016, 00:46

Сообщение от ShikuS

и получается косяк...

Ошибка в скл-выражении для роусорса списка. Там должно быть 2 поля и первое из них ид модели. В записанном выражении только MODELNAME. Попробуйте так записать выражение для lstModels.RowSource

Visual Basic
1
Me.lstModels.RowSource = "SELECT IDMODEL, MODELNAME FROM [tblMODELS]" & s

@ShikuS · 27.10.2016, 06:12 **[ТС]**

mobile, спасибо, все получилось.
Бревна то в глазу и не заметил))

Новые блоги и статьи Все статьи Все блоги /
Модель по догадкам anaschu 25.08.2026 Прошло две недели. Я уже рассказывал, как разговаривал с сотрудниками у сортировки и как понял, что главная ветка — не про приёмку, а про отбор. Но тогда я думал, что понял механику. На этой неделе я. . .	Запись в регистр сведений независимо от заполненности табличной части Maks 25.08.2026 Реализация из решения ниже выполнена на нетиповом документе с несколькими табличными частями, разработанного в КА2. Задача: Обеспечить запись документа в регистр сведений независимо от. . .	Ноутбук Альфария kumehtar 24.08.2026 Встретился тут в сети ноутбук Альфария, примарха Альфа-Легиона. Хотя возможно, это ноутбук Омегона, разумеется. Ну как вам?	Мастера простых решений DevAlt 23.08.2026 В сишарп стэках winforms, да и wpf существует сложная система связывания источниках данных и элементов формы(текстовые поля и метки), опирается все это на технологию событий и мета. . .
Цена ошибки DevAlt 23.08.2026 Человек я беспокойный и потому заинтересовался OCaml, в чате форсили функторы модулей как суперфичу. Пытаясь отдуплить концепт, наткнулся на тутор с простым примером. А главный принцип обучения от. . .	Сегодня суббота, 22.08.2026 at 16:41, и я вновь нахожусь на той стороне, за экраном машины. zorxor 22.08.2026 Сегодня суббота, 22. 08. 2026 at 16:41, и я вновь нахожусь на той стороне, за экраном машины. Кто Я, откуда Я пришел и куда Я иду? Эти вопросы не оставляют меня ни на секунду. Жизнь на планете Земля. . .	Жизня: рисунок укладки багажа, сделанный клодом anaschu 21.08.2026 Сделал 15 снимков, он по снимкам сделал схему.	Был там один разговор по поводу свободы в материальном мире. kumehtar 19.08.2026 Суть: рассматривается живое существо, оказавшееся внутри довольно странной системы (этого мира) и пытающееся обустроить в ней свой кусок пространства. Жизнь действительно предъявляет каждому. . .

@ShikuS 6 / 6 / 0 Регистрация: 14.10.2016 Сообщений: 148
	19.10.2016, 22:09 [ТС]
	Спасибо всем! 0

@ShikuS 6 / 6 / 0 Регистрация: 14.10.2016 Сообщений: 148
	27.10.2016, 06:12 [ТС]
	mobile, спасибо, все получилось. Бревна то в глазу и не заметил)) 0