IPB

Здравствуйте, гость ( Вход | Регистрация )

 
Reply to this topicStart new topic
> Программер под MS Access
Walker
сообщение Nov 20 2009, 15:39
Сообщение #1


смотрящий
Иконка группы

Группа: Administrators
Сообщений: 5600
Регистрация: 5.1.2006
Пользователь №: 1425
Пол: Мужской



Нужна помощь программера по аксесу.... есть вот такой скрипт. Он выгружает инфу в анкету Вордовского файла.
Кто может помочь его дописать.
Отзовитесь, тогда предоставлю базу данных, выходную форму и обсудим делати сделки

Код
ERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "Form_СписокИзданий"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Compare Database



Private Sub Contract_Click()
    Dim wdApp As Word.Application
    Dim wdDoc As Word.Document
    Dim intPrint As Integer

    On Error GoTo ErrStartWord
    
    'открываем документ
    Set wdDoc = GetObject("C:\Doc\Contract.dot")
    Set wdApp = wdDoc.Parent
    'делаем приложение видимым
    wdApp.Visible = True
    'ищем поле Номер и выделяем его
    wdDoc.Bookmarks("Номер").Select
    'вводим данные в поле
    wdApp.Selection.TypeText Text:=DMax("[Номер]", "Договоры") + 1
    'выделяем следующее поле
    wdDoc.Bookmarks("Дата").Select
    With wdApp
        .Selection.Text = Date
        .Selection.GoTo Name:="Author"
        .Selection.TypeText Text:=[ФамилияИмя]
        .Selection.GoTo Name:="Название"
        .Selection.TypeText Text:=[Наименование]
    
        ' заполнение остальных полей
    
        intPrint = MsgBox("Печатать договор?", _
                                 vbYesNo + vbQuestion)
        If intPrint = vbYes Then
            wdDoc.PrintOut
            Do While .BackgroundPrintingStatus <> 0
                DoEvents
            Loop
        End If
        'закрываем документ
        .ActiveDocument.Close wdDoNotSaveChanges
        'если больше нет открытых документов, закрываем
        'приложение
        If .Windows.Count = 0 Then
            .Quit
        End If
    End With

    Set wdDoc = Nothing
    Set wdApp = Nothing
    Exit Sub

ErrStartWord:
    MsgBox Err.Description & " " & Err.Number, _
                                         vbInformation
    Exit Sub

End Sub

Прикрепленные файлы
Прикрепленный файл  ________2_.doc ( 34.5 килобайт ) Кол-во скачиваний: 1
 
Go to the top of the page
 
+Quote Post

Reply to this topicStart new topic
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



Текстовая версия Сейчас: 16th October 2019 - 09:56