источник записи в форме...с критерием WHERE

@Kvins · Регистрация: 24.07.2009

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

Доброго времени суток!

Народ, вообщем суть проблемы такая, есть форма(frmDetaliNaRemontTovara), на которой имеется подформа(sbfrmKomponenty), источник записей sbfrmKomponenty, установлен из запроса qryKomponenty, а источник главной формы пока не трогаю))), . На главной форме создаю поле (poleneispravnost), это поле находиться в tblTehnika, так вот когда я прописываю путь источника данных главной формы и ставлю равным tblTehnika, с полем нет никаких проблем, когда я заношу данные в это поле, данные соответственно находяться в tblTehnika. Но это меня мало устраивает, т.к я еще использую рекордсет с добовлением записей во вторую открытую форму frmDetaling.

в источнике пытался создать запрос:

SQL
1
2
3
SELECT tblTehnikaVRemont.КодТехники, tblTehnikaVRemont.КодКомпонента, tblTehnikaVRemont.Количество, tblTehnikaVRemont.Количество, tblTehnika.ВыявленнаяНеисправность
FROM tblTehnika INNER JOIN tblTehnikaVRemont ON tblTehnika.КодТехники = tblTehnikaVRemont.КодТехники
WHERE (((tblTehnikaVRemont.КодТехники)=[Me]![polekodtehniki]));

не выхоит(((
С корректируйте пожалуйста мой запрос, чтоб данные вносимые в poleneispravnost, присваивались бы в таблицу tblTehnika, с текущей техникой. Ниже размещаю пример БД

Зарание благодарен!!!

@BasicMan · 12.10.2009, 11:36

вместо Ме нужно указывать полное имя формы

@Kvins · 12.10.2009, 11:57 **[ТС]**

увы((( но, не то! всеравно вылетает окошко "Введите значение параметра", polekodtehniki

Добавлено через 3 минуты

SQL
1
2
3
SELECT tblTehnika.КодТехники, tblTehnika.ВыявленнаяНеисправность
FROM tblTehnika INNER JOIN tblTehnikaVRemont ON tblTehnika.КодТехники = tblTehnikaVRemont.КодТехники
WHERE (((tblTehnika.КодТехники)="poleneispravnost"));

вот изменил, в вышеупомянутом коде были лишние поля))), я тот код брал из рекордсета:

Добавлено через 3 минуты

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
strSQL = "SELECT tblTehnikaVRemont.КодТехники, tblTehnikaVRemont.КодКомпонента,tblTehnikaVRemont.Количество," & _
         "tblTehnikaVRemont.Количество FROM tblTehnikaVRemont where [КодТехники]= " & Me!polekodtehniki
         Set RstX = New ADODB.Recordset
         RstX.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
         RstX.Fields("КодТехники") = Me("polekodtehniki")
         RstX.Fields("КодКомпонента") = Me("polekodkomponenta")
         RstX.Fields("Количество") = Me("polekolvo")
         RstX.Update
         RstX.Close
         Set RstX = Nothing
         Me.polekolvo.Value = 0

может стоит, как-то мона внедрить тот критерий в рекордсет, и не трогать источник записи главной формы?!

@BasicMan · 12.10.2009, 12:00

1.

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

"poleneispravnost"

это чо?
2. как форма называется?

Добавлено через 1 минуту

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

ADODB

SQL Server?
где об этом сказано в посте #1 ?

@Kvins · 12.10.2009, 12:00 **[ТС]**

Сообщение от CyberБурундукЪ

Сообщение от Kvins
"poleneispravno

- это новое поле(Выявленная неисправность) на форме "ДЕТАЛИ НА РЕМОНТ ТОВАРА"

@BasicMan · 12.10.2009, 12:02

4.

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

в вышеупомянутом коде были лишние поля

проблема не в полях, а в правильности задания параметра ВХЕРЕ !!!

Добавлено через 1 минуту

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

это новое поле(Выявленная неисправность) на форме "ДЕТАЛИ НА РЕМОНТ ТОВАРА"

в данном случае чо оно делает не принципиально
оно здесь указано неправильно:

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

WHERE (((tblTehnika.КодТехники)="poleneispravn ost"))

@Kvins · 12.10.2009, 12:02 **[ТС]**

Сообщение от CyberБурундукЪ

Сообщение от Kvins
ADODB

его там нет, но мне хотелось бы ввести вас в курс дела, может решение моей задачи лежит не там где я копаю)))

