![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
|
Опции темы | Поиск в этой теме |
![]() |
#11 |
Пользователь
Регистрация: 29.09.2007
Сообщений: 95
|
![]()
Предлагаю попробовать так:
Код:
Окно не будет появляться, если использовать CurrentDb.Execute вместо DoCmd.RunSQL. Но оно немного по-другому работает, я еще не до конца с ним разобрался. Так что остается только экспериментировать. Последний раз редактировалось AdrenalinE; 08.06.2010 в 01:05. |
![]() |
![]() |
![]() |
#12 |
Пользователь
Регистрация: 29.09.2007
Сообщений: 95
|
![]()
В общем, вот полезный мануал.
http://www.interface.ru/home.asp?artId=7330 |
![]() |
![]() |
![]() |
#13 |
Пользователь
Регистрация: 06.06.2010
Сообщений: 14
|
![]()
ясно
продолжу завтра а щя вырубает спать хочу Адреналин Спасибо за помощь |
![]() |
![]() |
![]() |
#14 |
Пользователь
Регистрация: 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. |
![]() |
![]() |
![]() |
#15 |
Пользователь
Регистрация: 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 |
![]() |
![]() |
![]() |
#16 |
Пользователь
Регистрация: 29.09.2007
Сообщений: 95
|
![]()
Ах да, строковые величины в апострофы заключать, точно.
![]() |
![]() |
![]() |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Правильность 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 |