И снова про AddNew

[gjghjc]

Объясните мне дураку непонятливому почему так происходит.

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

Select Case KeyCode
    Case vbKeyReturn
BaseAdd = IspFile + "\"
TableAdd = "temp1"
Set dbfAdd = DAO.OpenDatabase(BaseAdd, False, False, "dBASE IV;LANGID=0x0419;CP=866;COUNTRY=0")

SQLStrAdd = "select * from " & TableAdd
rsAdd.Close
Set rsAdd = dbfAdd.OpenRecordset(SQLStrAdd, dbOpenDynaset, dbAppendOnly)

        With rsAdd
        .AddNew
        .Fields("Поле1") = txtText.Text
        .Fields("Поле2") = rsSearch.Fields("LAST_NAME") & " " & Left(rsSearch.Fields("first_NAME"), 1) & "." & Left(rsSearch.Fields("father_NAM"), 1) & "."
        .Fields("Поле3") = CCur(Replase(txtAmountSumm.Text, ".", ","))
        .Fields("Поле4") = rsSearch.Fields("LAST_NAME") & " " & Left(rsSearch.Fields("first_NAME"), 1) & Left(rsSearch.Fields("father_NAM"), 1)
        .Fields("TRANS_DET") = txtTr_Det.Text
        .Update
        End With
        txtAmountSumm.Text = ""
        txtSearch.Text = ""
End Select
rsAdd.Close
dbfAdd.Close


На машине на которой стоит Win2000 & Office97 все работает как часики а на 98-ой Винде и таком же офисе ни хрена не пашет, говорит что не может открыть рекордсет для записи и хоть ты тресни. Затыкается как раз на AddNew. Искал по форуму и увидел что тема обсуждалась и не раз но ссылка от Rainbow не работает. Помогите добавить новую запись. Остается только добавить, что записи добавляю в файл который перед этим копируется из чистого файла с нехитрым названием Shablon.dbf.

[Rainbow]

А не знаю
Может, разные версии DAO. Там, где Win98 что-нибудь отваливается...
Ты искал решение в нете по описанию ошибки? На microsoft?
Но это так... Если нижесказанное не спасет, то приведи полный текст ошибки и номер.

Слушай, а это у тебя кусок упрощенный показан (то есть в этой процедуре в жизни все намного сложнее) или ты действительно открываешь рекордсет только для того, чтобы туда одну запись добавить и потом его закрываешь (он тебе больше не нужен)?
Почему ты не используешь
dbfAdd.Execute "INSERT INTO temp1 ([поле1], [поле2], [поле3]) values (value1, value2, value3)"?
Это быстрее - данные не таскаются на клиента.

[gjghjc]

ПРЕМНОГО БЛАГОДАРЕН ВСЕ РАБОТАЕТ НА 5 БАЛЛОВ

[Rainbow]

Рада за тебя