Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Microsoft Access Новый топик    Ответить
Топик располагается на нескольких страницах: Ctrl  назад   1 2 3 4 [5] 6 7 8 9 10 .. 278   вперед  Ctrl
 Re: Лесенка с правилами [основана 10 сен 12] [OFF]  [new]
studieren
Member

Откуда: Tashkent, Uzbekistan
Сообщений: 2824
Прошу прошения, что здесь немного "офтопничаю".
Блин забыл как программно поменять папку в окне диалога. Я имею ввиду Ctrl +O (именно окно диалога в MS Access).
ChDir, ChDrive что-то не даёт эффекта.
Неужели для этого обязательно надо сначала запоминать
strFolder = Application.GetOption("Default Database Directory")
и только потом обратно вернуть?
Application.SetOption "Default Database Directory", strFolder


Что-то мне не очень нравиться такой приёмчик.

Я хочу временно поменять папку в этом окне и при этом не трогать "Default Database Directory".
14 сен 12, 09:25    [13162105]     Ответить | Цитировать Сообщить модератору
 Re: Лесенка с правилами [основана 10 сен 12] [OFF]  [new]
qwerty112
Guest
studieren
Я имею ввиду Ctrl +O (именно окно диалога в MS Access).

сервис -параметры - общие - Рабочий каталог

это ?
или нужно программно ?
14 сен 12, 09:36    [13162152]     Ответить | Цитировать Сообщить модератору
 Re: Лесенка с правилами [основана 10 сен 12] [OFF]  [new]
qwerty112
Guest
studieren
...
Я хочу временно поменять папку в этом окне и при этом не трогать "Default Database Directory".

или, может вот это нужно ?
  Dim dlgOpenFile As Object ' FileDialog
  Set dlgOpenFile = Application.FileDialog(1) 'msoFileDialogOpen 
  With dlgOpenFile
    .Filters.Clear
    .InitialFileName = CurrentProject.path
    .AllowMultiSelect = False
    .Title = "ляляля"
    If (.Show = -1) And (.SelectedItems.Count > 0) Then
      МаёПоле.Value = .SelectedItems(1)
    End If
  End With
  Set dlgOpenFile = Nothing
14 сен 12, 09:41    [13162175]     Ответить | Цитировать Сообщить модератору
 Re: Лесенка с правилами [основана 10 сен 12] [OFF]  [new]
studieren
Member

Откуда: Tashkent, Uzbekistan
Сообщений: 2824
qwerty112,

Я наверное не так выразился. Короче хочу программно подменить папку таким образом, чтобы при нажатии Ctrl+O оказаться в нужной папке. Но при этом не хочу, чтобы другие базы "пострадали". Т.е. свойство "Default Database Directory" не трогать. Как то так.
14 сен 12, 09:43    [13162181]     Ответить | Цитировать Сообщить модератору
 Re: Лесенка с правилами [основана 10 сен 12] [OFF]  [new]
studieren
Member

Откуда: Tashkent, Uzbekistan
Сообщений: 2824
Или как вариант сделать персональное свойство "Default Database Directory" для только 1 базы. Возможно ли так?
14 сен 12, 09:45    [13162200]     Ответить | Цитировать Сообщить модератору
 Re: Лесенка с правилами [основана 10 сен 12] [OFF]  [new]
qwerty112
Guest
studieren
qwerty112,

Я наверное не так выразился. Короче хочу программно подменить папку таким образом, чтобы при нажатии Ctrl+O оказаться в нужной папке. Но при этом не хочу, чтобы другие базы "пострадали". Т.е. свойство "Default Database Directory" не трогать. Как то так.

угу, понял

тогда, не скажу - не знаю ...
просто это свойство (Default Database Directory) - это свойство Акцесса, а не БД,
поэтому "влияет" на все вновь открытые БД ...
14 сен 12, 09:47    [13162215]     Ответить | Цитировать Сообщить модератору
 Re: Лесенка с правилами [основана 10 сен 12] [OFF]  [new]
studieren
Member

Откуда: Tashkent, Uzbekistan
Сообщений: 2824
Интересно а какую работу тогда делает ChDir, ChDrive?
По идее в хлепе написано так:
help
ChDir Statement
Changes the current directory or folder.

ChDrive Statement
Changes the current drive.

Но они ни как не влияют на диалоговое окно Access'а при нажатии Ctrl+O.
14 сен 12, 10:20    [13162471]     Ответить | Цитировать Сообщить модератору
 Re: Лесенка с правилами [основана 10 сен 12] [OFF]  [new]