@BasicMan · 12.10.2009, 12:05

Kvins, чистый акс, или всетаки проект аксовый ?
мдб или адп ?

Добавлено через 1 минуту

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

ДЕТАЛИ НА РЕМОНТ ТОВАРА

это имя формы в базе? или это параметр Caption (Заголовок)?

@Kvins · 12.10.2009, 12:07 **[ТС]**

в начале моего проека, просто использовал методы без кода, ща уже начинаю немного понимать ВБ код, соответственно внедряю его в свой проект. файл МДБ. В первом посте есть rar-архив с БД)))

Добавлено через 50 секунд

Сообщение от CyberБурундукЪ

Сообщение от Kvins
ДЕТАЛИ НА РЕМОНТ ТОВАРА

Caption)))

@BasicMan · 12.10.2009, 12:12

тогда так. смотри п.#2 и думай о том что я сказал

имя формы, это то как она в окне базы в закладках формы прописана.

Добавлено через 2 минуты
второй код из поста 3 тебе не подходит СОВСЕМ. он годится только когда используешь СКуЛ-Сервер

@Kvins · 12.10.2009, 12:24 **[ТС]**

ггг))) кажется допер))) сорри, за невнимательность

Добавлено через 10 минут

SQL
1
2
3
SELECT tblTehnika.КодТехники, tblTehnika.ВыявленнаяНеисправность
FROM tblTehnika INNER JOIN tblTehnikaVRemont ON tblTehnika.КодТехники = tblTehnikaVRemont.КодТехники
WHERE (((tblTehnika.КодТехники)=[frmDetaliNaRemontTovara].[poleneispravnost]));

что-то тут всеравно не так!

@BasicMan · 12.10.2009, 12:32

Kvins, вместо точки поставь !
т.е. так [frmDetaliNaRemontTovara]![poleneispravnost]

Добавлено через 2 минуты
и еще. проверь без понтов. т.е. удали строку с оператором ВХЕРЕ, и проверь выводятся ли данные в таком виде в форму

Добавлено через 39 секунд

Не по теме:

а базу твою я проверить не могу, у меня акс 2000

@Kvins · 12.10.2009, 12:37 **[ТС]**

Visual Basic
1
2
3
4
5
6
Private Sub knpExit_Click()
 
 обработчик чего-то останавливается сдесь -DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
 DoCmd.Close acForm, "frmDetaliNaRemontTovara", acSavePrompt
 
End Sub

акс конфликтует, у меня есть ленточная форма, там есть кнопка "Деталинг", она открывает нужную мне форму frmDetaliNaRemontTovara. две недели парюсь с этой проблемой, как же всетаки присвоить значения к текущей технике, которая береться из ленточной формы

@unick12345 · 12.10.2009, 12:37

Kvins, если можешь, объясни мне что именно тебе нужно? при выборе из списка в polekodtehniki чтобы сохранялось в таблицу tblTehnika, правильно?

@Kvins · 12.10.2009, 12:48 **[ТС]**

есть ленточная форма "ТОВАР В РЕМОНТ" там находится техника, в которую нужно списать детальки, нажимаем кнопку "Деталинг" попадаем на форму "ДЕТАЛИ НА РЕМОНТ ТОВАРА" , детальки я списываю спомощью рекордсета, допустим для утюга, я вствляю сетевой шнур, пылесос- двигатель! Информация которая присваивается к технике находится в таблице tblTehnikaVRemont....

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

Kvins, если можешь, объясни мне что именно тебе нужно? при выборе из списка в polekodtehniki чтобы сохранялось в таблицу tblTehnika, правильно

почти)))

