.AddNew Запись с комбинированным списком Multiselect - PullRequest
1 голос
/ 07 мая 2020

У меня есть таблица, в которой пользователь может хранить каталоги файлов изображений и связывать эти изображения с определенным элементом, добавляя элементы в поле «relatedTo», которое является полем поиска с множественным выбором в таблице. Однако, например, если я хочу автоматизировать добавление этих изображений к определенному элементу c ...

Dim fd As FileDialog
Dim FileChosen As Integer
Dim FileName As String
Dim i As Integer

Set fd = Application.FileDialog(msoFileDialogFilePicker)
    fd.InitialFileName = Application.CurrentProject.Path
    fd.InitialView = msoFileDialogViewList
    fd.AllowMultiSelect = True

FileChosen = fd.Show

If FileChosen = -1 Then

    Dim rst As DAO.Recordset
    Set rst = CurrentDb.OpenRecordset("ManufacturingImages", dbOpenDynaset)

    For i = 1 To fd.SelectedItems.Count
        With rst
            .AddNew
                !imagePath = fd.SelectedItems(i)
                !dateTaken = Date
                !relatesTo = 29 ' Will change dependant upon the selection
            .Update
        End With
    Next i

    rst.Close
    Set rst = Nothing

End If

Проблема здесь связана с тем, что 'relatedTo является полем множественного выбора, следующий код приводит к ошибка; 64224: сбой метода «Collect» объекта «Recordset2».

Я правильно понял, что мне нужно указать «relatedTo» как отдельный набор записей, или я просто ошибаюсь в синтаксисе? Я пробовал делать что-то подобное, но безуспешно. Также 'relatedTo' просто относится к автоидентификатору элементов в таблице под названием products.

Более того, я знаю, что простой способ обойти это - создать отдельную таблицу, которая будет действовать как это поле со списком, где у меня будет отношения многие ко многим, но я хотел бы понять, как я могу заставить это работать.

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