Добро пожаловать в форум, Guest >> Войти | Регистрация | Поиск | Правила | | В избранное | Подписаться | ||
Все форумы / Microsoft Access |
![]() ![]() |
Топик располагается на нескольких страницах: ←Ctrl назад 1 [2] 3 4 вперед Ctrl→ все |
Лапух Member Откуда: Стойбище № 7 Сообщений: 1164 |
Панург, Фига себе. ![]() Зыканско!!! Беру на вооружение. |
28 июл 17, 08:03 [20681397] Ответить | Цитировать Сообщить модератору |
Финист Member Откуда: Сообщений: 87 |
А у меня ещё вопрос, если можно... Можно ли как то сделать, что бы работало при разделении базы, а папка Files создавалась в папке с таблицами? |
5 авг 17, 09:01 [20702395] Ответить | Цитировать Сообщить модератору |
Вакшуль Сергей Member Откуда: Харьков Сообщений: 420 |
Панург, здравствуйте, Насчет ограничения CheckWord, которое вы накладываете. Интересно. Не знал, что так можно. Сначала, подумал, а как же ограничение будет работать, если таблица tblDocuments выступит в качестве присоединенной. Оказалось, что если в тот файл accdb/mdb, куда присоединена таблица tblDocuments, добавить в стандартный модуль функцию CheckWord, то ограничение начнет работать! Причем логику уже можно подсунуть другую :) Но если работать с таблицей tblDocuments без среды Access, то ведь ограничение работать не будет? А почему просто не наложить это ограничение в конструкторе используя ValidationRule поля таблицы? |
5 авг 17, 14:31 [20702604] Ответить | Цитировать Сообщить модератору |
Панург Member Откуда: настоящему индейцу завсегда везде ништяк Сообщений: 5115 |
|
||||||
14 авг 17, 11:21 [20721231] Ответить | Цитировать Сообщить модератору |
Финист Member Откуда: Сообщений: 87 |
Вопрос по разделению базы с данным кодом актуален, да же очень... |
27 авг 17, 16:20 [20752101] Ответить | Цитировать Сообщить модератору |
13-й квартал
Guest |
ЧистА для справки: Злоумышленник. В конструкторе таблицы такой ValidationRule (с функцией VBA) не наложишь, конструктор не позволит. Только выполнением запроса. Без среды работать не будет.
|
|||
28 авг 17, 11:07 [20753032] Ответить | Цитировать Сообщить модератору |
Финист Member Откуда: Сообщений: 87 |
Подскажите почему в разделённой базе код не работает - файлы не копируются в папку files К сообщению приложен файл (Вар4.zip - 95Kb) cкачать ![]() |
13 сен 17, 21:42 [20794028] Ответить | Цитировать Сообщить модератору |
Панург Member Откуда: настоящему индейцу завсегда везде ништяк Сообщений: 5115 |
Финист, всё работает. Поставь ограничение на таблицу в файл-сервере. Функция CheckWord должна быть в обоих частях, хотя после установки, в части являющейся файл-сервером функцию CheckWord можно и убрать. Но будут ошибки если там вводить данные в таблицу. Главное чтобы была доступна функция с таким именем, а что она делает дело десятое. |
14 сен 17, 04:29 [20794310] Ответить | Цитировать Сообщить модератору |
Финист Member Откуда: Сообщений: 87 |
Панург, Прошу прощения, я не спец в Accsess. Какое ограничение установить на таблицу? Что то в свойствах? CheckWord. Скопировать модуль в файл-сервер? |
14 сен 17, 07:38 [20794375] Ответить | Цитировать Сообщить модератору |
Панург Member Откуда: настоящему индейцу завсегда везде ништяк Сообщений: 5115 |
Как правильно заметил ![]() К сообщению приложен файл. Размер - 88Kb |
||||
14 сен 17, 08:34 [20794437] Ответить | Цитировать Сообщить модератору |
Финист Member Откуда: Сообщений: 87 |
Панург, Я стараюсь, пытаюсь, читаю, только у меня ещё третий класс, а задачки пытаюсь решить для 10-го. Вобщем попробовал и вставить модуль в файл-сервер, и поставить уловие на значение, только так как показано у Вас на скане, у меня на абсолютно любое значение ругается. Поэтому я сделал так: Not Like '*[*|\:/""<>?]*' Та же ошибка. В момент прикрепления файла вылазит MsgBox "Ooopps!... Не смогли прикрепить файл!". И как мне кажется это вообще не связано с проверкой на запрещённые символы. Я вот думаю, если у Вас работает, то возможно у меня проблема в самом Accsess или настройках... может версия...? у меня 2010. |
14 сен 17, 14:59 [20796087] Ответить | Цитировать Сообщить модератору |
Панург Member Откуда: настоящему индейцу завсегда везде ништяк Сообщений: 5115 |
|
||||
15 сен 17, 04:36 [20797587] Ответить | Цитировать Сообщить модератору |
Финист Member Откуда: Сообщений: 87 |
Панург, Ещё вопрос, если можно. Как сделать, что бы прикрепляемые файлы сохранялись в папке с таблицами, а не с клиентской частью. Заменить CurrentProject.Path на что то? На что? |
17 сен 17, 19:55 [20801873] Ответить | Цитировать Сообщить модератору |
Панург Member Откуда: настоящему индейцу завсегда везде ништяк Сообщений: 5115 |
Финист, находи какую-нибудь прилинкованную таблицу, узнавай у неё путь до файл-сервера и в путь. ![]() Как это сделать ищи по форуму... |
18 сен 17, 04:07 [20802291] Ответить | Цитировать Сообщить модератору |
Финист Member Откуда: Сообщений: 87 |
Панург, Найти путь? CurrentDb.TableDefs("Табл").Connect. Так? Только всё равно не получается, если я просто вместо CurrentProject.Path. Упс. Не смогли прикрепить файл. |
18 сен 17, 20:14 [20804532] Ответить | Цитировать Сообщить модератору |
Панург Member Откуда: настоящему индейцу завсегда везде ништяк Сообщений: 5115 |
К сообщению приложен файл (07.zip - 99Kb) cкачать ![]() |
||
19 сен 17, 07:17 [20804871] Ответить | Цитировать Сообщить модератору |
Финист Member Откуда: Сообщений: 87 |
Простите, но это уже высший пилотаж. Хорошо, если у меня получится адаптировать к своей базе. Пока сижу с букварём, перевожу что там к чему... |
19 сен 17, 21:43 [20807398] Ответить | Цитировать Сообщить модератору |
saliiyut Member Откуда: Москва Сообщений: 1 |
!!! |
21 сен 17, 20:00 [20813571] Ответить | Цитировать Сообщить модератору |
Финист Member Откуда: Сообщений: 87 |
Адаптировать получилось. Стала вылазить ошибка в другой части кода, но я с ней разобрался. Так что всё замечательно. Большое спасибо за помощь! |
22 сен 17, 06:30 [20814280] Ответить | Цитировать Сообщить модератору |
Между сообщениями интервал более 1 года. |
Сергей Ком Member Откуда: Сообщений: 3 |
Панург, очень полезная программа. Только вот не могу понять почему она со связанными таблицами не работает. Было бы очень хорошо. Суть: база с таблицами болтается на сервере, а пользователи работают по связанным с ней таблицам. У меня есть свой рабочий проект. Но он немного не такой. Вот хотелось бы разобраться. |
7 дек 18, 15:43 [21757178] Ответить | Цитировать Сообщить модератору |
Панург Member Откуда: настоящему индейцу завсегда везде ништяк Сообщений: 5115 |
|
||
7 дек 18, 16:37 [21757297] Ответить | Цитировать Сообщить модератору |
Сергей Ком Member Откуда: Сообщений: 3 |
Панург, О которой тут идет речь (пусть будет называться процедура))) Просто у меня не получается заставить ее работать на связанных таблицах. Вот пытають разобраться. |
10 дек 18, 08:27 [21758773] Ответить | Цитировать Сообщить модератору |
Панург Member Откуда: настоящему индейцу завсегда везде ништяк Сообщений: 5115 |
|
||
10 дек 18, 09:37 [21758803] Ответить | Цитировать Сообщить модератору |
Сергей Ком Member Откуда: Сообщений: 3 |
Панург, спасибо за внимание. Я вроде уже разобрался. |
10 дек 18, 10:39 [21758854] Ответить | Цитировать Сообщить модератору |
RusGor Member Откуда: Сообщений: 27 |
Панург, день добрый! Спасибо за ваш труд, прошу проверить на сколько правильно исправил под свои задачи. Возможно можно проще написать или как то логичнее. Что исправил: 1) Новая запись в таблице tblAttachedFiles, написал как ниже, чтобы не создавать еще один столбец и в поле FileName таблицы tblAttachedFiles записывалось конечное название файла .AddNew .Fields(1) = Me.DocID .Fields(2) = Mid(strFileName, InStrRev(strFileName, "\") + 1) .Fields(2) = (Me.Text_ + "_") & CStr(.Fields(1)) & "_" & CStr(.Fields(0)) & Mid(.Fields(2), InStrRev(.Fields(2), ".")) .Update .Bookmark = .LastModified strFileNameNew = CurrentProject.Path & "\Files\" & .Fields(2) Может можно проще написать 2) в запросе Form_Current() убрал "tblDocuments.Text_" Зачем его выбирать для вывода в форме, если есть имя файла? .RowSource = "SELECT tblAttachedFiles.FileID, tblAttachedFiles.FileName, tblAttachedFiles.DocID " & _ "FROM tblDocuments RIGHT JOIN tblAttachedFiles ON tblDocuments.DocID = tblAttachedFiles.DocID " & _ "WHERE tblAttachedFiles.DocID=" & CStr(Me.DocID) & " AND Not tblAttachedFiles.IsRemote;" К сообщению приложен файл (Test.zip - 86Kb) cкачать ![]() |
20 ноя 19, 14:05 [22020629] Ответить | Цитировать Сообщить модератору |
Топик располагается на нескольких страницах: ←Ctrl назад 1 [2] 3 4 вперед Ctrl→ все |
Все форумы / Microsoft Access | ![]() |