ReSQL.ru
     
powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Вывод в PDF
25 сообщений из 25, страница 1 из 1
Вывод в PDF
    #40053601
Фотография NickBell
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NickBell
Участник
Добрый день,

Код, приведенный ниже, работал до сегодняшнего дня. Никак не могу понять, в чем причина.
На нажатие кнопки должен произойти вывод pdf документов в отдельную папку, но вместо этого, на экране появляется только первый документ, затем зависает и вылетает весь Access.

Сам запрос проверила, там всё нормально видно. Вывод в t, тоже всё нормально пишет. Что мне еще проверить, даже не знаю.

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Private Sub cmd_pdf_Click()
Dim rs As DAO.Recordset
Dim t As String
Set rs = CurrentDb.OpenRecordset("SELECT RP.id_patients, RP.tarigi, RP.surname, RP.nname , RP.id_test, RP.pasuxi " _
    & "FROM Report_blank_saerto AS RP " _
    & "WHERE RP.id_organization=39 And RP.pasuxi Is Not Null")
Do While Not rs.EOF
t = rs!surname+ "_" + rs!nname + "_" + Trim(str(rs!id_patients)) + "_" + Format(rs!tarigi, "dd\.mm\.yyyy")
     DoCmd.OpenReport "pjr_report", acViewPreview, , "[id_patients]=" & rs!id_patients
        DoCmd.OutputTo acOutputReport, "pjr_report", "PDFFormat(*.pdf)", _
        "D:\PDF\" & t & ".pdf", False, "", , acExportQualityPrint
                        DoCmd.Close acReport, "pjr_report"
   rs.MoveNext
Loop
rs.Close
End Sub
...
Рейтинг: 0 / 0
15.03.2021, 14:15
| Ответить | Цитировать | Написать  
Вывод в PDF
    #40053628
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
NickBell


Код: vbnet
1.
2.
3.
4.
5.
6.
.....
t = rs!surname+ "_" + rs!nname + "_" + Trim(str(rs!id_patients)) + "_" + Format(rs!tarigi, "dd\.mm\.yyyy")
     DoCmd.OpenReport "pjr_report", acViewPreview, , "[id_patients]=" & rs!id_patients
        DoCmd.OutputTo acOutputReport, "pjr_report", "PDFFormat(*.pdf)", _
        "D:\PDF\" &  t & ".pdf", False, "", , acExportQualityPrint
                        DoCmd.Close acReport, "pjr_report"

может я чё не понял,но выделенное смущает
...
Рейтинг: 0 / 0
15.03.2021, 14:50
| Ответить | Цитировать | Написать  
Вывод в PDF
    #40053645
Фотография NickBell
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NickBell
Участник
sdku
NickBell


Код: vbnet
1.
2.
3.
4.
5.
6.
.....
t = rs!surname+ "_" + rs!nname + "_" + Trim(str(rs!id_patients)) + "_" + Format(rs!tarigi, "dd\.mm\.yyyy")
     DoCmd.OpenReport "pjr_report", acViewPreview, , "[id_patients]=" & rs!id_patients
        DoCmd.OutputTo acOutputReport, "pjr_report", "PDFFormat(*.pdf)", _
        "D:\PDF\" &  t & ".pdf", False, "", , acExportQualityPrint
                        DoCmd.Close acReport, "pjr_report"


может я чё не понял,но выделенное смущает


В выделенном создается имя файла, состоящее из фамилии, имени, ИД код пациента и дата. Я проверила весь вывод с помощью Debug.print t и все нормально было.
...
Рейтинг: 0 / 0
15.03.2021, 15:08
| Ответить | Цитировать | Написать  
Вывод в PDF
    #40053677
Фотография NickBell
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NickBell
Участник
Проблема произошла из-за моего компьютера. С другого компьютера всё нормально выполнилось.
По-видимому придется переустанавливать систему.
...
Рейтинг: 0 / 0
15.03.2021, 15:52
| Ответить | Цитировать | Написать  
Вывод в PDF
    #40053746
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
NickBell,
я о другом:присваивание переменной t значения, используя t которая еще не определена
...
Рейтинг: 0 / 0
15.03.2021, 17:34
| Ответить | Цитировать | Написать  
Вывод в PDF
    #40053752
DarkMan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DarkMan
Участник
sdku
NickBell,
я о другом:присваивание переменной t значения, используя t которая еще не определена

А это ? Не то ?
Код: vbnet
1.
2.
3.
Private Sub cmd_pdf_Click()
Dim rs As DAO.Recordset
Dim t As String
...
Рейтинг: 0 / 0
15.03.2021, 17:44
| Ответить | Цитировать | Написать  
Вывод в PDF
    #40053785
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
DarkMan,
Из HELP: Оператор DIM объявляет и выделяет дисковое пространство для одной или нескольких переменных.