Сообщение от CyberБурундукЪ

Не по теме:
а базу твою я проверить не могу, у меня акс 2000

я сейчас от конвертирую в 2000 вариант

@Kvins · 12.10.2009, 12:52 **[ТС]**

вот смотрите)))

@BasicMan · 12.10.2009, 12:59

SQL
1
SELECT tblTehnika.КодТехники, tblTehnika.ВыявленнаяНеисправность FROM tblTehnika INNER JOIN tblTehnikaVRemont ON tblTehnika.КодТехники = tblTehnikaVRemont.КодТехники WHERE (((tblTehnika.КодТехники)=Forms![frmDetaliNaRemontTovara]![poleneispravnost]));

т.е. добавь слово Forms!

@Kvins · 12.10.2009, 13:21 **[ТС]**

Сообщение от CyberБурундукЪ

т.е. добавь слово Forms!

Я уже так пробывал))) окна с вводом значения нет! Но теперь возникает конфликт с

Visual Basic
1
Me.sqryKomponenty.SetFocus

@Kvins · 13.10.2009, 11:11 **[ТС]**

Пасибо всем, кто меня раздуплял

Решением было замена источника данных предвидущей формы, ниже прилогаю код решения:

SQL
1
2
SELECT tblTehnika.КодТехники, tblTehnika.Модель, tblTehnika.Серийный№, tblTehnika.ВыявленнаяНеисправность, tblTehnikaVRemont.КодСотрудника, tblTehnikaVRemont.КодКомпонента, tblTehnikaVRemont.Количество
FROM tblTehnika INNER JOIN (tblSotrudniki INNER JOIN tblTehnikaVRemont ON tblSotrudniki.КодСотрудника = tblTehnikaVRemont.КодСотрудника) ON tblTehnika.КодТехники = tblTehnikaVRemont.КодТехники;

Далее был изменен код источника, той формы, которая непосредственно представляла мой интерес:

SQL
1
2
SELECT qryKomponenty.*, tblTehnika.ВыявленнаяНеисправность, tblTehnikaVRemont.ДатаОкончанияРемонта
FROM tblTehnika INNER JOIN ((qryKomponenty INNER JOIN tblKomponenty ON qryKomponenty.КодКомпонента = tblKomponenty.КодКомпонента) INNER JOIN tblTehnikaVRemont ON tblKomponenty.КодКомпонента = tblTehnikaVRemont.КодКомпонента) ON tblTehnika.КодТехники = tblTehnikaVRemont.КодТехники;

Все получилось))) теперь буду продолжать работать с рекордсетом...

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .	[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .

@BasicMan 19318 / 2626 / 84 Регистрация: 17.02.2009 Сообщений: 30,364
	12.10.2009, 11:36
	вместо Ме нужно указывать полное имя формы 0

@BasicMan 19318 / 2626 / 84 Регистрация: 17.02.2009 Сообщений: 30,364
	12.10.2009, 12:12
	тогда так. смотри п.#2 и думай о том что я сказал имя формы, это то как она в окне базы в закладках формы прописана. Добавлено через 2 минуты второй код из поста 3 тебе не подходит СОВСЕМ. он годится только когда используешь СКуЛ-Сервер 0

@BasicMan 19318 / 2626 / 84 Регистрация: 17.02.2009 Сообщений: 30,364
	12.10.2009, 12:32
	Kvins, вместо точки поставь ! т.е. так [frmDetaliNaRemontTovara]![poleneispravnost] Добавлено через 2 минуты и еще. проверь без понтов. т.е. удали строку с оператором ВХЕРЕ, и проверь выводятся ли данные в таком виде в форму Добавлено через 39 секунд Не по теме: а базу твою я проверить не могу, у меня акс 2000 0

@unick12345 1866 / 1186 / 192 Регистрация: 27.03.2009 Сообщений: 4,603
	12.10.2009, 12:37
	Kvins, если можешь, объясни мне что именно тебе нужно? при выборе из списка в polekodtehniki чтобы сохранялось в таблицу tblTehnika, правильно? 0