Access ASP SQL Server VBA NET - Форумы по проектированию

LEADERSOFT.ru Разработка на заказ программ и сайтов

Форумы по информационным технологиям

Начало

Forums

Регистрация | Вход

Форумы

Поиск

Список форумов

Программирование

Microsoft Access. Файлы mdb и accdb

Тема: Много Чек...

Тема: Много ЧекБоксиков :)

15.06.2007 21:03:01

Андрей4

1 сообщения

Тема: Много ЧекБоксиков :)

Вопрос:Есть формочка типа
[v] [название товара][Вес]
и таких много много :) ([v] - ЧекБокс)
Нужна такая кнопочка, которая бы ставила галочи напротив всех товаров , кроме тех у которых Вес IsNull .
ОЧЧЧЧЧЕНЬ буду благодарен за ответ.

P.S. Общий раздел по формам
Автор: Андрей от 05.09.2002 2:06:43 Источник ...

15.06.2007 21:03:01

All

4316 сообщения

RE: Много ЧекБоксиков :)

Например, эта функция ставит флажки на все виды товара, где Вес не Null.
Public Function funSetFlagSum(frm As Form)
Dim rst As DAO.Recordset, i As Long
On Error GoTo 999
frm.Recordset.Update
Set rst = frm.RecordsetClone
rst.MoveLast
rst.MoveFirst
sum = 0
For i = 0 To rst.RecordCount - 1
If Not IsNull(rst!Вес) Then
rst.Edit
rst!Flag = True
rst.Update
End If
rst.MoveNext
Next i

Exit Function
999:
Err.Clear
Resume Next
End Function

P.S. Общий раздел по формам
Автор: Виктор Конюков от 0:00:00 Источник ...

Страница 1 из 1

Программирование

Microsoft Access. Файлы mdb и accdb

Тема: Много Чек...

Поиск

Список форумов

Начало | Forums