powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / INSERT
18 сообщений из 18, страница 1 из 1
INSERT
    #32566916
magoga
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Привет всем!
У меня небольшая проблемка с SQL.
Вобщем есть форма "RentAsset", в ней есть Textbox "Asset" и ListBox "RentVendors".
Создал кнопку, после нажатия которой номер из "Asset" и ключ из выбранной строки "RentVendors" должны сохраниться в таблице "RentStatus". Написал Event со строкой SQL:

Private Sub RentSaveBtn_Click()
On Error GoTo Err_RentSaveBtn_Click
CurrentDb.Execute "INSERT INTO RentStatus (Asset, Vendor) VALUES (" & Me.Asset & ", " & Me.RentVedors.Value & ")"
Forms![Assets].Refresh
DoCmd.Close
Exit_RentSaveBtn_Click:
Exit Sub

Err_RentSaveBtn_Click:
MsgBox Err.Description
Resume Exit_RentSaveBtn_Click

End Sub


После выполнении команды выскакивает сообщение: "Object doesn't support this property or method"

Подскажите пожалуйста, где что неправильно сделано?
Спасибо.
...
Рейтинг: 0 / 0
INSERT
    #32566942
Фотография маяк
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
magogaПривет всем!
У меня небольшая проблемка с SQL.
Вобщем есть форма "RentAsset", в ней есть Textbox "Asset" и ListBox "RentVendors".
Создал кнопку, после нажатия которой номер из "Asset" и ключ из выбранной строки "RentVendors" должны сохраниться в таблице "RentStatus". Написал Event со строкой SQL:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Private Sub RentSaveBtn_Click()
On Error GoTo Err_RentSaveBtn_Click
    CurrentDb.Execute "INSERT INTO RentStatus (Asset, Vendor) VALUES (" &  Me.Asset & ", " & Me.RentVedors.Value & ")"
    Forms![Assets].Refresh
    DoCmd.Close
Exit_RentSaveBtn_Click:
    Exit Sub

Err_RentSaveBtn_Click:
    MsgBox Err.Description
    Resume Exit_RentSaveBtn_Click
    
End Sub


После выполнении команды выскакивает сообщение: "Object doesn't support this property or method"

Подскажите пожалуйста, где что неправильно сделано?
Спасибо.Очевидно, Object doesn't support this property or method. Трейсь и смотри, какой объект ругается.
...
Рейтинг: 0 / 0
INSERT
    #32566946
Roma R
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
У текстового поля нет метода Refresh
...
Рейтинг: 0 / 0
INSERT
    #32566947
ищ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
а Forms![Assets].Refresh тебе зачем?
ты же потом ее все равно закрываешь
...
Рейтинг: 0 / 0
INSERT
    #32566966
magoga
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
спасибо за советы, но я нашёл проблему уже. У меня название Тексбокс оказывается другое. А рефреш мне нужен для того чтобы другая форма актуализировалась, из которой собсвенно эта форма и вызывается.
...
Рейтинг: 0 / 0
INSERT
    #32567262
magoga
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ещё один вопрос.
У меня в таблице есть атрибут "RentBegin" типа Date. В вышеуказанной форме вставил ТекстБокс "RentBeginTb". Дописал SQL следующим образом:


CurrentDb.Execute "INSERT INTO RentStatus (Asset, Vendor, RentBegin) VALUES (" & Me.RentAssetTb & ", " & Me.RentVedors.Value & ", " & Me.RentBeginTb & ")"

После нажатия кнопки выдаёт "Syntax error in number in query expression '19.06.2004'". Может с датами нужно по особенному работать? Подскажите.
...
Рейтинг: 0 / 0
INSERT
    #32567277
Фотография paparome
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
...
Рейтинг: 0 / 0
INSERT
    #32567406
Фотография маяк
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
paparome http://www.sql.ru/faq/faq_topic.aspx?fid=157 В плюс к этому сугубо не рекомендуется обращаться currentdb. Лучше объявить глобальную переменную db и делать ей set db=currentdb, а когда не нужна, отрубать.
...
Рейтинг: 0 / 0
INSERT
    #32567423
