ReSQL.ru
     
powered by simpleCommunicator - 2.0.54     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / вывод отчета в word шаблон
25 сообщений из 59, страница 2 из 3
  2  все
вывод отчета в word шаблон
    #39427587
Фотография ПЕНСИОНЕРКА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ПЕНСИОНЕРКА
Участник
Сергей Калмыков,

пример из аксесс с сохранением пути в свойствах базы
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
Private Sub Кнопка9ф_Click()
Dim result As Integer, path, db As DAO.Database
Set db = CurrentDb
On Error GoTo addProperty
path = db.Properties("OldPath")
If db.Properties("OldPath") = "" Then
    path = CurrentProject.path
Else
    path = db.Properties("OldPath")
End If
With Application.FileDialog(1)
   .Title = "Поиск документов"
   .InitialFileName = path
   .Filters.Clear                                   'Очищаем фильтры
   .Filters.Add "Все", "*.*", 1               'Добавляем фильтр текстовых файлов
    result = .Show
    If result = 0 Then Exit Sub
    Me.Ссылка_на_документ = .SelectedItems(1)
    If .SelectedItems(1) & "" <> "" Then
        db.Properties("OldPath") = Left(.SelectedItems(1), InStrRev(.SelectedItems(1), "\"))
    End If
End With
Exit Sub
addProperty:
Select Case Err
    Case 3270: OldPathProperty: Resume Next
    Case Else: MsgBox "Ошибка " & Err & " " & Err.Description
End Select
End Sub
...
Рейтинг: 0 / 0
27.03.2017, 10:34
| Ответить | Цитировать | Написать  
вывод отчета в word шаблон
    #39427591
Фотография __Michelle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
__Michelle
Участник
ПЕНСИОНЕРКА,

А где функция (процедура) OldPathProperty?
...
Рейтинг: 0 / 0
27.03.2017, 10:41
| Ответить | Цитировать | Написать  
вывод отчета в word шаблон
    #39427602
Фотография __Michelle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
__Michelle
Участник
ПЕНСИОНЕРКА,

Поясню.
Вот здесь:
Код: vbnet
1.
2.
3.
4.
5.
addProperty: 
Select Case Err 
    Case 3270: OldPathProperty: Resume Next 
    Case Else: MsgBox "Ошибка " & Err & " " & Err.Description 
End Select

Для создания свойства в случае его отсутствия.
...
Рейтинг: 0 / 0
27.03.2017, 11:04
| Ответить | Цитировать | Написать  
вывод отчета в word шаблон
    #39427613
Прогер_самоучка
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Прогер_самоучка
Участник
Раз такая свистопляска, то можно я здесь задам свой аналогичный вопрос по теме, дабы не плодить темы :)
Его задал сначала на другом форуме, там как раз эта ошибка обсуждалась

Добрый день.
Почитал тему, FAQ
Вроде бы и сделал как написано.
Но что-то не так делаю, видимо.
Первую строку заполняет, а вот со второй строки выдаёт ошибку

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
    Dim rsd As ADODB.Recordset
    Dim strSQL As String
    Dim app As Word.Application
    Dim wb As Word.Document
    Dim strPathDot As String
    Dim strPathWord As String
    strPathWord = "D:\Reports\REP_1.doc"
    strPathDot = "D:\Templates\REP.doc"
    Set rsd = New ADODB.Recordset
    strSQL = " SELECT * fROM T "
    rsd.Open strSQL, CnnString
 
    Set app = New Word.Application
    app.Visible = False
    Set wb = app.Documents.Add(strPathDot)  

    With wb ' app.ActiveDocument     
    
        .Bookmarks.Item("txt_month").Range.Text = MonthName(Month(txt_date1))
        .Bookmarks.Item("txt_date").Range.Text = Date
        
        While Not rsd.EOF And Not rsd.BOF
            .Bookmarks.Item("txt_day" & rsd.Fields("dd").Value).Range.Text = Nz(rsd.Fields("dd").Value, "")
            .Bookmarks.Item("txt_checksum" & CStr(rsd.Fields("dd").Value)).Range.Text = Nz(rsd.Fields("check_sum").Value, "") ' и именно здесь
            .Bookmarks.Item("txt_check_nds" & CStr(rsd.Fields("dd").Value)).Range.Text = Nz(rsd.Fields("sum_nds").Value, "")
            .Bookmarks.Item("txt_check_diff" & CStr(rsd.Fields("dd").Value)).Range.Text = Nz(rsd.Fields("sum_diff").Value, "")
        rsd.MoveNext
        Wend
        
     End With
	 
    app.Quit
    Set app = Nothing



Буду благодарен, если кто наставит на путь истинный
...
Рейтинг: 0 / 0
27.03.2017, 11:25
| Ответить | Цитировать | Написать  
вывод отчета в word шаблон
    #39427615
Прогер_самоучка
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Прогер_самоучка
Участник
ошибку выдаёт следующую:

Код: plaintext
  World ошибка 6028 Не удалось удалить диапазон
...
Рейтинг: 0 / 0
27.03.2017, 11:26
| Ответить | Цитировать | Написать  
вывод отчета в word шаблон
    #39427618
Прогер_самоучка
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Прогер_самоучка
Участник
Сам вопрос задавал здесь
...
Рейтинг: 0 / 0
27.03.2017, 11:27
| Ответить | Цитировать | Написать  
вывод отчета в word шаблон
    #39427628
Фотография ПЕНСИОНЕРКА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ПЕНСИОНЕРКА
Участник
Прогер_самоучка,

вам похоже надо заполнить таблицу
так ее не делают --закладка --штучный товар, на второй строке таблицы --ее уже нет
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
 With wb ' app.ActiveDocument     
    
        .Bookmarks.Item("txt_month").Range.Text = MonthName(Month(txt_date1))
        .Bookmarks.Item("txt_date").Range.Text = Date
        
        While Not rsd.EOF And Not rsd.BOF
            .Bookmarks.Item("txt_day" & rsd.Fields("dd").Value).Range.Text = Nz(rsd.Fields("dd").Value, "")
            .Bookmarks.Item("txt_checksum" & CStr(rsd.Fields("dd").Value)).Range.Text = Nz(rsd.Fields("check_sum").Value, "") ' и именно здесь
            .Bookmarks.Item("txt_check_nds" & CStr(rsd.Fields("dd").Value)).Range.Text = Nz(rsd.Fields("sum_nds").Value, "")
            .Bookmarks.Item("txt_check_diff" & CStr(rsd.Fields("dd").Value)).Range.Text = Nz(rsd.Fields("sum_diff").Value, "")
        rsd.MoveNext
        Wend
        
     End With
...
Рейтинг: 0 / 0
27.03.2017, 11:37
| Ответить | Цитировать | Написать  
вывод отчета в word шаблон
    #39427637
Прогер_самоучка
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Прогер_самоучка
Участник
ПЕНСИОНЕРКАПрогер_самоучка,

вам похоже надо заполнить таблицу
так ее не делают --закладка --штучный товар, на второй строке таблицы --ее уже нет
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
 With wb ' app.ActiveDocument     
    
        .Bookmarks.Item("txt_month").Range.Text = MonthName(Month(txt_date1))
        .Bookmarks.Item("txt_date").Range.Text = Date
        
        While Not rsd.EOF And Not rsd.BOF
            .Bookmarks.Item("txt_day" & rsd.Fields("dd").Value).Range.Text = Nz(rsd.Fields("dd").Value, "")
            .Bookmarks.Item("txt_checksum" & CStr(rsd.Fields("dd").Value)).Range.Text = Nz(rsd.Fields("check_sum").Value, "") ' и именно здесь
            .Bookmarks.Item("txt_check_nds" & CStr(rsd.Fields("dd").Value)).Range.Text = Nz(rsd.Fields("sum_nds").Value, "")
            .Bookmarks.Item("txt_check_diff" & CStr(rsd.Fields("dd").Value)).Range.Text = Nz(rsd.Fields("sum_diff").Value, "")
        rsd.MoveNext
        Wend
        
     End With

Совершенно верно, мне нужно выгрузить отчёт в таблицу.
Не совсем понял, куда подевалась закладка, она же там есть с другим названием...
...
Рейтинг: 0 / 0
27.03.2017, 11:48
| Ответить | Цитировать | Написать  
вывод отчета в word шаблон
    #39427650
Прогер_самоучка
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Прогер_самоучка
Участник
или вы хотите сказать, что как только я перехожу на вторую строку в цикле, то мне становятся недос
тупными закладки?
...
Рейтинг: 0 / 0
27.03.2017, 12:00
| Ответить | Цитировать | Написать  
вывод отчета в word шаблон
    #39427653
Фотография ПЕНСИОНЕРКА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ПЕНСИОНЕРКА
Участник
Прогер_самоучка,

закладок у вас конечно много --более 124
и какая-то прописана неверно

ищите, вставьте debug.print может где-то день не заполнен

Код: vbnet
1.
2.
 While Not rsd.EOF And Not rsd.BOF
debug.print rsd.Fields("dd").Value
...
Рейтинг: 0 / 0
27.03.2017, 12:03
| Ответить | Цитировать | Написать  
вывод отчета в word шаблон
    #39427660
Прогер_самоучка
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Прогер_самоучка
Участник
ПЕНСИОНЕРКАПрогер_самоучка,

закладок у вас конечно много --более 124
и какая-то прописана неверно

ищите, вставьте debug.print может где-то день не заполнен

Код: vbnet
1.
2.
 While Not rsd.EOF And Not rsd.BOF
debug.print rsd.Fields("dd").Value

обрыв всегда происходит на второй строке.
И не важно что там будет.
Там есть данные. Это точно.
первую строку таблицы он заполняет.
А далее не хочет.
я для теста туда уже просто цикл от 1 до 31 вводил.
...
Рейтинг: 0 / 0
27.03.2017, 12:17
| Ответить | Цитировать | Написать  
вывод отчета в word шаблон
    #39427662
Прогер_самоучка
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Прогер_самоучка
Участник
хаха...
Я эти закладки делал автоматом(программно)
Сейчас те же самые названия ручками вбил до третьей строки включительно, и обрыв случился на 4-й...
Прикол.
...
Рейтинг: 0 / 0
27.03.2017, 12:20
| Ответить | Цитировать | Написать  
вывод отчета в word шаблон
    #39427667
Прогер_самоучка
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Прогер_самоучка
Участник
Ёмоё, не руками же теперь их снова переименовывать...
Подскажите, как быть, куда идти :)
...
Рейтинг: 0 / 0
27.03.2017, 12:24
| Ответить | Цитировать | Написать  
вывод отчета в word шаблон
    #39427672
