LEADERSOFT.ru Разработка на заказ программ и сайтов
ЕСЛИ БАЗА ВАМ НУЖНА В ЛИДЕРСОФТ ЗАЙДИ СПЕРВА!
Все примеры Microsoft Access - VBA


















































22. Списки в формах могут иместь скрытие поля. О том, как можно их использовать указано в этом примере.

Все примеры Microsoft Access
Private Sub butCalc_Click()
Dim As Long, sum As Currency
    With Me.myList
        For i = 0 To .ListCount - 1
            sum = sum + .Column(1, i)
        Next
        MsgBox "Всего записей: " & .ListCount & ", выбран номер: " & .ListIndex & ", сумма=" & sum
    End With
End Sub