Фотография paparome
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
авторВ плюс к этому сугубо не рекомендуется обращаться currentdb. Лучше объявить глобальную переменную db и делать ей set db=currentdb, а когда не нужна, отрубать.

Хм. - не знал такого
А чем это обосновывается?
...
Рейтинг: 0 / 0
INSERT
    #32567434
Фотография маяк
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
paparome авторВ плюс к этому сугубо не рекомендуется обращаться currentdb. Лучше объявить глобальную переменную db и делать ей set db=currentdb, а когда не нужна, отрубать.

Хм. - не знал такого
А чем это обосновывается?Какие-то ссылки глючат. Точной физики всего этого не знаю, наткнулся где-то чуть ли не на microsoft.com, когда искал причину бесконечным Needs to be repaired or isn't a database file . На днях писал это же Санычу.
...
Рейтинг: 0 / 0
INSERT
    #32567653
magoga
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Что-то я не совсем разобрался в FAQ. Подсказали бы чтоли как написать правильно запрос.
...
Рейтинг: 0 / 0
INSERT
    #32567660
Фотография paparome
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
CurrentDb.Execute "INSERT INTO RentStatus (Asset, Vendor, RentBegin) VALUES (" & Me.RentAssetTb & ", " & Me.RentVedors.Value & ", #" & Format(Me.RentBeginTb, "mm\/dd\/yyyy") & "#)"

?
...
Рейтинг: 0 / 0
INSERT
    #32567671
magoga
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Thanks. It works. :)
...
Рейтинг: 0 / 0
INSERT
    #32567826
magoga
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Блин, что-то мне сегодня не везёт. :(
Добавил ещё один отрибут "Comments" типа Text в таблицу и форму "RentCommentTb". Переделал запрос следующим образом:


CurrentDb.Execute "INSERT INTO RentStatus (Asset, Vendor, RentBegin, RentEnd, Comments) VALUES (" & Me.RentAssetTb & ", " & Me.RentVedors.Value & ", #" & Format(Me.RentBeginTb, "mm\/dd\/yyyy") & "#, #" & Format(Me.RentReturnTb, "mm\/dd\/yyyy") & "#, " & Me.RentCommentTb & ")"

Запускаю, а мне отвечает "Too few parameters. Expected 1." Каких параметров ей не хватает? Что опять не так?
...
Рейтинг: 0 / 0
INSERT
    #32567834
Фотография paparome
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Нет - ну так нельзя
Я же ссылку на FAQ давал - там все на русском расжевано :(

Стринги надо в апострофы заключать.
...
Рейтинг: 0 / 0
INSERT
    #32567835
magoga
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ошибка в сообщении. Вот заново:

Блин, что-то мне сегодня не везёт. :(
Добавил ещё один отрибут "Comments" типа Text в таблицу и TextBox "RentCommentTb" в форму. Переделал запрос следующим образом:


CurrentDb.Execute "INSERT INTO RentStatus (Asset, Vendor, RentBegin, RentEnd, Comments) VALUES (" & Me.RentAssetTb & ", " & Me.RentVedors.Value & ", #" & Format(Me.RentBeginTb, "mm\/dd\/yyyy") & "#, #" & Format(Me.RentReturnTb, "mm\/dd\/yyyy") & "#, " & Me.RentCommentTb & ")"

Запускаю, а мне отвечает "Too few parameters. Expected 1." Каких параметров ей не хватает? Что опять не так?
...
Рейтинг: 0 / 0
INSERT
    #32567936
magoga
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ну пробую поставить апострофы в этот атрибут 'Me.RentCommentTb' запроса. Ни фига не работает. так тоже пробовал
' & Me.RentCommentTb &'
...
Рейтинг: 0 / 0
INSERT
    #32568940
Фотография paparome
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
CurrentDb.Execute "INSERT INTO RentStatus (Asset, Vendor, RentBegin, RentEnd, Comments) VALUES (" & Me.RentAssetTb & ", " & Me.RentVedors.Value & ", #" & Format(Me.RentBeginTb, "mm\/dd\/yyyy") & "#, #" & Format(Me.RentReturnTb, "mm\/dd\/yyyy") & "#, ' " & Me.RentCommentTb & " ' )"

?
...
Рейтинг: 0 / 0
18 сообщений из 18, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / INSERT
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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