В данном случае определяется место на диске для хранения переменной "t" типа String.
Значение ей задается в процедуре,до этого t=empty
...
Рейтинг: 0 / 0
15.03.2021, 19:07
| Ответить | Цитировать | Написать  
Вывод в PDF
    #40053786
DarkMan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DarkMan
Участник
sdku
Значение ей задается в процедуре,до этого t=empty

Хорошо , а в цикле ей значение не присваивается ? Или Вы о чем? О том , что вначале нужно присвоить пустую строку ? Не говорите загадками. :))
Код: vbnet
1.
2.
.....
t = rs!surname+ "_" + rs!nname + "_" + Trim(str(rs!id_patients)) + "_" + Format(rs!tarigi, "dd\.mm\.yyyy")
...
Рейтинг: 0 / 0
15.03.2021, 19:12
| Ответить | Цитировать | Написать  
Вывод в PDF
    #40053795
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
DarkMan,
Я не разбирался подробно, но на первый взгляд:
при присвоении значения используется переменная "t" которой еще не присвоено значение(в моем сообщении выделено красным-это меня и смущает)
Очень напоминает барона Мюнхаузена который сам себя, за свои же волосы, вытащил из болота
...
Рейтинг: 0 / 0
15.03.2021, 20:02
| Ответить | Цитировать | Написать  
Вывод в PDF
    #40053800
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
почувствуйте разницу:
...
Рейтинг: 0 / 0
15.03.2021, 20:22
| Ответить | Цитировать | Написать  
Вывод в PDF
    #40053802
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
Щас более внимательно посмотрел сообщение-прошу пардону-просто я пишу код начиная каждый шаг с одинаковым отступом(короче "сам дурак") и воспринял все написанное за один шаг
Еще раз извиняюсь
...
Рейтинг: 0 / 0
15.03.2021, 20:31
| Ответить | Цитировать | Написать  
Вывод в PDF
    #40053808
Фотография __Michelle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
__Michelle
Участник
sdku
DarkMan,
...при присвоении значения используется переменная "t" которой еще не присвоено значение...(

Как же не присвоено?
Из открытого рекордсета берутся значения, последовательно из каждой записи.
Первой же командой.

Увидела, что Вы уже разобрались, после публикации этого сообщения.
...
Рейтинг: 0 / 0
15.03.2021, 20:42
| Ответить | Цитировать | Написать  
Вывод в PDF
    #40053811
DarkMan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DarkMan
Участник
sdku
почувствуйте разницу:


Ну здесь вроде все понятно . В первом варианте функция отработала,
а во втором возникла ошибка , так как не был передан обязательный аргумент.
...
Рейтинг: 0 / 0
15.03.2021, 20:46
| Ответить | Цитировать | Написать  
Вывод в PDF
    #40053815
DarkMan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DarkMan
Участник
sdku
Щас более внимательно посмотрел сообщение-прошу пардону-просто я пишу код начиная каждый шаг с одинаковым отступом(короче "сам дурак") и воспринял все написанное за один шаг
Еще раз извиняюсь

Что мне нравится при программировании на PHP ,то что при использовании текстовых редакторов можно форматировать текст . И он красиво расставляет все пробелы соглассно стандартов.
...
Рейтинг: 0 / 0
15.03.2021, 20:48
| Ответить | Цитировать | Написать  
Вывод в PDF
    #40053819
Фотография Сергей Лалов
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сергей Лалов
Участник
DarkMan,
Пыха сама по себе мощь. В разрезе работы с sql. Как основного языка под веб сервер и крепенького бэкэнда для 90% всего Web. Но сейчас форматирование и красоту ведь в основном на css и js строят?
...
Рейтинг: 0 / 0
15.03.2021, 20:56
| Ответить | Цитировать | Написать  
Вывод в PDF
    #40053822
DarkMan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DarkMan
Участник
Сергей Лалов
Но сейчас форматирование и красоту ведь в основном на css и js строят?

Я не имел ввиду дизайн самой страницы . Я имел ввиду редактор написания кода , например я использую бесплатный CodeLobster , простой дизайн ( вернее интерфейс ) , чем то напоминает Access , и практически все доступно.
...
Рейтинг: 0 / 0
15.03.2021, 21:09
| Ответить | Цитировать | Написать  
Вывод в PDF
    #40053825
Фотография Сергей Лалов
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Сергей Лалов
Участник
DarkMan
Сергей Лалов
Но сейчас форматирование и красоту ведь в основном на css и js строят?

Я не имел ввиду дизайн самой страницы . Я имел ввиду редактор написания кода , например я использую бесплатный CodeLobster , простой дизайн , чем то напоминает Access , и практически все доступно.


У меня тоже есть на компе codelobster. Правда уже давненько его не расчехлял. Посмотри в сторону PhpStorm, там вроде есть бесплатная версия community. Там подсветка кода, интеллектуальный блок + умная доводка самая крутая. Плюс сама структура файлов проекта очень удобная. Вообще все редакторы от JetBrains крутые самые. Я пользуюсь IntelIJ Idea, вообще писк. PhpStorm это тоже от этой конторы.
Не знаю другого такого редактора ,который бы сам предлагал упростить код , подсказать с рефакторингом и подсветить на всех страницах проекта рекомендуемый синтаксис.
...
Рейтинг: 0 / 0
15.03.2021, 21:17
| Ответить | Цитировать | Написать  
Вывод в PDF
    #40053829
DarkMan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DarkMan
Участник
Сергей Лалов
Посмотри в сторону PhpStorm, там вроде есть бесплатная версия community.
Я уже пытался разные демоверсии и PhpStorm и Zend вроде бы . Но нет времени изучать новые инструменты Codelobster прост в обращении и все есть и автодоплнение и подсветки CSS , PHP , JS , jQuery , плюс разные фреймворки типа Angular, React , VueJS , Laravel . Не знаю , но лично мне хватает , и дешево и сердито . Хотя спорить не буду , профессиональные редакторы есть профессиональные .Но я уже сказал , нет времени на изучение интерфейса.
...
Рейтинг: 0 / 0
15.03.2021, 21:27
| Ответить | Цитировать | Написать  
Вывод в PDF
    #40053830
DarkMan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DarkMan
Участник
Да простит нас __Michelle
...
Рейтинг: 0 / 0
15.03.2021, 21:30
| Ответить | Цитировать | Написать  
Вывод в PDF
    #40053832
DarkMan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DarkMan
Участник
DarkMan
Да простит нас __Michelle

Sorry NickBell :))
...
Рейтинг: 0 / 0
15.03.2021, 21:47
| Ответить | Цитировать | Написать  
Вывод в PDF
    #40053871
