ник: П.Полиграфович
На форме поле со списком групп, хочу забирать значение для др.поля на форме, при выборе опред. группы.
Не пишет ошибки, и не обрабатывает!?? В чем проблема не понимаю.
Подскажите, что-нибудь
Private Sub Группа_AfterUpdate()
Dim recst As Recordset
Set recst = CurrentDb.OpenRecordset("SELECT [SumInDay] FROM [Группы] WHERE [Группа] ='" & Me.Группа & "'")
If recst.RecordCount <> 0 Then
With rst
Me!Сумма = recst!SumInDay
End With
End If
recst.Close
Exit Sub
|
Может какие-то другие методы есть ..