Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Microsoft Access Новый топик    Ответить
 Как удалить файл .MDB перед созданием новой его версии  [new]
vrepka
Member

Откуда:
Сообщений: 24
Function cteat_new_arhiv()
 On Error GoTo errorhandler

Dim MM As Integer
Dim yy As String

    
  
'*****************************************************************************


 
 
Set MYBAS = DBEngine.Workspaces(0).Databases(0)

Dim pathname As String


    MM = Forms![PERIOD]![MON]
    yy = Forms![PERIOD]![YAR]
    


pathname = "g:\arh_2010\MYARH_" & MM & yy & ".mdb"
___________________________________________________________
" если существует файл с этим именем, КАК ЕГО УДАЛИТЬ??"
_______________________________________________________

Set ARH_BAS = DBEngine.Workspaces(0).CreateDatabase(pathname, DB_LANG_GENERAL, DB_VERSION2000)
19 апр 10, 12:34    [8649560]     Ответить | Цитировать Сообщить модератору
 Re: Как удалить файл .MDB перед созданием новой его версии  [new]
big-duke
Member

Откуда:
Сообщений: 6639
vrepka, давайте-ка в Access
Модератор: Тема перенесена из форума "Microsoft Office".
19 апр 10, 12:36    [8649577]     Ответить | Цитировать Сообщить модератору
 Re: Как удалить файл .MDB перед созданием новой его версии  [new]
ё
Guest
If Dir(pathname) <> "" Then Kill(pathname) 
19 апр 10, 12:40    [8649625]     Ответить | Цитировать Сообщить модератору
 Re: Как удалить файл .MDB перед созданием новой его версии  [new]
vrepka
Member

Откуда:
Сообщений: 24
Огромное Спасибо.
19 апр 10, 15:36    [8651349]     Ответить | Цитировать Сообщить модератору
Все форумы / Microsoft Access Ответить