Событие для подчиненной таблицы на форме

[Woodlin]

Уберите строки
CheckAll2.DefaultValue = 0
и
CheckAll1.DefaultValue = 0
Это и так в свойствах прописано

[DenProx]

Woodlin спасибо большое!!)) заработало))

я там кстати начал пробовать делать подсчет строк... но пока без результатно...

[Woodlin]

Пользуйтесь окном VBA, для отладки кода ставьте на полях точки... в книгах их обзывают точка останова (меню Debug -> Toggle Breakpoint, либо мышью кликните по левому полю окна с кодом). Вообще меню Debug полезнейшая вещь.

[DenProx]

Woodlin ну точку останова я умею ставить... но вот запустить код на отладку не знаю как... в Delphi(где я привык работать) нажал кнопку и пошло поехало... а тут не понятно... жму F8 - (звук) Бум, и всё...

[Woodlin]

Я делаю так, если надо отладить процедуру обработки события формы Текущая запись, то в отладчике на процедуре Private Sub Form_Current() ставлю эту самую точку и в режиме формы перехожу по записям, чтоб сработало событие. Автоматически открывается окно VBA, а там уже F8

[DenProx]

Что то событие AfterUpdate не хочет ловить... у меня для Дерева написано чтоб суб форму с таблицей обновил, а на событие для этой суб формы (После обновления) написал примерный код для подсчета...

примерно так:
для дерва(клик) : fmSingleQuestionMod.Requery

а для этой формы "После обновления"
Private Sub Form_AfterUpdate()
.....
End Sub

не перехватывает... точнее получается что событие просто не то или не срабатывает...

[Woodlin]

DenProx, я бы в модуле субформы сделал Public функцию и вызывал бы её на какое-либо событие Дерева, к примеру Click.

Примерно так:
на дерево подвешиваем событие

Private Sub TreeView1_Click()
Call Me.fmSingleQuestionMode.Form.Count_Record
End Sub

в результате вызывается процедура из субформы

Public Sub Count_Record()
MsgBox (Me.Recordset.RecordCount)
End Sub

[DenProx]

Точно!)) теперь все работает)) Спасибо!

[DenProx]

начал пробовать опустошать по условию:

If Nz(CR) = 0 Then
   PicturePath.Value = ""
End If

CR - переменная типа Integer

но поле PicturePath теперь всегда почему то пустое... проверил через отладку, получается что CR всегда равен 0 хотя в поле выводится верное значение:

Public Sub Count_Record()
CR = Me.Recordset.RecordCount
Form_Baza.RCount = CR
End Sub

[Woodlin]

Вы прямо в Public Sub Count_Record() напишите, если Me.Recordset.RecordCount=0, то какие надо контролы в родительской форме опустошать.
например Me.parent.PicturePath=null