Создание папки при создании новой записи в форме Access

@subnik · Регистрация: 31.03.2020

Студворк — интернет-сервис помощи студентам

Здравствуйте, уважаемые форумчане! Прошу помощи, т.к. сам не владею достаточным объемом знаний в области Access, есть база данных, где есть форма гражданин, хочу чтобы при добавлении нового гражданина создавалась папка соответствующая этому гражданину по полю первичного ключа КодГражданина, как мне это сделать средствами VBA (Access 2010),спасибо.

mobile · 07.04.2020, 23:10

Сообщение от subnik

чтобы при добавлении нового гражданина создавалась папка соответствующая этому гражданину по полю первичного ключа КодГражданина

В форме заполнения граждан, на событии После вставки (AfterInsert) формы пишете команду создания папки. Правда Вы не указали, что делать если такая папка уже есть, поэтому будем обходить по ошибке.
В процедуре на событии пишем

Visual Basic
1
2
On Error resume next                ' Обход ошибки
mkdir "C:\путь\" & Me.КодГражданина ' Создание папки

@subnik · 08.04.2020, 06:10 **[ТС]**

mobile, это класс, всегда читаю ваши ответы в других темах очень помогает, как и сейчас и да действительно вы правильно заметили, а что необходимо дописать, если папка существует?

shanemac51 · 08.04.2020, 06:43

Сообщение от subnik

чтобы при добавлении нового гражданина создавалась папка соответствующая этому гражданину по полю первичного ключа КодГражданина

у меня сразу возникли вопросы
- сколько граждан в базе
- сколько различных документов будет в этом каталоге
- имя=КодГражданина, как находясь в файловой системе понять чья папка 157 или 1261, актуален ли этот гражданин или это уже архив

@subnik · 08.04.2020, 10:26 **[ТС]**

Прилагаю базу

@subnik · 08.04.2020, 10:28 **[ТС]**

Граждан в базе планируется более 1000, планирую на каждого гражданина создать три папки фото,видео, файлы

shanemac51 · 08.04.2020, 12:16

Сообщение от subnik

планирую на каждого гражданина создать три папки фото,видео, файлы

значит итого получается примерно 4000 папок

mobile · 08.04.2020, 12:33

Сообщение от subnik

а что необходимо дописать, если папка существует?

Очевидно обход ее создания. Либо анализом ошибки, либо предварительным поиском существования папки до попытки создания. Например с помощью функции Dir с параметром vbDirectory. Типа такого

Visual Basic
1
2
3
if dir(путь & "\" & Me.КодГражданина) = "" 'Если пусто то такой папки нет. Иначе обойти команду создания папки
   mkdir путь & "\" & Me.КодГражданина
end if

В ближайшее время посмотреть Вашу БД не смогу, нет возможности.

@subnik · 08.04.2020, 13:16 **[ТС]**

Спасибо , попробую. Да 4000 папок многовато...... ну тогда папка гражданина пусть создается автоматически а в ней уже через проводник создавать папки и делать на них ссылки. Спасибо за помощь!!!

Новые блоги и статьи Все статьи Все блоги /
Символьное дифференцирование igorrr37 13.02.2026 / * Программа принимает математическое выражение в виде строки и выдаёт его производную в виде строки и вычисляет значение производной при заданном х Логарифм записывается как: (x-2)log(x^2+2) -. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .

@subnik 0 / 0 / 0 Регистрация: 31.03.2020 Сообщений: 27

	Создание папки при создании новой записи в форме Access 07.04.2020, 22:47. Показов 2087. Ответов 8 Метки нет (Все метки) Здравствуйте, уважаемые форумчане! Прошу помощи, т.к. сам не владею достаточным объемом знаний в области Access, есть база данных, где есть форма гражданин, хочу чтобы при добавлении нового гражданина создавалась папка соответствующая этому гражданину по полю первичного ключа КодГражданина, как мне это сделать средствами VBA (Access 2010),спасибо. 0

@subnik 0 / 0 / 0 Регистрация: 31.03.2020 Сообщений: 27
	08.04.2020, 06:10 [ТС]
	mobile, это класс, всегда читаю ваши ответы в других темах очень помогает, как и сейчас и да действительно вы правильно заметили, а что необходимо дописать, если папка существует? 0

@subnik 0 / 0 / 0 Регистрация: 31.03.2020 Сообщений: 27
	08.04.2020, 10:28 [ТС]
	Граждан в базе планируется более 1000, планирую на каждого гражданина создать три папки фото,видео, файлы 0

@subnik 0 / 0 / 0 Регистрация: 31.03.2020 Сообщений: 27
	08.04.2020, 13:16 [ТС]
	Спасибо , попробую. Да 4000 папок многовато...... ну тогда папка гражданина пусть создается автоматически а в ней уже через проводник создавать папки и делать на них ссылки. Спасибо за помощь!!! 0