ReSQL.ru
     
powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / VBA Найти/удалить объект Access, содержащий любые символы
17 сообщений из 17, страница 1 из 1
VBA Найти/удалить объект Access, содержащий любые символы
    #40023617
Лысёк
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Лысёк
Гость
Требуется написать модуль VBA, который при открытии базы данных удаляет таблицу с любым именем (или все таблицы, при этом имена таблиц любые). (Access 2016).
...
Рейтинг: 0 / 0
01.12.2020, 13:25
| Ответить | Цитировать | Написать  
VBA Найти/удалить объект Access, содержащий любые символы
    #40023627
Лысёк
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Лысёк
Гость
Со срабатыванием при открытии разобрался, для этого необходимо создать макрос с именем Autoexec, в который можно вставить что угодно, полный ответ тут https://www.sql.ru/forum/429654/autoexec-zapusk-modulya
Теперь нужно чтобы команда
Код: vbnet
1.
DoCmd.DeleteObject acTable, "Таблица1"


удаляла таблицу с любым именем.
...
Рейтинг: 0 / 0
01.12.2020, 13:53
| Ответить | Цитировать | Написать  
VBA Найти/удалить объект Access, содержащий любые символы
    #40023631
ldfanate
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ldfanate
Участник
напомнило древний фидошный письмо, которое "опасный вирус-троян" рассылал, предлагая себя разослать дальше и стереть всё с диска C:
...
Рейтинг: 0 / 0
01.12.2020, 14:00
| Ответить | Цитировать | Написать  
VBA Найти/удалить объект Access, содержащий любые символы
    #40023633
Лысёк
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Лысёк
Гость
ldfanate
напомнило древний фидошный письмо, которое "опасный вирус-троян" рассылал, предлагая себя разослать дальше и стереть всё с диска C:

Нет. Просто информация составляет тайну, и не должна быть доступна посторонним, если к ним попадет файл базы. Версия с паролем не канает, но это другая история.
...
Рейтинг: 0 / 0
01.12.2020, 14:09
| Ответить | Цитировать | Написать  
VBA Найти/удалить объект Access, содержащий любые символы
    #40023636
ROI
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ROI
Участник
Лысёк
ldfanate
напомнило древний фидошный письмо, которое "опасный вирус-троян" рассылал, предлагая себя разослать дальше и стереть всё с диска C:

Нет. Просто информация составляет тайну, и не должна быть доступна посторонним, если к ним попадет файл базы. Версия с паролем не канает, но это другая история.

Тады надо внедрять защиту от "шифта".
Можно просто присоединить (от этого тоже надо защищать).
Судя по вашему опыту(вы сможете защитить, только от себя)
...
Рейтинг: 0 / 0
01.12.2020, 14:11
| Ответить | Цитировать | Написать  
VBA Найти/удалить объект Access, содержащий любые символы
    #40023649
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
ROI

....Судя по вашему опыту(вы сможете защитить, только от себя)
Не факт-даже это может не удастся
Защита информации,пожалуй,один из самых сложных вопросов-решение его очень творческий процесс и удаление объектов не есть лучший вариант. Для начала просто покопайте в сторону разграничения прав, защиты от Shift(уже посоветовали),запрет копирования и т.д и т.п
А если уж речь о какой-то "сверхсекретности" ACCESS не самый лучший(хотя и не плохой, но для надежной защиты он должен работать в связке с системой)инструмент.
...
Рейтинг: 0 / 0
01.12.2020, 14:56
| Ответить | Цитировать | Написать  
VBA Найти/удалить объект Access, содержащий любые символы
    #40023680
Лысёк
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Лысёк
Гость
Хотел через цикл, но ругается.
Код: vbnet
1.
2.
3.
4.
5.
6.
Public Sub DropTab()
Dim tbl As TableDef
For Each tbl In CurrentDb.TableDefs
CurrentDb.TableDefs.Delete tbl.name
Next
End Sub


"У вас недостаточно разрешений для использования объекта "MSysACEs". Необходимые разрешения должны быть предоставлены системным администратором или пользователем, создавшим этот объект".
Походу невозможно. Нигде нету решения.
...
Рейтинг: 0 / 0
01.12.2020, 16:09
| Ответить | Цитировать | Написать  
VBA Найти/удалить объект Access, содержащий любые символы
    #40023698
Фотография Панург
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Панург
Участник
Лысёк
Просто информация составляет тайну, и не должна быть доступна посторонним, если к ним попадет файл базы.
смишно...

