Форма для письма

[Atom1ko]

Добрый день!
Подскажите пожалуйста, как можно сделать такую вещь:
Нужно сделать бланк для письма, пример во вложении.
Соответственно поля логотип, реквизиты, и генеральный директор не меняются.
Поле № и дата, чтобы присваивался номер следующий, после уже существующего письма, дата сегодняшняя.
Поле кому, сделать выбор из существующих заказчиков.
Поле текст письма, туда набирается текст самого письма

В итоге хотелось бы, чтобы после заполнения всех данных, создавался документ в таблице переписка, где будет написано № письма, дата, кому, краткое содержание.
И в дополнении чтобы данный файл сохранялся например в ворде, и запихивался в папку, для конкретного заказчика.

Возможно ли такое сделать? Если да, то помогите пожалуйста.
И еще если можно, скиньте пожалуйста ссылки, на литературу по access, где можно почерпнуть знания.

[shanemac51]

все достаточно стандартно, примеров много

вопросы
-есть ли табличная часть в тексте
например

1.ооооооооооооооооооооооооо дата1
2.ррррррррррррррррррррррррр дата2
....................

как ее вводить

--сплошным мемо-полем
--или по позициям
--вводить ли ответы адресата отдельными позициями для получения протокола общения

нужен ли поиск
-кому\от кого
-номер\дата
-по контексту(поставка авто -- должны быть показаны все письма с данными словами)

отчеты
-по адресату
-по теме
-просмотр для слабовидящих
-автоподбор в печати журнала по выборке
-не отвеченные

[Atom1ko]

все достаточно стандартно, примеров много

вопросы
-есть ли табличная часть в тексте
например

1.ооооооооооооооооооооооооо дата1
2.ррррррррррррррррррррррррр дата2
....................

Текст примерно такой:
Уважаемы ....
Высылаем вам для того то следующие вещи:
1. бла бла бла - 2 экземпляра
2. бла бла бла - 2 экземпляра

как ее вводить

--сплошным мемо-полем
--или по позициям
--вводить ли ответы адресата отдельными позициями для получения протокола общения

Ввод я думаю скорее всего просто поле, где будет текст.

нужен ли поиск
-кому\от кого
-номер\дата
-по контексту(поставка авто -- должны быть показаны все письма с данными словами)

Поиск нужен по номеру и дате, кому, краткое содержание письма

отчеты
-по адресату
-по теме
-просмотр для слабовидящих
-автоподбор в печати журнала по выборке
-не отвеченные

отчеты я думаю не нужны.
Нужно чтобы это все сохранялось в табличке, и потом можно например либо из таблицы, либо через поиск открыть данное письмо, и например распечатать.
Ну и желательно чтобы при создании, сразу был экспорт либо в ворд, либо в пдф.

[mlm1]

Добрый день

Вам удалось решить проблему
Вышлите пример

[Igor_1974]

Делается шаблон документа в ворде. Где надо брать данные из поля, присваиваете имена полей. .Item("fNam")-это имена.

А в аксессе на кнопку вешаете типа такого (скопировал кусок из своей проги)
=================================== ======
Dim objWord As Word.Application, sse As String
Dim WordWasNotRunning As Boolean

On Error Resume Next
Set objWord = New Word.Application
objWord.Documents.Add Application.CurrentProject.Path & "\DepoReports\rep_Dogovir_FO.do tx"

objWord.Application.Visible = True
objWord.Parent.Windows(1).Visible = True

With objWord.ActiveDocument.Bookmarks
.Item("fNam").Range.Text = Me.fFam & " " & Me.fName & " " & Me.fSurname
.Item("fNam1").Range.Text = Me.fFam & " " & Me.fName & " " & Me.fSurname
.Item("fPidpys").Range.Text = Me.fFam & " " & Left(Me.fName, 1) & "." & Left(Me.fSurname, 1) & "."
.Item("f_Dep_dogovir").Range.Text = Me.f_Dep_dogovir
.Item("f_Dat_dogovir").Range.Text = Me.f_Dat_dogovir
.Item("fIPN").Range.Text = Me.fIPN
.Item("fAdr").Range.Text = Me.fAdr_indx & " " & Me.fAdr_countr & " " & Me.fAdr_obl & " " & _
Me.fAdr_rayon & " " & Me.fAdr_town & " " & Me.fAdr_str
.Item("fDoc").Range.Text = Me.fDoc_ser & ", №" & Me.fDoc_num & ", виданий " & _
Me.fDoc_organ & " " & Me.fDoc_date
.Item("fRozp1_name").Range.Text = Me.fRozp1_name
.Item("fRozp1_docpovnov").Range.Tex t = Me.fRozp1_docpovnov
End With

err_:
Err.Clear
End Sub