Заменил OnChange на AfterUpdate - работает нормально!:)
Private Sub Mest_Sub_Group_AfterUpdate()
Forms![Groups]![SP41].SetFocus
Dim B As String, C As Date
C = Forms![Groups]![ID_Group]
B = "SELECT SUM(Sub_Group.Mest_Sub_Group * Types_Nomer.Mest_Type)" _
& " AS Vsego FROM dbo.Sub_Group INNER JOIN dbo.Types_Nomer ON" _
& " dbo.Sub_Group.Type_Sub_Group = dbo.Types_Nomer.ID_Type_Nomer" _
& " WHERE (dbo.Sub_Group.K_Group = '" & Format(C, "yyyymmdd hh:mm:ss") & "')"
Forms![Groups]![SP41].RowSource = B
Forms![Groups]![SP41].Requery
End Sub

Geen

Виноват:)
Кстати здравствуй дорогой наш Владимир Саныч!:)
По ходу может кто подскажет как правильно вернуть фокус на контрол подчиненной ленточной формы?:)

Форма "А"
СабФорма "Б"
Контрол "С"
На новую запись

Geen