Не, ну я балдею простооооо!
Закидайте меня дохлыми енотами, уничтожьте словечками обидными, ламером обзовите...
Либо я совершенно не понимаю особенности передачи управления между аксессовскими формами, либо во всей этой байде какие-то фундаментальные кривульки заложены и постоянно на рыло свиное натыкаешься.
Объясняю.
Изобрел для своих нужд форму (Progress)- по сути некая мерцающая по таймеру картинка, говорящая о том, что юзер в настоящий момент производит какие-то специальные действия и надо быть внимательным. Форма состоит из BoundObjectFrame (thanx Саныч) - собственно меняющийся кадр (Me.Kadr), в нем можно или женщину голую разместить, или призывы типа "НЕ ОТЛУЧАЙТЕСЬ! Завершите операцию.", и текстового поля, в котором НЕ мерцает текстовая инструкция. Обращаться хотел из разных мест, чтобы при вызове просто менять требуемые картинки и инструкции. Вот текст модулей формы.
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
Option Compare Database
Public Counter As Long, NumOfKadr As Long
Public StandardBar As String
Public rs As DAO.Recordset
Private Sub Form_Load()
Counter = 0
StandardBar = "ProgressBar1" 'В таблице ProgressBar1 - покадрово мультик
If Not IsNull(Me.OpenArgs) Then
StandardBar = Me.OpenArgs
End If
Set rs = CurrentDb.OpenRecordset(StandardBar)
NumOfKadr = rs.RecordCount
End Sub
Private Sub Form_Timer()
Dim i As Long
Counter = Counter + 1
With rs
.MoveFirst
i = 0
Do Until .EOF
If (Counter Mod NumOfKadr) = i Then
Me.Kadr = rs!Picture
DoEvents
Exit Sub
End If
.MoveNext
i = i + 1
Loop
End With
End Sub
Теперь дальше. Есть основная форма (Form) - single, типа карточки клиента, а в нее встроена табличная Subform, вроде как список сотрудников фирмы-клиента. Subform естественно, прилинкована к главной форме.
Немного о том, какую операцию хочу исполнять, чтобы понятно было, зачем мне прогрессбар.
Операция простая - удаление персоны из списка сотрудников. Удаление происходит безболезненно, если в связанной таблице (Письма) нет соответствующих записей. Если письма у товарисча есть, то я помечаю его и предлагаю в той же подчиненной форме тыркнуться на ДРУГУЮ запись, чтобы перекинуть переписку на другого человека (естественно, с пометками).
Пока не было обращения к Progress, все нормально работало - событие в подформе Form_Delete активизировало Form_Current и письма я благополучно перекидывал на другого чела.
И вот теперь я на свою голову в событии Form_Delete поставил вызов прогрессбара
1.
DoCmd.OpenForm "Progress" 'Запуск ProgressBar
Forms!Progress.ProgressText = "Ткните мышью на человека, на которого будет переведена почта"
1. Subform (список людей) теряет событие Current (причем другие события, напр. ДблКлик - остаются), и что самое интересное!!!-
2. Subform ОТВЯЗЫВАЕТСЯ ОТ ГЛАВНОЙ ФОРМЫ!!! Т.е. если я главную форму вызывал из другой, то Requery Главной НЕ ПРИВОДИТ к обновлению подчиненной!!!
Вот, собственно, все. Я кончил.
А Вы что на это скажете?
