Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Access
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 08.06.2010, 01:00   #11
AdrenalinE
Пользователь
 
Аватар для AdrenalinE
 
Регистрация: 29.09.2007
Сообщений: 95
По умолчанию

Предлагаю попробовать так:
Код:
SQL = "UPDATE Наряд_на_доставку " & _
"SET Наряд_на_доставку.ФИО_Клиента = Forms![Имя формы]![Номер_заказа_на_доставку] " & _
"WHERE Наряд_на_доставку.Номер_наряда_на_д оставку = Forms![Имя формы]![Номер_заказа_на_доставку];"
Имя формы, естественно, заменить на имя формы, с которой идет работа.

Окно не будет появляться, если использовать CurrentDb.Execute вместо DoCmd.RunSQL. Но оно немного по-другому работает, я еще не до конца с ним разобрался. Так что остается только экспериментировать.

Последний раз редактировалось AdrenalinE; 08.06.2010 в 01:05.
AdrenalinE вне форума Ответить с цитированием
Старый 08.06.2010, 01:09   #12
AdrenalinE
Пользователь
 
Аватар для AdrenalinE
 
Регистрация: 29.09.2007
Сообщений: 95
По умолчанию

В общем, вот полезный мануал.
http://www.interface.ru/home.asp?artId=7330
AdrenalinE вне форума Ответить с цитированием
Старый 08.06.2010, 01:09   #13
Noorty
Пользователь
 
Регистрация: 06.06.2010
Сообщений: 14
По умолчанию

ясно
продолжу завтра
а щя вырубает спать хочу

Адреналин Спасибо за помощь
Noorty вне форума Ответить с цитированием
Старый 08.06.2010, 14:53   #14
Noorty
Пользователь
 
Регистрация: 06.06.2010
Сообщений: 14
По умолчанию

Private Sub Кнопка48_Click()

Dim FIO As String
FIO = ФИО_Клиента & ""
Dim NOMER As String
NOMER = Номер_заказа_на_доставку & ""

Dim SQL As String
Dim SQL1 As String
Dim SQL2 As String
Dim SQL3 As String

SQL1 = "UPDATE Наряд_на_доставку "
SQL2 = "SET Наряд_на_доставку.ФИО_Клиента = "
SQL3 = " WHERE Наряд_на_доставку.Номер_наряд_на_до ставку = "

SQL = SQL1 + SQL2 + FIO + SQL3 + NOMER

CurrentDb.Execute SQL

End Sub

пишет ошибка
Run-time error '3075'

Ошибка синтаксиса(пропущен оператор) в выражении запроса 'Петров П.П.'

а вот если Петров П.П. сразу вставить в

SQL2 = "SET Наряд_на_доставку.ФИО_Клиента = 'Петров П.П.'"

все работает

подскажите что за оператор???

Последний раз редактировалось Noorty; 08.06.2010 в 15:09.
Noorty вне форума Ответить с цитированием
Старый 08.06.2010, 15:27   #15
Noorty
Пользователь
 
Регистрация: 06.06.2010
Сообщений: 14
По умолчанию

УРА ВСЕ СДЕЛАЛ
Крива но главное работает хотя может так оно и есть

Private Sub Кнопка48_Click()

Dim FIO As String
FIO = ФИО_Клиента & ""
Dim FIO1 As String
FIO1 = "'" + FIO + "'" ' прибавил в строку FIO по одинарной кавычке с двух сторон
Dim NOMER As String
NOMER = Номер_заказа_на_доставку & ""

Dim SQL As String
Dim SQL1 As String
Dim SQL2 As String
Dim SQL3 As String

SQL1 = "UPDATE Наряд_на_доставку "
SQL2 = "SET Наряд_на_доставку.ФИО_Клиента = "
SQL3 = " WHERE Наряд_на_доставку.Номер_наряд_на_до ставку = "

SQL = SQL1 + SQL2 + FIO1 + SQL3 + NOMER

CurrentDb.Execute SQL

End Sub
Noorty вне форума Ответить с цитированием
Старый 08.06.2010, 17:31   #16
AdrenalinE
Пользователь
 
Аватар для AdrenalinE
 
Регистрация: 29.09.2007
Сообщений: 95
По умолчанию

Ах да, строковые величины в апострофы заключать, точно.
AdrenalinE вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Правильность ip OPF_Nik Работа с сетью в Delphi 1 29.01.2010 23:21
реализация команд с помощью набора других команд zhenyaa Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 5 08.11.2009 21:37
Проверьте правильность написания кода в delphi neomaximus Помощь студентам 2 09.04.2009 17:29
Проверьте на правильность!! Dawystrik Общие вопросы Delphi 2 21.03.2009 21:04
Запуск команд командной строки из VBA snake-as Microsoft Office Excel 14 21.10.2008 16:45