Форумы HiProg.com - MS ACCESS, VBA, VB

 

Ответить на сообщение

Вернуться к теме

Вы отвечаете на сообщение:

ник: П.Полиграфович
На форме поле со списком групп, хочу забирать значение для др.поля на форме, при выборе опред. группы.
Не пишет ошибки, и не обрабатывает!?? В чем проблема не понимаю.
Подскажите, что-нибудь


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

Может какие-то другие методы есть ..


Ваше имя:

Пароль:

Цитировать: [quote][/quote] Код: [code][/code]
Жирный: [b][/b] Наклонный: [i][/i]
URL: [url][/url] 

Сообщение:

 Размер файла не более 50 Кбт. Большие файлы можно размещать на www.slil.ru

Прикрепить:

 

Для вставки смайлов в текст щелкните по значку.