powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Вот такой запрос
3 сообщений из 3, страница 1 из 1
Вот такой запрос
    #32533736
Фотография Ирча
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Господа! поможите
Есть такой запрос
Код: plaintext
1.
2.
3.
4.
strSQL = "INSERT INTO СМРввод (Объект, МТР, КодД, ДатаВ, Акт) SELECT Списание.[Код Объекта], Списание.Сумма, " _
& str(Nz(Me.СписаниеПодч.Form.[КодД])) & "," _
& "#" & Format(Me.СписаниеПодч.Form.[ДатаВ], "mm\/dd\/yyyy") & "#," _
& CStr(Me.СписаниеПодч.Form.[Акт]) & _
" FROM Списание WHERE(((Списание.ВидТовара)=""Материал""));" 
И такой
Код: plaintext
1.
2.
3.
4.
strSQL = "INSERT INTO СМРввод (Объект, Обор, КодД, ДатаВ, Акт) SELECT Списание.[Код Объекта], Списание.Сумма, " _
& str(Nz(Me.СписаниеПодч.Form.[КодД])) & "," _
& "#" & Format(Me.СписаниеПодч.Form.[ДатаВ], "mm\/dd\/yyyy") & "#," _
& CStr(Me.СписаниеПодч.Form.[Акт]) & _
" FROM Списание WHERE(((Списание.ВидТовара)=""Оборудование""));"
Идея такова, если в поле Списание.Вид товара = оборудование, то сумма помещается в поле Обор таблицы СМРввод
Если Списание.Вид товара = материал, то сумма помещается в поле МТР таблицы СМРввод

Вто только дальше меня заклинило
как их запустить друг за другом
...
Рейтинг: 0 / 0
Вот такой запрос
    #32533744
Фотография Ирча
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ОПС!
Сильно извеняюсь, по моему у меня все получилось
...
Рейтинг: 0 / 0
Вот такой запрос
    #32533746
Фотография Shuhard
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
.execute(String)
DAO-CurrentDb
ADO-CurrentProject.Connection
...
Рейтинг: 0 / 0
3 сообщений из 3, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Вот такой запрос
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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