ник: AlexSyr
Похоже, что в этом плане в 2010 ничего не изменилось, если я все правильно сделал.
Private WithEvents frmSub03a As Form
Private Sub Form_Open(Cancel As Integer)
Me.SubForm_qryTest.SourceObject = "Query.qryTest"
Set frmSub03a = Me.SubForm_qryTest.Form
' Me.SubForm_qryTest.Form.OnCurrent = "=ToCurrentQ()"
frmSub03a.OnCurrent = "[Event Procedure]"
End Sub
Private Sub frmSub03a_Current()
'не отрабатывается
MsgBox "Current_Sub03a"
End Sub
|