Привет всем, кто хочет помочь,
В настоящее время я создаю базу данных в 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, но я не знаю, как это реализовать.
Привет