| |
|
|
| | Помогите!!! НЕ знаю как вывести в ворд через запятую в строку список фамилий из запроса. Количество фамилий изменяеся. | |
| |
| |
| |
|
|
| | А вы как вообще в Ворд выводите строки - каким кодом? | |
| |
| |
| |
|
|
| | когда на одного человека я делаю через закладки:
' находим шаблон
Dim oBOF As BoundObjectFrame
Set oBOF = Form.Controls("OLEObject1")
oBOF = DLookup("[Шаблон3]", "Шаблоны", "[НомерШаблона] = 2")
oBOF.Verb = acOLEVerbOpen
oBOF.Action = acOLEActivate
'Word
Dim oWord As Word.Application
Set oWord = GetObject(, "Word.Application")
Dim oDoc As Word.Document
Set oDoc = oWord.ActiveDocument
oWord.Visible = True
oWord.ActiveWindow.WindowState = wdWindowStateMaximize
oDoc.Activate
'дальше закладки
.Bookmarks.Item("Фамилия").Range.Text = Nz(Фамилия, "")
Bookmarks.Item("Имя").Range.Text = Nz(Имя, "")
Bookmarks.Item("ДатаРожд").Range.Text = Nz(ДатаРожд, "")
а мне надо заполнить документ типа:
Граждане Петров Сергй, Иванов Дмитрий, Кузнецов Иван обязуются ....
где граждан может быть до 50 человек
есть заппрос в который отбирает помеченных галкой ,а как их вывести в ворд не знаю :( | |
| |
| |
| |
|
|
| | http://hiprog.com/index.php?option=com_content&task=view&id=334&Itemid=35 | |
| |
| |
| |
|
|
| | Значит в эту закладку вывести строку, с разделителями "запятая"
А Вы с DAO Знакомы? | |
| |
| |
| |
|
|
| | Dim dbs As DAO.Database 'Объявляем базу данных
Dim rst As DAO.Recordset 'Объявляем рекордсет
Dim Familiya as string
Set dbs = CurrentDb 'Открываем базу
Set rst = dbs.OpenRecordset("Запрос")
Familiya =""
With rst
'MoveFirst 'Перемещаемся к первой записи
'MoveLast 'Перемещаемся к ппоследней записи
'MoveNext 'Перемещаемся к следующей записи
Do While Not .EOF 'Выполнять пока есть записи
if Familiya ="" then
if rst !галочка = -1 then Familiya = rst!Familii
else
if rst !галочка = -1 then Familiya =Familiya & "," & rst!Familii
end if
Loop
End With
'Закрываем рекордсет и базу данных
rst.Close
Set rst= Nothing'Очистка памяти
dbs.Close
Set dbs = Nothing 'Очистка памяти | |
| |
| |
| |
|
|
| | Нет DAO не знаю :(
если этотот код вставть в мою БД будет работать?
Простите за невежество а что же отправллять в ворд?
и что такое if rst !галочка = -1 then Familiya = rst!Familii "галочка"? | |
| |
| |
| |
|
|
| | Familiya - переменная которая собирает в себе фамилии через запятую. - её в ворд и пошлём.....
\\\\\\ который отбирает помеченных галкой (галочкой)
if rst !галочка = -1 then Familiya = rst!Familii "галочка"?
Если галочка в таблице стоит - тогда добавляем к переменной ещё одну фамилию...
А что бы в Ваш код вставить - его надо посмотреть.........
только у Вас там ещё и даты рождения - их то тоже через запятую в свою закладку, а как тогда понять кто, когда родился? | |
| |
| |
| |
 43 Кб. |
|
| | посмотрите пожалуйста что есть в риложенном файле это как пример что нужно | |
| |
| |
| |
|
|
| |
Трудно Вам придётся.....
в жизни  | |
| |
| |
| |
33 Кб. |
|
| | Вот посмотрите | |
| |
| |
| |
26 Кб. |
|
| | Вот поглядите | |
| |
| |
| |
|
|
| | ОГРОМНОЕ Спасибо!!!
буду изучать ДАО | |
| |
| |
| |
|
|
| | Спасибо, спасибо, спасибо!!! | |
| |
| |