Прогер_самоучка
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Прогер_самоучка
Участник
ПЕНСИОНЕРКАтак ее не делаюткак делают ? :)
...
Рейтинг: 0 / 0
27.03.2017, 12:30
| Ответить | Цитировать | Написать  
вывод отчета в word шаблон
    #39427739
Фотография __Michelle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
__Michelle
Участник
ПЕНСИОНЕРКА,

Наверное, Вы не заметили мой вопрос по поводу Вашего примера с сохранением пути в свойствах базы.
В этом примере есть обращение к процедуре/функции OldPathProperty.
Но сама эта процедура отсутствует.
Дополните, пожалуйста, код.
...
Рейтинг: 0 / 0
27.03.2017, 13:49
| Ответить | Цитировать | Написать  
вывод отчета в word шаблон
    #39427766
Predeclared
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Predeclared
Участник
Прогер_самоучка...
Но что-то не так делаю, видимо.
...
Я бы вставил в шаблон табличку, и работал бы уже с табличкой.
...
Рейтинг: 0 / 0
27.03.2017, 14:26
| Ответить | Цитировать | Написать  
вывод отчета в word шаблон
    #39427777
Фотография ПЕНСИОНЕРКА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ПЕНСИОНЕРКА
Участник
__MichelleПЕНСИОНЕРКА,

