powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / и снова об отчетах
5 сообщений из 5, страница 1 из 1
и снова об отчетах
    #32589243
student'ka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
У меня всего одна страница (отчет), мне нужно знать сколько раз я ее распечатала.
...
Рейтинг: 0 / 0
и снова об отчетах
    #32589266
Фотография Северный_Бобер
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: plaintext
1.
Почикал я.
Темный.
...
Рейтинг: 0 / 0
и снова об отчетах
    #32589275
Фотография Shuhard
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
student'kaУ меня всего одна страница (отчет), мне нужно знать сколько раз я ее распечатала.

в отчёте сажаешь
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Private Sub Report_Open(Cancel As Integer)
Dim MyRst As ADODB.Recordset
Set MyRst = New ADODB.Recordset
MyRst.Open "select * from T1", CurrentProject.Connection, adOpenDynamic, adLockPessimistic
MyRst![ct] = MyRst![ct] +  1 
MyRst.Update
MyRst.Close
Set MyRst = Nothing
End Sub
+ делаешь табличку T1 в ней 1 поле Ct(Long) + одна запись

соответственно каждая печать отчёта Ct инкрементируется
...
Рейтинг: 0 / 0
и снова об отчетах
    #32589287
Фотография Shuhard
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Северный_Бобер
Код: plaintext
1.
Почикал я.
Темный.

а думал ты барышне ActiveX на VB отпишешь!
...
Рейтинг: 0 / 0
и снова об отчетах
    #32589316
Фотография Shark
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Единственное, что приходит в голову- своя кнопочка печати и в ней считать количество нажатий
...
Рейтинг: 0 / 0
5 сообщений из 5, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / и снова об отчетах
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]