qwerty112
Guest
studieren
Интересно а какую работу тогда делает ChDir, ChDrive?
...

аа, это "досовские аттавизмы" ВБ
"current directory or folder" это "в понимании ДОС", - текущий каталог,
а к файлам "текущего каталога", можно обращатся (всякими Open, Dir и т.д) БЕЗ указания пути
Sub test()
    Dim FileName As String
    ChDir ("C:\WINDOWS")
    FileName = Dir("*.ini")
    Do While FileName <> ""
        Debug.Print FileName
        FileName = Dir
    Loop
    '
    Debug.Print "----------------"
    '
    ChDir ("C:\WINDOWS\system32")
    FileName = Dir("*.ini")
    Do While FileName <> ""
        Debug.Print FileName
        FileName = Dir
    Loop
End Sub

вообщем, "штука" бесполезная, имхо,
я даже не могу вспомнить что бы её когда нибудь использовал ... :))
14 сен 12, 10:45    [13162688]     Ответить | Цитировать Сообщить модератору
 Re: Лесенка с правилами [основана 10 сен 12] [OFF]  [new]
studieren
Member

Откуда: Tashkent, Uzbekistan
Сообщений: 2824
qwerty112,

Thanks. :)
Значит "атавизм VB" говорите. :)
14 сен 12, 10:56    [13162788]     Ответить | Цитировать Сообщить модератору
 Re: Лесенка с правилами [основана 10 сен 12] [OFF]  [new]
адв
Guest
qwerty112
13161010
Владимир Саныч
пропущено...

Желаю скорейшего и срочнейшего выздоровления!

+1
mds_world,

выздоравливай скорее !
"не время сейчас болеть" :))
и мои пожелния выздоровления.
14 сен 12, 11:09    [13162902]     Ответить | Цитировать Сообщить модератору
 Re: Лесенка с правилами [основана 10 сен 12] [OFF]  [new]
studieren
Member

Откуда: Tashkent, Uzbekistan
Сообщений: 2824
Владимир Саныч
пропущено...
Желаю скорейшего и срочнейшего выздоровления!
+1000000!!!
mds_world,
Крепкого Вам здоровья и не болейте более!

qwerty112
13161010
пропущено...
mds_world,
выздоравливай скорее !
"не время сейчас болеть" :))

А разве бывает время когда можно болеть? Мне кажется болезнь всегда некстати. :)
14 сен 12, 11:37    [13163224]     Ответить | Цитировать Сообщить модератору
 Re: Лесенка с правилами [основана 10 сен 12] [OFF]  [new]
mds_world
Member

Откуда: Ташкент
Сообщений: 27514
Спасибо, друзья. Постараюсь не болеть.

Мужиков нельзя лишать работы. Они от этого дохнут.


Лесенка с правилами [основана 10 сен 12] [OFF]
Сколько перемен за время вынужденного отсутствия?!...
14 сен 12, 13:19    [13164347]     Ответить | Цитировать Сообщить модератору
 Re: Лесенка с правилами [основана 10 сен 12] [OFF]  [new]
зоранее благодарень
Member [заблокирован]

Откуда:
Сообщений: 5466
studieren
Возможно ли так?


для этого используйте Database Propeties
14 сен 12, 16:01    [13165947]     Ответить | Цитировать Сообщить модератору
 Re: Лесенка с правилами [основана 10 сен 12] [OFF]  [new]
studieren
Member

Откуда: Tashkent, Uzbekistan
Сообщений: 2824
зоранее благодарень
studieren
Возможно ли так?


для этого используйте Database Propeties

И как же сделать так, чтобы это свойство повлияло на Ctrl+O только для избранной базы?
В смысле не для всех баз, а только для определённой базе?
Сделать что-то вроде ChDir, но только так, чтобы имел эффект при нажатии Ctrl+O.
14 сен 12, 16:39    [13166256]     Ответить | Цитировать Сообщить модератору
 Re: Лесенка с правилами [основана 10 сен 12] [OFF]  [new]
qwerty112
Guest
studieren
зоранее благодарень
пропущено...


для этого используйте Database Propeties

И как же сделать так, чтобы это свойство повлияло на Ctrl+O только для избранной базы?
В смысле не для всех баз, а только для определённой базе?
Сделать что-то вроде ChDir, но только так, чтобы имел эффект при нажатии Ctrl+O.

