| |
|
|
| | Есть в модуле формы конструкция:
Dim flx As MSHFlexGrid
Set flx = Me.fnFlxgr.Object
Периодически вываливается с ошибкой "Type mismatch", меняем на
Set flx = Me!fnFlxgr.Object
всё продолжает работать до следующего раза...
Закономерности уловить никак не могу.
Может кто сталкивался с таким?
Спаибо заранее. | |
| |
| |
| |
|
|
| | по канонам нужно "!"
Set flx = Me!fnFlxgr.Object
Попробуйте поменять на
me("fnFlxgr").Object
или
me.controls(("fnFlxgr").Object | |
| |
| |
| |
|
|
| | Попробую, потестю, отчитаюсь. | |
| |
| |
| |
|
|
| | а через dot ссылка "прямее"  .
На подчиненной форме поэкспериментируем:
Private Sub btnTest_Click()
Dim start As Long
Dim i As Integer, j As Integer
Dim subForm As Form
For j = 1 To 10
For i = 0 To 30000
start = i
Next i
Next j
DoEvents
For j = 1 To 10
start = apiTimeGetTime
For i = 0 To 10000
Set subForm = Me.frmChilds.Form
Next i
Debug.Print j & " .=", apiTimeGetTime - start
DoEvents
start = apiTimeGetTime
For i = 0 To 10000
Set subForm = Me!frmChilds.Form
Next i
Debug.Print j & " !=", apiTimeGetTime - start
Debug.Print "-------------------"
DoEvents
Next j
End Sub
|
Результаты:
1 .= 128
1 != 188
-------------------
2 .= 141
2 != 156
-------------------
3 .= 109
3 != 141
-------------------
4 .= 109
4 != 188
-------------------
5 .= 125
5 != 187
-------------------
6 .= 125
6 != 188
-------------------
7 .= 125
7 != 172
-------------------
8 .= 125
8 != 172
-------------------
9 .= 141
9 != 172
-------------------
10 .= 110
10 != 172
-------------------
|
| |
| |
| |
| |
|
|
| | с такой же фигней неоднократно сталкивался, "метод" - тот же ручками меняем на !
до сих пор не пойму почему его "выносит" иногда. одно слово MicroSoft | |
| |
| |
| |
|
|
| | сори за офтопик.
Ага... все кто так действительно считает (не в обиду ) рекомендую перейти на линукс, или попробовать продукты других фирм, например IBM, например DB2 или Lotus Domino.... 
При всех "+" этих продуктов в них столько разных фич и багов (которые считаются фичами), что диву даешься.
Недавний пример.
Нужно было в Lotus Quickr services for Lotus Domino увеличить размер разрешенного к аплоаду файла...
Так вот, что бы заработало, нужно поменять параметры в 4-х разных настроечных документах (1 в документе Lotus Quickr и 3 в Lotus Domino). Причем не просто поменять, а с бубном, изменяя а потом возвращая назад настройки не связанные с уснановкой размера загружаемого файла.
Причем в help это не указано, нашел после 2-х дней поисков причем компяляцией из 3-х разных источников.
Хотя лично мне, Domino нравится, просто нужно к багам относиться проще  | |
| |
| |
|
|
| |
|
|
| | Всё равно "пробивает" :(((
Поставил обработчик ошибок - если Me!fnFlxgr.Object не подходит, значит будем ставить Me.fnFlxgr.Object ... ну и наёборот :) Пока работает :) | |
| |
| |
| |
|
|
| | А указывать имя библиотеки перед именем класса при декларировании не пробовали?
Вроде как MSHierarchicalFlexGridLib. | |
| |
| |
| |
|
|
| | А можно вопрос? У меня есть Куча DBF файлов, причём количество их всегда разное. Для одного файла я в Ацесе сделал запрос, он меня устраивает. А как сделать, чтобы ацес брал ВСЕ файлы из папки, применял к каждому мой запрос, и выводил результат, при этом считая количество файлов? | |
| |
| |
| |
|
|
| | help по
dir
Querydef.sql
конструкции SELECT .... IN | |
| |
| |
