|
|
|
StatusBar
|
|||
|---|---|---|---|
|
#18+
Есть ли в Accesse Application.StatusBar?Хочу сделать примерно следующее:выполняешь программу, а на экране отображается статус выполнения в процентом соотношении. В excel это делается именно с помощью Application.StatusBar. вот так Код: plaintext 1. 2. 3. 4. 5. 6. 7. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 19.07.2007, 17:44 |
|
||
|
StatusBar
|
|||
|---|---|---|---|
|
#18+
Set All = CurrentDB().OpenRecordset("SELECT * FROM Table1") 'Инициализируем статус бар Bar = SysCmd(acSysCmdInitMeter, "Формування таблиці:", 100) ' Делаем переход на последнюю запись для того, что бы в ALL правельно подсчиталось к-во записей All.MoveLast All.MoveFirst Do While Not All.EOF() ' Перебираем весь АЛЛ в цикле и чё-то с ним делаем ' Длина прогрес-бара в статус баре равно к-ву записей в ALL - активная запись Bar = SysCmd(acSysCmdUpdateMeter, Int(All.PercentPosition)) LOOP Bar = SysCmd(acSysCmdClearStatus) ' Вернули всё как было ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 19.07.2007, 17:52 |
|
||
|
StatusBar
|
|||
|---|---|---|---|
|
#18+
Привет! Я сделала, как тут написано, все получилось. Но подскажите одну вещь: какой тип должен быть у переменной Bar? Я привыкла явно объявлять переменные и тип Variant использовать только в крайнем случае. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 23.01.2020, 16:58 |
|
||
|
StatusBar
|
|||
|---|---|---|---|
|
#18+
OkeTurel Я привыкла явно объявлять переменные и тип Variant использовать только в крайнем случае. это тот случай :) https://docs.microsoft.com/en-us/office/vba/api/access.application.syscmd Return value Variant ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 23.01.2020, 17:55 |
|
||
|
|
start [/forum/topic.php?fid=45&msg=34671230&tid=1610266]: |
0ms |
get settings: |
7ms |
get forum list: |
13ms |
check forum access: |
2ms |
check topic access: |
2ms |
track hit: |
60ms |
get topic data: |
9ms |
get forum data: |
2ms |
get page messages: |
44ms |
get tp. blocked users: |
1ms |
| others: | 13ms |
| total: | 153ms |
| 0 / 0 |