а сделать "свой" Ctrl+O, в этой базе - не вариант ?
нуу, в смысле макрос AutoKeys -> ^O - > ЗапускПрограммы -> и тут, своя функция, которая будет открывать диалог выбора файла и тд и тп
?
14 сен 12, 16:49    [13166300]     Ответить | Цитировать Сообщить модератору
 Re: Лесенка с правилами [основана 10 сен 12] [OFF]  [new]
Владимир Саныч
Member

Откуда: Израиль (причем это 1 человек, а не 2 => прошу на ты)
Сообщений: 40413
mds_world
Лесенка с правилами [основана 10 сен 12] [OFF]
Сколько перемен за время вынужденного отсутствия?!...

Одна. Но длинннннннная...
14 сен 12, 16:51    [13166321]     Ответить | Цитировать Сообщить модератору
 Re: Лесенка с правилами [основана 10 сен 12] [OFF]  [new]
Старый ворчун
Member

Откуда:
Сообщений: 1653
mds_world
Спасибо, друзья. Постараюсь не болеть.

Мужиков нельзя лишать работы. Они от этого дохнут.


Желаю здоровья и работы. Но отдыхать тоже надо и спать все же побольше, чем 4 часа.
15 сен 12, 06:58    [13168429]     Ответить | Цитировать Сообщить модератору
 Re: Лесенка с правилами [основана 10 сен 12] [OFF]  [new]
alvk.
Member [заблокирован]

Откуда: г.Находка
Сообщений: 446
13182623
сам увёл, а на меня спирает, понапихать спорных конструкций и думать что все промолчат - чушь,
значит с умыслом.
18 сен 12, 14:41    [13182762]     Ответить | Цитировать Сообщить модератору
 Re: Лесенка с правилами [основана 10 сен 12] [OFF]  [new]
адв
Guest
alvk.,

в чём спорность конструкций?

Во-первых, я написал
adv
В этом примере согласен, форм можно опустить.
Во-вторых, по ссылке на русском написано:
автор
Form
You can use the Form property to refer to a form or to refer to the form associated with a subformcontrol. Read-only Form.
т. е. криминала вместо me использовать me.form нет, обращение будет в одну и ту же сторону.

В-третьих, вот пример с сабформой, где form необходимо указывать: 9675451

Надеюсь, "всем" понятна моя точка зрения ;)
18 сен 12, 14:54    [13182894]     Ответить | Цитировать Сообщить модератору
 Re: Лесенка с правилами [основана 10 сен 12] [OFF]  [new]
alvk.
Member [заблокирован]

Откуда: г.Находка
Сообщений: 446
адв,

так и надо было с самого начала, без посылов, я бы не ворчал.
теперь всем "понятна" ваша точка зрения.
18 сен 12, 15:04    [13182992]     Ответить | Цитировать Сообщить модератору
 Re: Лесенка с правилами [основана 10 сен 12] [OFF]  [new]
адв
Guest
С самого начала так и было
18 сен 12, 15:08    [13183014]     Ответить | Цитировать Сообщить модератору
 Re: Лесенка с правилами [основана 10 сен 12] [OFF]  [new]
NickBell
Member

Откуда: Tbilisi
Сообщений: 2862
адв
С самого начала так и было ЗАДУМАНО
18 сен 12, 15:10    [13183025]     Ответить | Цитировать Сообщить модератору
 Re: Лесенка с правилами [основана 10 сен 12] [OFF]  [new]
alvk.
Member [заблокирован]

Откуда: г.Находка
Сообщений: 446
NickBell
адв
С самого начала так и было ЗАДУМАНО

+1
18 сен 12, 15:11    [13183035]     Ответить | Цитировать Сообщить модератору
 Re: Лесенка с правилами [основана 10 сен 12] [OFF]  [new]
alvk.
Member [заблокирован]

Откуда: г.Находка
Сообщений: 446
13183497

За плюсиком можно оффтопить?
18 сен 12, 16:04    [13183508]     Ответить | Цитировать Сообщить модератору
 Re: Лесенка с правилами [основана 10 сен 12] [OFF]  [new]
Владимир Саныч
Member

Откуда: Израиль (причем это 1 человек, а не 2 => прошу на ты)
Сообщений: 40413
alvk.
13183497

За плюсиком можно оффтопить?

Нельзя. Я потом всё постираю.
18 сен 12, 16:25    [13183636]     Ответить | Цитировать Сообщить модератору
Топик располагается на нескольких страницах: Ctrl  назад   1 2 3 4 [5] 6 7 8 9 10 .. 278   вперед  Ctrl
Все форумы / Microsoft Access Ответить