access

[Lunik]

Задача такая.
Нада в Access закинуть таблицы Excel, сделать это можно через связь с таблицами. Как сделать это вручную я знаю.
Но вопрос в том, как сделать это через Форму.
Должно быть так, открываем Access появляется форма. на форуме кнопка с помощью которой можно будет сделать связь с таблицей Excel.
Помогите пожалуйста.

Спасибо большое.

[HandKot]

может это поможет

автолинковка таблиц

[Lunik]

Спасибо уже разобрался

[HandKot]

Lunik, так для будущих поколений объясните как это Вы сделали, возможно даже с кусочками кода

[Lunik]

Первые наброски. Код не мой помогли.

Код:

//Перед добавление нового файла, удаляем старый
If DLookup("count(*)", "msysobjects", "name='list33' and type=6") > 0 Then
  DoCmd.DeleteObject acTable, "List33"
End If
//добовляем файл
DoCmd.TransferSpreadsheet acLink, _
     acSpreadsheetTypeExcel5, _
     "List33", _
     "E:\Documents and Settings\Me1\Мои документы\Уроки Booby\array.xls", True, "Лист1$"  //указываем путь откуда загружаем файл.  и указываем Название листа в даном случае это Лист1

Уже Доработанный код мной.
В данной функция, добавление файла идет через окно выбора файла.
путь к файлу прописывать не надо.

Код:

Private Sub Кнопка0_Click()
Dim FName As String
Dim result As Integer
With Application.FileDialog(1)
    .Title = "Auai? oaeea"
    .AllowMultiSelect = False
    .Filters.Clear
    .Filters.Add "xls file", "*.xls", 1
    result = .Show
If result = 0 Then 'файл не выбрали... вот урюки...
  MsgBox ("эээйййй файл не забываем выбрать да...")
  Exit Sub 'закончим процедуру
Else 'если выбрали
  FName = Trim(.SelectedItems.Item(1)) 'присвоим имя файла переменной
End If
End With
If DLookup("count(*)", "msysobjects", "name='Ваше Имя' and type=6") > 0 Then
  DoCmd.DeleteObject acTable, "Ваше Имя"
End If
DoCmd.TransferSpreadsheet acLink, _
     acSpreadsheetTypeExcel5, _
     "Ваше Имя", _
     FName, True, "L_ExportData$" //обезательно должно быть название Листа в данный момент это L_ExportData
     MsgBox ("Файл загружен успешно!")
End Sub