01. Данный пример показывает вам, как можно загрузить все рисунки из каталога в базу данных. Обратите внимание на Dir("\*.bmp", vbNormal) - таким простейшим и древним способом можно получить все файлы из каталога. Рекомендации для хранения рисунков. Лучше использовать отдельные файлы, хотя в некоторых случаях это может пригодится.
' Загрузить рисунки из файла в таблицу
' (Для работы программы в папке должны быть файлы *.bmp)
'
Private Sub butExecute_Click()
Dim myBmp As String, myDir As String
On Error GoTo 999
' Папка для поиска
myDir = Application.CurrentProject.Path
' Находим файл с расширением bmp
myBmp = Dir(myDir "\*.bmp", vbNormal)
Do While Len(myBmp) 0 'Проверяем файл
Me.Файл = myBmp 'Файл bmp
Me.Папка = myDir 'Каталог
Me.Рисунок.OLETypeAllowed = acOLEEmbedded 'Назначаем режим вставки
Me.Рисунок.SourceDoc = Me.Папка "\" Me.Файл 'Путь файла
Me.Рисунок.Action = acOLECreateEmbed 'Вставляем объект в таблицу
'Переход к новой записи
myBmp = Dir 'Новый файл bmp
DoCmd.RunCommand acCmdRecordsGoToNew ' Переходим на новую запись
Loop
DoCmd.RunCommand acCmdRecordsGoToFirst 'Начало записей
MsgBox "Рисунки загружены!", vbExclamation, "Графика"
Exit Sub
999:
MsgBox Err.Description 'Ошибка
Err.Clear
End Sub