AddNew(Access2000)

[Mao]

Вот такая проблема: програмно создаю таблицу

Код: Выделить всё

  Set Tdf = CurrentDb.CreateTableDef("Profit")
  With Tdf
    .Fields.Append .CreateField("Goods", dbText, 200)
    .Fields.Append .CreateField("Profit", dbCurrency)
  End With
  CurrentDb.TableDefs.Append Tdf


Потом задаю рекордсет на эту таблицу

Код: Выделить всё

Set ProfitRst = CurrentDb.OpenRecordset("Profit", dbOpenDynaset)

Потом пытаюсь записать данные

Код: Выделить всё

    With ProfitRst
        .AddNew
        !Goods = Tov.Fields("Tovar")
        !Profit = ProfitTmp
        .Update
        .Bookmark = .LastModified
    End With


Так вот на метод AddNew выдает ошибку 3027, матерится что объект доступен только для чтения. В чем может быть ошибка??
Заранее спасибо за ответы. =)

[3ton]

OpenRecordset Method

Creates a new Recordset object and appends it to the Recordsets collection.

Syntax

For Connection and Database objects:

Set recordset = object.OpenRecordset (source, type, options, lockedits)
For QueryDef, Recordset, and TableDef objects:

Set recordset = object.OpenRecordset (type, options, lockedits)


Попробу строку, например так:

Код: Выделить всё

Set ProfitRst = CurrentDb.OpenRecordset("Profit", dbOpenDynaset,,dbOptimistic )

Если есть MSDN, тогда почитай сдесь:
mk:@MSITStore:E:\MSDN98\98VS\1033\dao351.chm::/dameth04_265w.htm

[Mao]

OpenRecordset Method

Creates a new Recordset object and appends it to the Recordsets collection.

Syntax

For Connection and Database objects:

Set recordset = object.OpenRecordset (source, type, options, lockedits)
For QueryDef, Recordset, and TableDef objects:

Set recordset = object.OpenRecordset (type, options, lockedits)


Попробу строку, например так:

Код: Выделить всё

Set ProfitRst = CurrentDb.OpenRecordset("Profit", dbOpenDynaset,,dbOptimistic )

Если есть MSDN, тогда почитай сдесь:
mk:@MSITStore:E:\MSDN98\98VS\1033\dao351.chm::/dameth04_265w.htm

В таком варианте выдает 3001-ую ошибку "Ошибочный аргумент"
А что делать даж не знаю, не работает только с той таблицей.

[Konst_One]

А может это вовсе не таблица , а сложный сохраненный запрос?

[Mao]

А может это вовсе не таблица , а сложный сохраненный запрос?

Так написал же:

Код: Выделить всё

Set Tdf = CurrentDb.CreateTableDef("Profit")
....
Set ProfitRst = CurrentDb.OpenRecordset("Profit", dbOpenDynaset)


[Konst_One]

а кто будет рефреш делать?

Код: Выделить всё

CurrentDb.TableDefs.Refresh


[Mao]

а кто будет рефреш делать?

Код: Выделить всё

CurrentDb.TableDefs.Refresh


Рефреш есть, я его только сюда не вписал.

[Mao]

И с рефрешом не работает, подскажите где тут собака порылась?? =((( Спасибо заранее за ответы.

[snov]

попробуй реализовать запросом

Код: Выделить всё

currentdb.execute "insert into Profit values ('" & tov.field("Tovar") & "'," & ProfitTmp & ")"