Ответить на сообщение
Вернуться к теме
Вы отвечаете на сообщение:
ник: ГлазастыйМышь а зачем здесь открывать рекордсет? Может лучше так
Private Sub Группа_AfterUpdate() Dim lSum as Double lSum = nz(DLookup("SumInDay","Группы","Группа ='" & Me.Группа & "'"),0) If lSum <> 0 Then Me.Сумма = lSum End If Exit Sub
Ваше имя:
Пароль:
Сообщение:
Прикрепить:
Для вставки смайлов в текст щелкните по значку.