| |
|
|
| | Доброго времени... Вот есть у меня такой код
Private Sub кнопка26_Click()
With CurrentDb.OpenRecordset("PostavkaBKKNSI", dbOpenTable, dbAppendOnly, dbReadOnly)
.AddNew
.Fields(1) = Me.Объект
.Fields![Izdelie] = Me.Изделие
............тут подобные значения......................................................
.Update
.Close
End With
Работал, было все прекрасно, сейчас разделил формы и таблицы, пишет "Недопустимая операция" =((((( и что делать... Я просто в рекордсете вообще не бум бум, даже чуть чуть.... | |
| |
| |
| |
|
|
| | в той части где формы в редакторе VBA
в строке где file edit view
выберите tools - references
и проверьте библиотеку Microsoft DAO 3.6 Object Library (цифирки могут быть другие)
должна стоять галка
если нет то поставте
если есть слово missing то подключите свою библиотеку из списка | |
| |
| |
| |
|
|
| | при разделенной БД в OpenRecordset не катит dbOpenTable
надо открывать через так
Set bdd = DBEngine.Workspaces(0).OpenDatabase(tpath)
Set rs = bdd.OpenRecordset("bd", dbOpenTable): rs.Index = "PrimaryKey"
|
где tpath - полный путь к подключенной таблице
если вам не критично, не открывайте как таблицу, а открывайте как рекордсет | |
| |
| |
| |
|
|
| | куль спасибо =) заработало так:
Dim bdd As Database
Dim rs As Recordset
Set bdd = OpenDatabase("e:\DB UAS_be.mdb")
Set rs = bdd.OpenRecordset("PostavkaBKKNSI", dbOpenTable): rs.Index = "PrimaryKey"
With rs
.AddNew
.Fields(1) = Me.объект
ну и так далее...
Вопрос на будущее база сетевая, т.е. путь будет сетевым, есть какие то особенности здесь?
П.С. Я просто в сети еще не пробывал, только в понедельник получиться...
- это обязательно и что это такое, у меня и так и так работает... | |
| |
| |
| |
|
|
| | >>- это обязательно и что это такое, у меня и так и так работает...
работает? не трогайте (с) Правило №1
>>Вопрос на будущее база сетевая, т.е. путь будет сетевым, есть какие то особенности здесь?
да вроде не было проблем :) | |
| |
| |
