- Код: Выделить всё
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.