Как я могу записать в указанную c запись в основной таблице, используя форму, которая обрабатывает дочернюю таблицу? - PullRequest
0 голосов
/ 16 февраля 2020

Привет всем, кто хочет помочь,

В настоящее время я создаю базу данных в Microsoft Access. У меня есть таблица с дочерней таблицей, где я использую VBA для получения пути к файлу из файла, который существует на моем компьютере, и создания гиперссылки на этот файл. Код VBA работает для того, для чего он предназначен, но проблема в том, что он записывает это только в первую запись главной таблицы, а не в другую.

Как я могу изменить это?

Код, который я сейчас использую:

Private Sub Command187_Click()
    Dim varItem As Variant
    Dim obj As Object
    Dim rsimg As dao.Recordset

    Set obj = CreateObject("WScript.shell")
    Set rsimg = CurrentDb.OpenRecordset("Tbl_CompanyFiles", dbOpenDynaset)
    Set fdialog = Application.FileDialog(msoFileDialogFilePicker)

    With fdialog
        .AllowMultiSelect = True
        .Title = "Select Images To Add - Multiples OK"
        .InitialFileName = obj.specialfolders("desktop")
        .InitialView = msoFileDialogViewLargeIcons
        .Filters.Clear

        If .Show = True Then
            For Each varfile In .SelectedItems
            rsimg.AddNew
            rsimg("CompLinkedFilesName") = Right(varfile, Len(varfile) - InStrRev(varfile, "\"))
            rsimg("CompLinkedFilesPath") = "#" & Right(varfile, Len(varfile)) & "#"
            rsimg.Update
            Next varfile
       End If

    End With

End Sub

Имя поля, в которое предполагается записать, - это CompID, но я не знаю, как это реализовать.

Привет

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