Есть таблица "RentStatus" со следуюшими аттрибутами:
RentStatus(Asset,CompanyID, RentBegin, RentEnd, Comments).
На событии кнопки формы есть следующий код:

If rst.RecordCount > 0 Then
Do Until rst.EOF
CurrentProject.Connection.Execute "INSERT INTO RentStatus (Asset, CompanyID, RentBegin) VALUES (" & rst(0) & ", " & Me![Combo_CompanyID] & ", #" & Format(Me.Rent_Begin, "mm\/dd\/yyyy") & "#)"
Loop
End If

который прекрасно работал с двумя начальными аттрибутами. Как только дополнил RentBegin, который является форматом даты, то постоянно указывает мне на ошибку:
the name #2 is not permitted in this context

Кто скажет где ошибка?

Владимир Саныч magogaдополнил RentBegin, который является форматом даты
Что значит является форматом даты? Тип поля - Date/Time или Text?

datetime

Владимир СанычА вот этот стринг

magoga"INSERT INTO RentStatus (Asset, CompanyID, RentBegin) VALUES (" & rst(0) & ", " & Me![Combo_CompanyID] & ", #" & Format(Me.Rent_Begin, "mm\/dd\/yyyy") & "#)"
в отладчике во что превращается?
Пока ни во что не превращается. Выходит ошибка:
the name #2 is not permitted in this context и сама операция не завершается.

Владимир СанычОшибка происходит после того, как Аксесс пытается засунуть этот стринг в CurrentProject.Connection.Execute. Можно ли вместо CurrentProject.Connection.Execute сделать Debug.Print?

Сделал. После запуска зависает весь Аксес. :(
Я команду INSERT скопировал из своего старого приложения в .mdb, где она работала нормально. Да, кстати, в Текстбоксе Формы, где я забиваю дату, формат- Short Date. И в ошибке, после # всегда число месяца, в вышеуказанном примере 2.

Вставил вручную дату


If rst.RecordCount > 0 Then
Do Until rst.EOF
CurrentProject.Connection.Execute "INSERT INTO RentStatus (Asset, CompanyID, RentBegin) " _
& "VALUES (" & rst(0) & ", " & Me![Combo_CompanyID] & ", '1.13.2000' )"
rst.MoveNext
Loop
End If




и работает, причём сохраняет, в отличие от европейского стандарта, в таблицу уже в американском формате.
Что то не то в #" & Format(Me.Rent_Begin, "mm\/dd\/yyyy") & "#.

Владимир Саныч Можно ли вместо CurrentProject.Connection.Execute сделать Debug.Print?

Сеичас код выглядит так:

If rst.RecordCount > 0 Then
Do Until rst.EOF
Debug.Print "INSERT INTO RentStatus (Asset, CompanyID, RentBegin) " _
& "VALUES (" & rst(0) & ", " & Me![Combo_CompanyID] & ", #" & Format(Me.Rent_Begin, "mm\/dd\/yyyy") & "#)"
rst.MoveNext
Loop
End If



Ошибок не выдаёт, но и не записывает в таблицу ничего.

После завершения функции с Debug.Print'ом, посмотрел в Immediate Window. Вот что там получается:


INSERT INTO RentStatus (Asset, CompanyID, RentBegin) VALUES (2, 806, #05/05/2002#)
INSERT INTO RentStatus (Asset, CompanyID, RentBegin) VALUES (5, 806, #05/05/2002#)
INSERT INTO RentStatus (Asset, CompanyID, RentBegin) VALUES (6, 806, #05/05/2002#)
INSERT INTO RentStatus (Asset, CompanyID, RentBegin) VALUES (7, 806, #05/05/2002#)