Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Вывод в PDF / 25 сообщений из 25, страница 1 из 1
15.03.2021, 14:15
    #40053601
NickBell
NickBell
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вывод в PDF
Добрый день,

Код, приведенный ниже, работал до сегодняшнего дня. Никак не могу понять, в чем причина.
На нажатие кнопки должен произойти вывод 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:50
    #40053628
sdku
sdku
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вывод в PDF
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, 15:08
    #40053645
NickBell
NickBell
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вывод в PDF
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:52
    #40053677
NickBell
NickBell
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вывод в PDF
Проблема произошла из-за моего компьютера. С другого компьютера всё нормально выполнилось.
По-видимому придется переустанавливать систему.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.03.2021, 17:34
    #40053746
sdku
sdku
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вывод в PDF
NickBell,
я о другом:присваивание переменной t значения, используя t которая еще не определена
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.03.2021, 17:44
    #40053752
DarkMan
DarkMan
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вывод в PDF
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, 19:07
    #40053785
sdku
sdku
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вывод в PDF
DarkMan,
Из HELP: Оператор DIM объявляет и выделяет дисковое пространство для одной или нескольких переменных.

В данном случае определяется место на диске для хранения переменной "t" типа String.
Значение ей задается в процедуре,до этого t=empty
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.03.2021, 19:12
    #40053786
DarkMan
DarkMan
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вывод в PDF
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, 20:02
    #40053795
sdku
sdku
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вывод в PDF
DarkMan,
Я не разбирался подробно, но на первый взгляд:
при присвоении значения используется переменная "t" которой еще не присвоено значение(в моем сообщении выделено красным-это меня и смущает)
Очень напоминает барона Мюнхаузена который сам себя, за свои же волосы, вытащил из болота
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.03.2021, 20:22
    #40053800
sdku
sdku
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вывод в PDF
почувствуйте разницу:
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.03.2021, 20:31
    #40053802
sdku
sdku
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вывод в PDF
Щас более внимательно посмотрел сообщение-прошу пардону-просто я пишу код начиная каждый шаг с одинаковым отступом(короче "сам дурак") и воспринял все написанное за один шаг
Еще раз извиняюсь
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.03.2021, 20:42
    #40053808
__Michelle
__Michelle
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Вывод в PDF
sdku
DarkMan,
...при присвоении значения используется переменная "t" которой еще не присвоено значение...(

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

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


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

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

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

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


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

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


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

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

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


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