Добро пожаловать в форум, Guest >> Войти | Регистрация | Поиск | Правила | | В избранное | Подписаться | ||
Все форумы / Microsoft Access |
![]() ![]() |
Топик располагается на нескольких страницах: ←Ctrl назад 1 [2] 3 вперед Ctrl→ все |
wladimirrr Member Откуда: Калужская обл. Сообщений: 323 |
Swa111, в примере выше, нашел. |
3 фев 19, 18:36 [21800870] Ответить | Цитировать Сообщить модератору |
wladimirrr Member Откуда: Калужская обл. Сообщений: 323 |
Swa111, функцию скопировал. Пока не хочет работать. К сообщению приложен файл. Размер - 77Kb |
3 фев 19, 18:39 [21800872] Ответить | Цитировать Сообщить модератору |
Serg197311 Member Откуда: Жуковский Сообщений: 645 |
wladimirrr, Где-нибудь вначале - Dim rst as Adodb.recordset добавьте.... |
3 фев 19, 19:27 [21800881] Ответить | Цитировать Сообщить модератору |
wladimirrr Member Откуда: Калужская обл. Сообщений: 323 |
Не хочет... К сообщению приложен файл. Размер - 77Kb |
||
3 фев 19, 19:44 [21800884] Ответить | Цитировать Сообщить модератору |
ПЕНСИОНЕРКА Member Откуда: Владимирская обл Сообщений: 4609 |
wladimirrr, немного нечетко по столбцам, но остальное просто --вместо закладок --замена(поэтому сделала дубль шаблона) --одних и тех же замен в документе может быть любое количество --если объединенных ячеек в таблице нет, то все линейно --объединенные ячейки в шапке немного усложнят подход К сообщению приложен файл (Платежи190203.zip - 137Kb) cкачать ![]() |
3 фев 19, 20:27 [21800897] Ответить | Цитировать Сообщить модератору |
__Michelle Member Откуда: Сообщений: 3122 |
rst дважды объявляется - в первой и третьей строках, сначала DAO, потом ADO. |
||
3 фев 19, 20:47 [21800900] Ответить | Цитировать Сообщить модератору |
wladimirrr Member Откуда: Калужская обл. Сообщений: 323 |
Спасибо! Стараюсь разобраться в кодах. |
||
3 фев 19, 21:03 [21800905] Ответить | Цитировать Сообщить модератору |
wladimirrr Member Откуда: Калужская обл. Сообщений: 323 |
Не хочет работать ни с DAO, ни с ADO. |
||||
3 фев 19, 21:14 [21800908] Ответить | Цитировать Сообщить модератору |
__Michelle Member Откуда: Сообщений: 3122 |
Зачем дважды-то объявлять? |
||||
3 фев 19, 21:21 [21800910] Ответить | Цитировать Сообщить модератору |
wladimirrr Member Откуда: Калужская обл. Сообщений: 323 |
__Michelle, это я понял). Пробовал объявлять как DAO, не работает, как ADO, тоже не работает. |
3 фев 19, 21:44 [21800918] Ответить | Цитировать Сообщить модератору |
alecko Member Откуда: Башкирия Сообщений: 577 |
wladimirrr, set rst=new recordset - нужно удалить - это ошибочное действие. |
3 фев 19, 23:02 [21800943] Ответить | Цитировать Сообщить модератору |
wladimirrr Member Откуда: Калужская обл. Сообщений: 323 |
не проходит К сообщению приложен файл. Размер - 77Kb |
||
3 фев 19, 23:07 [21800944] Ответить | Цитировать Сообщить модератору |
alecko Member Откуда: Башкирия Сообщений: 577 |
wladimirrr, объявите DAO
set rst=Currentdb.Openrecordset(strsql, dbOpenDynaset)
|
3 фев 19, 23:15 [21800947] Ответить | Цитировать Сообщить модератору |
Swa111 Member Откуда: Сообщений: 106 |
Оказывается Round округляет не совсем по правилам математики. Замените код в запросе, а то если число платежей нечетное последний платеж выпадает... select round(max(Номер_недели)/2+.05,0) as nHalf from Платежи where Код_контракта = %contract% ...
Что бы привести вариант с программным созданием в красивый вид нужно будет поизучать объектную модель. Так что если стоит вопрос именно в объеме программирования то стоит задуматься использовать готовый RtfReport или полностью программный метод. |
|
4 фев 19, 09:26 [21801035] Ответить | Цитировать Сообщить модератору |
wladimirrr Member Откуда: Калужская обл. Сообщений: 323 |
не хочет работать... К сообщению приложен файл. Размер - 78Kb |
||
4 фев 19, 10:12 [21801066] Ответить | Цитировать Сообщить модератору |
ПЕНСИОНЕРКА Member Откуда: Владимирская обл Сообщений: 4609 |
не пойму --с какой базой вы работаете смотрели ли вы мой пример --он весьма наглядный(не выровняла только столбцы вчера) |
||
4 фев 19, 10:42 [21801079] Ответить | Цитировать Сообщить модератору |
wladimirrr Member Откуда: Калужская обл. Сообщений: 323 |
Swa111, нормальный вариант, работает хорошо! Единственно, как воткнуть денежный формат в таблицу для платежей? руб. или $. |
|||
4 фев 19, 11:32 [21801122] Ответить | Цитировать Сообщить модератору |
wladimirrr Member Откуда: Калужская обл. Сообщений: 323 |
Да, Ваш вариант я тестирую и он вполне рабочий. И параллельно я тестирую вариант от Swa111. |
||||
4 фев 19, 11:35 [21801127] Ответить | Цитировать Сообщить модератору |
Swa111 Member Откуда: Сообщений: 106 |
wladimirrr,
...
" format(sum(nPayL), '### ##0.00 руб.') as [Платеж]," & vbCrLf & _
...
|
4 фев 19, 11:50 [21801140] Ответить | Цитировать Сообщить модератору |
ПЕНСИОНЕРКА Member Откуда: Владимирская обл Сообщений: 4609 |
поправила имя документа, деньги, выравнивание и строки К сообщению приложен файл (Платежи190204a.zip - 102Kb) cкачать ![]() |
||
4 фев 19, 12:36 [21801182] Ответить | Цитировать Сообщить модератору |
wladimirrr Member Откуда: Калужская обл. Сообщений: 323 |
ПЕНСИОНЕРКА, начал встраивать в реальную базу, что-то не срабатывает. Что это значит? К сообщению приложен файл. Размер - 76Kb |
4 фев 19, 13:38 [21801244] Ответить | Цитировать Сообщить модератору |
ПЕНСИОНЕРКА Member Откуда: Владимирская обл Сообщений: 4609 |
wladimirrr, забыли объявить или в форме(сразу после option ....) dim strPathDot As String, strPathWord As String или в общем модуле public strPathDot As String, strPathWord As String |
4 фев 19, 13:43 [21801250] Ответить | Цитировать Сообщить модератору |
wladimirrr Member Откуда: Калужская обл. Сообщений: 323 |
Да, уже намного красивее таблица! А изменения в каких функциях,во все? А то, я уже начал встраивать коды в реальную базу. |
||||
4 фев 19, 13:45 [21801253] Ответить | Цитировать Сообщить модератору |
wladimirrr Member Откуда: Калужская обл. Сообщений: 323 |
Вроде все копировал из Вашего кода. Сейчас проверю. |
||
4 фев 19, 13:47 [21801255] Ответить | Цитировать Сообщить модератору |
ПЕНСИОНЕРКА Member Откуда: Владимирская обл Сообщений: 4609 |
wladimirrr, и я не люблю таких сокращений типов($), их легко потерять и получим вместо string -> variant Public Function funOutputWord(strPathDot$, strPathWord$) As Boolean предпочитаю явно Public Function funOutputWord(strPathDot as string, strPathWord as string) As Boolean |
4 фев 19, 13:47 [21801256] Ответить | Цитировать Сообщить модератору |
Топик располагается на нескольких страницах: ←Ctrl назад 1 [2] 3 вперед Ctrl→ все |
Все форумы / Microsoft Access | ![]() |