Фотография Панург
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Панург
Участник
sdku
почувствуйте разницу:
почувствуйте
Код: vbnet
1.
2.
3.
'окно Immediate
Dim a as Long
?my(a)


а без переменной пример очень не корректен - аргумент не опционален, о чём и сообщается в ошибке.
...
Рейтинг: 0 / 0
16.03.2021, 05:35
| Ответить | Цитировать | Написать  
Вывод в PDF
    #40053999
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
Еще раз повторяю-я признал свою ошибку(см.сообщение 22295038 выше. Функцией без обязательного параметра хотел проиллюстрировать ошибку,которая возникнет если в коде ссылаться на не инициализированную переменную). Не считаю нужным "тыкать меня носом" в ошибку которую я признал,пояснил почему это произошло и извинился-если этого некоторым мало ИЗВИНЯЮСЬ еще раз
...
Рейтинг: 0 / 0
16.03.2021, 13:52
| Ответить | Цитировать | Написать  
Вывод в PDF
    #40054145
Фотография Панург
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Панург
Участник
sdku, ты не понял. Тут не про то, что ты не досмотрел, а про то что переменная String всегда сразу инициализирована строкой нулевой длины.
...
Рейтинг: 0 / 0
16.03.2021, 16:46
| Ответить | Цитировать | Написать  
Вывод в PDF
    #40054175
DarkMan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DarkMan
Участник
sdku
Функцией без обязательного параметра хотел проиллюстрировать ошибку,которая возникнет если в коде ссылаться на не инициализированную переменную)

Или я дурак ? Или лыжи не едут ? При чем здесь не инициализированная переменная , если в данном примере Вы запускаете функцию , не передав в нее обязательный параметр. Если параметр не хотите передавать , делайте его Optional. Как то так .
sdku
извинился-если этого некоторым мало ИЗВИНЯЮСЬ еще раз

Это лишнее , лично я просто дискутирую.
...
Рейтинг: 0 / 0
16.03.2021, 17:06
| Ответить | Цитировать | Написать  
Вывод в PDF
    #40054252
Фотография vmag
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vmag
Участник
Эх, разбаловал нас всех Билл со своим акцесс и с его VBA... так трудно наступить на грабли, и то умудряемся...
...
Рейтинг: 0 / 0
16.03.2021, 18:28
| Ответить | Цитировать | Написать  
25 сообщений из 25, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Вывод в PDF
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&fpage=8&tid=1609744]:
 0ms
get settings:
 10ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 49ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 59ms
get tp. blocked users:
 1ms
others: 13ms
total:  166ms
созд. / загр.: 166ms
x
x
Закрыть


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