Форумы HiProg.com - MS ACCESS, VBA, VB

 

Ответить на сообщение

Вернуться к теме

Вы отвечаете на сообщение:

ник: АлаяЗаря
куль спасибо =) заработало так:
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.объект
ну и так далее...

Вопрос на будущее база сетевая, т.е. путь будет сетевым, есть какие то особенности здесь?

П.С. Я просто в сети еще не пробывал, только в понедельник получиться...

DBEngine.Workspaces(0)
- это обязательно и что это такое, у меня и так и так работает...


Ваше имя:

Пароль:

Цитировать: [quote][/quote] Код: [code][/code]
Жирный: [b][/b] Наклонный: [i][/i]
URL: [url][/url] 

Сообщение:

 Размер файла не более 50 Кбт. Большие файлы можно размещать на www.slil.ru

Прикрепить:

 

Для вставки смайлов в текст щелкните по значку.