Наверное, Вы не заметили мой вопрос по поводу Вашего примера с сохранением пути в свойствах базы.
В этом примере есть обращение к процедуре/функции OldPathProperty.
Но сама эта процедура отсутствует.
Дополните, пожалуйста, код.
это не мой код --где-то нашла, особо не проверяла
я всегда указываю точные имена каталогов
...
Рейтинг: 0 / 0
27.03.2017, 14:45
| Ответить | Цитировать | Написать  
вывод отчета в word шаблон
    #39427784
Прогер_самоучка
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Прогер_самоучка
Участник
PredeclaredПрогер_самоучка...
Но что-то не так делаю, видимо.
...
Я бы вставил в шаблон табличку, и работал бы уже с табличкой.возможно.
Но там уже создана табличка.
Надо будет разобраться как в уже созданной табличке воткнуть свою, расширяя или ещё как...
...
Рейтинг: 0 / 0
27.03.2017, 14:55
| Ответить | Цитировать | Написать  
вывод отчета в word шаблон
    #39427791
Predeclared
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Predeclared
Участник
Прогер_самоучка...
Но там уже создана табличка.
...
Ааа....

А скрин на посмотреть никак?
...
Рейтинг: 0 / 0
27.03.2017, 15:03
| Ответить | Цитировать | Написать  
вывод отчета в word шаблон
    #39427810
