MS Access - добавление объектов OLE в таблицу с помощью VBA - PullRequest
2 голосов
/ 02 марта 2020

Я использую Access 2016 и Office 2016.

У меня есть форма с именем "frmFiles". В этой форме у меня есть связанный объектный фрейм с именем «FileOLE» и кнопка с именем «Command2». У меня есть таблица с именем "tblFiles" с 2 полями в нем. Один с именем "ID" (AutoNumber / Primary key) и второй с именем "File" (OLE Object).

RecordSource моей формы связан с моей таблицей, а ControlSource элемента управления моего связанного объекта - с файлом "Table" "field.

Моя цель - каждый раз, когда я нажимаю кнопку" Command2 ", добавлять к моей таблице один и тот же лист Excel.

Вот код, который у меня есть:

Private Sub Command2_Click()
    Me.FileOLE.Class = "Excel.Sheet"
    Me.FileOLE.OLETypeAllowed = acOLEEmbedded
    Me.FileOLE.SourceDoc = <My worksheet's full path>
    Me.FileOLE.Action = acOLECreateEmbed
    Me.FileOLE.SizeMode = acOLESizeZoom
End Sub

Работает только для первого клика. Это добавит рабочий лист в пустую таблицу. После этого все последующие клики не смогут добавить файл в таблицу.

Чего мне не хватает, если это вообще возможно сделать sh?

Спасибо.

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...