DAO

[rok]

Как подключить к проекту библиотеку DAO на другом компьютере
В проекте есть функция заполнения поля со списком и при не подключенной библиотеке возникает ошибка. Это должно произойти до подключения проекта.
Мы сами не местные, убогие помогите кто чем может.

[flying]

Пожалуйста ответьте на наводящие вопросы:
Почему DAO, а не ADO?
Откуда информация считывается?
Я вам напишу, как быть с ADO.
Примерно так:

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

Private Sub Кнопка1_Click()
Dim Conn As ADODB.Connection
Dim R1 As ADODB.Recordset
  'дальше будет использоваться R1
...

Set Conn = CurrentProject.Connection
Set R1 = New ADODB.Recordset
R1.Open "ИМЯ ТАБЛИЦЫ (если в Access)", Conn, adOpenKeyset, adLockOptimistic
  'Переход на завершение в случае обнаружения ошибки выполнения кода
  On Error GoTo Err
If R1.RecordCount <> 0 Then
   R1.MoveLast                 'Переход к последней записи в таблице
End If

R1.AddNew                       'Добавить новую запись
...
...                                    'ваш код
                                       'update не следует делать, пока код не отлажен

Set R1 = Nothing
  Set Conn = Nothing
 
Exit_Кнопка1_Click:
    Exit Sub

Err:
    MsgBox Err.Description
    Resume Exit_Кнопка1_Click

  End Sub


Это для "затравки".
Когда на вопросы ответите, то продолжим. [/code]

[flying]

ОК! Rok.
Всё прояснилось.
Теперь спасибо тебе.