Lasciate ogni speranza, voi ch’entrate (с)
...
Рейтинг: 0 / 0
01.12.2020, 16:46
| Ответить | Цитировать | Написать  
VBA Найти/удалить объект Access, содержащий любые символы
    #40023701
Фотография Панург
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Панург
Участник
Лысёк, Шифрование базы данных с помощью пароля
я этим лично никогда не занимался...
...
Рейтинг: 0 / 0
01.12.2020, 16:48
| Ответить | Цитировать | Написать  
VBA Найти/удалить объект Access, содержащий любые символы
    #40023702
Фотография Панург
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Панург
Участник
Лысёк
Походу невозможно. Нигде нету решения.
а зачем ты удаляешь системные таблицы?
...
Рейтинг: 0 / 0
01.12.2020, 16:50
| Ответить | Цитировать | Написать  
VBA Найти/удалить объект Access, содержащий любые символы
    #40023707
Лысёк
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Лысёк
Гость
Панург
Лысёк
Походу невозможно. Нигде нету решения.
а зачем ты удаляешь системные таблицы?

прописывал условие, чтобы удалять только если имя таблицы <> имя системной таблицы, но результата не даёт, пишет тоже самое.
...
Рейтинг: 0 / 0
01.12.2020, 17:01
| Ответить | Цитировать | Написать  
VBA Найти/удалить объект Access, содержащий любые символы
    #40023710
Лысёк
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Лысёк
Гость
Панург
Лысёк, Шифрование базы данных с помощью пароля
я этим лично никогда не занимался...

вариант с паролем отпадает, объяснять долго.
...
Рейтинг: 0 / 0
01.12.2020, 17:05
| Ответить | Цитировать | Написать  
VBA Найти/удалить объект Access, содержащий любые символы
    #40023714
Лысёк
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Лысёк
Гость
Уря! Накопал рабочий вариант
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
Public Sub DropTab()
Dim tbl As TableDef
For Each tbl In CurrentDb.TableDefs
Debug.Print tbl.Name
If Left(tbl.Name, 1) = "Т" Then
CurrentDb.TableDefs.Delete tbl.Name
End If
Next
End Sub


Удаляет все таблицы, начинающиеся с буквы Т. Большего мне не нужно. Всем спасибо, мира и добра.
...
Рейтинг: 0 / 0
01.12.2020, 17:25
| Ответить | Цитировать | Написать  
VBA Найти/удалить объект Access, содержащий любые символы
    #40023731
Фотография Панург
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Панург
Участник
Лысёк
Удаляет все таблицы, начинающиеся с буквы Т. Большего мне не нужно. Всем спасибо, мира и добра.
хрень, закладываться на полного нуля это то ещё решение.
...
Рейтинг: 0 / 0
01.12.2020, 18:48
| Ответить | Цитировать | Написать  
VBA Найти/удалить объект Access, содержащий любые символы
    #40023736
Фотография Панург
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Панург
Участник
Лысёк
прописывал условие, чтобы удалять только если имя таблицы <> имя системной таблицы, но результата не даёт, пишет тоже самое.


Лысёк
Код: vbnet
1.
If (tbl.Attributes and dbSystemObject)=0 Then

...
Рейтинг: 0 / 0
01.12.2020, 18:59
| Ответить | Цитировать | Написать  
VBA Найти/удалить объект Access, содержащий любые символы
    #40023737
Фотография Панург
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Панург
Участник
Лысёк
Код: vbnet
1.
For Each tbl In CurrentDb.TableDefs

и коллекцию в таких случаях лучше с конца перебирать...
...
Рейтинг: 0 / 0
01.12.2020, 19:01
| Ответить | Цитировать | Написать  
VBA Найти/удалить объект Access, содержащий любые символы
    #40023767
bubucha
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bubucha
Участник
Тс, читай выше между строк - что бы получить доступ к "секретным таблицам", не обязательно открывать сам файл, а коль сам файл не открывается, то весь твой деструктивный код по удалению таблиц идет лесом...
зы с другой стороны, хозяин-барин
...
Рейтинг: 0 / 0
01.12.2020, 20:39
| Ответить | Цитировать | Написать  
17 сообщений из 17, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / VBA Найти/удалить объект Access, содержащий любые символы
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&fpage=11&tid=1609857]:
 0ms
get settings:
 12ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 67ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 50ms
get tp. blocked users:
 1ms
others: 14ms
total:  181ms
созд. / загр.: 181ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]