Фотография __Michelle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
__Michelle
Участник
ПЕНСИОНЕРКА__MichelleПЕНСИОНЕРКА,

Наверное, Вы не заметили мой вопрос по поводу Вашего примера с сохранением пути в свойствах базы.
В этом примере есть обращение к процедуре/функции OldPathProperty.
Но сама эта процедура отсутствует.
Дополните, пожалуйста, код.
это не мой код --где-то нашла, особо не проверяла
я всегда указываю точные имена каталоговДа и ладно. Спасибо.
Мне особо и не надо.
Сама, если захочу и понадобится, могу сделать.
Какое-нибудь CreateProperty.
...
Рейтинг: 0 / 0
27.03.2017, 15:25
| Ответить | Цитировать | Написать  
вывод отчета в word шаблон
    #39427827
Predeclared
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Predeclared
Участник
Predeclared... А скрин на посмотреть никак?
Сори, туплю. :)
Там букмарки-то в табличке и не нужны.
Можно прямо с табличкой и работать.
...
Рейтинг: 0 / 0
27.03.2017, 15:39
| Ответить | Цитировать | Написать  
вывод отчета в word шаблон
    #39427835
Фотография ПЕНСИОНЕРКА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ПЕНСИОНЕРКА
Участник
Прогер_самоучкахаха...
Я эти закладки делал автоматом(программно)
Сейчас те же самые названия ручками вбил до третьей строки включительно, и обрыв случился на 4-й...
Прикол.

на самом деле у вас не закладки , а поля FORMTEXT . причем у закладок есть начало и конец, иными словами точное положение в тексте документа
у вас же интервалы перекрываются
...
Рейтинг: 0 / 0
27.03.2017, 15:51
| Ответить | Цитировать | Написать  
вывод отчета в word шаблон
    #39427860
Прогер_самоучка
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Прогер_самоучка
Участник
ПЕНСИОНЕРКАПрогер_самоучкахаха...
Я эти закладки делал автоматом(программно)
Сейчас те же самые названия ручками вбил до третьей строки включительно, и обрыв случился на 4-й...
Прикол.

на самом деле у вас не закладки , а поля FORMTEXT . причем у закладок есть начало и конец, иными словами точное положение в тексте документа
у вас же интервалы перекрываются Эммм...
Эээ.
Вобщем у меня нет слов)
...
Рейтинг: 0 / 0
27.03.2017, 16:15
| Ответить | Цитировать | Написать  
вывод отчета в word шаблон
    #39427864
Прогер_самоучка
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Прогер_самоучка
Участник
PredeclaredПрогер_самоучка...
Но там уже создана табличка.
...
Ааа....

А скрин на посмотреть никак?да что там скрин, можно и на сам документ World ошибка 6028 Не удалось удалить диапазон
...
Рейтинг: 0 / 0
27.03.2017, 16:19
| Ответить | Цитировать | Написать  
вывод отчета в word шаблон
    #39427865
Прогер_самоучка
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Прогер_самоучка
Участник
ПЕНСИОНЕРКАПрогер_самоучкахаха...
Я эти закладки делал автоматом(программно)
Сейчас те же самые названия ручками вбил до третьей строки включительно, и обрыв случился на 4-й...
Прикол.

на самом деле у вас не закладки , а поля FORMTEXT . причем у закладок есть начало и конец, иными словами точное положение в тексте документа
у вас же интервалы перекрываются почему тогда всё работает, если названия вручную все перебил?
...
Рейтинг: 0 / 0
27.03.2017, 16:19
| Ответить | Цитировать | Написать  
25 сообщений из 59, страница 2 из 3
  2  все
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / вывод отчета в word шаблон
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=39427865&tid=1612598]:
 0ms
get settings:
 11ms
get forum list:
 13ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 33ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 51ms
get tp. blocked users:
 3ms
others: 356ms
total:  487ms
созд. / загр.: 487ms
x
x
Закрыть


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