Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Access
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 18.10.2012, 09:54   #1
Swatch
Форумчанин
 
Регистрация: 05.07.2009
Сообщений: 209
Печаль Как программно определить размер текущей БД?

Здравствуйте! Вопро в заголовке темы, может кто-нибудь подскажет? Мне нужно сжать текущую базу данных при достижении ею размера 1 ГБ . Как запустить программно сжатие, я знаю, а вот как наложить условие по размеру - нет... Помогите, пожалуйста!
Swatch вне форума Ответить с цитированием
Старый 18.10.2012, 13:48   #2
gluk_fm
Форумчанин
 
Аватар для gluk_fm
 
Регистрация: 09.06.2011
Сообщений: 515
По умолчанию

Можно попробовать как-то так:
Код:
Set db = CurrentDb
 Dim fs, f, s, h1
h1 = db.Name
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFile(h1)
    s = f.Size
gluk_fm вне форума Ответить с цитированием
Старый 18.10.2012, 21:32   #3
Myhaylo
Форумчанин
 
Регистрация: 19.07.2012
Сообщений: 520
По умолчанию

FileLen(CurrentDb.Name)
Окупант, руки прочь от Украины!!! Слава Героям!
Myhaylo вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как программно определить установлен ли драйвер. avd Общие вопросы Delphi 3 07.09.2012 13:11
Как программно определить IP Дамир Общие вопросы .NET 2 10.10.2010 19:20
как программно определить размер файла более 2 гб VIR1435 Общие вопросы Delphi 6 27.12.2009 10:55
Как программно определить зависшее приложение? Air Win Api 5 26.11.2007 00:30
Как определить размер кадра в AVI sun Общие вопросы C/C++ 1 18.11.2007 06:00