| |
 26 Кб. |
|
| | Нужно выгрузить группу людей в Word , подскажите как это сделать?  | |
| |
| |
| |
|
|
| | http://hiprog.com/index.php?option=com_content&task=view&id=379&Itemid=35 | |
| |
| |
| |
|
|
| | Этот вариант я просматривал, а как в моем случае реализовать? | |
| |
| |
| |
4 Кб. |
|
| |
http://hiprog.com/index.php?option=com_content&task=view&id=379&Itemid=35
|
При реализации данного примера в Microsoft Office 2007 выдает сообщение неверно указана единица измерения после чего заполняет документ. Как можно устранить это сообщение? | |
| |
| |
| |
|
|
| | Так что у вас, собственно, не получается? Что означает "выгрузить группу людей"? | |
| |
| |
| |
|
|
| | Списком ну к примеру через запятую не в табличной форие | |
| |
| |
| |
|
|
| | Например такая функция в общем модуле:
Function GetSeparatedString(ByVal sSource As String, _
Optional sColSep As String = ",", _
Optional sRowSep As String = vbCrLf) As String
On Error Resume Next
With CurrentProject.Connection.Execute(sSource)
If Err <> 0 Then Err.Clear: Exit Function
If .BOF Then Exit Function
sSource = .GetString(, , sColSep, sRowSep, "")
GetSeparatedString = Left$(sSource, Len(sSource) - Len(sRowSep))
End With
End Function
|
В окне отладки:
?GetSeparatedString("SELECT ФамилияР FROM Рабочая", ,", ")
ГРИГОРЬЕВ СЕРГЕЙ АЛЕКСАНДРОВИЧ, ..., НЕКРАСОВ СЕРГЕЙ ВИКТОРОВИЧ
ЗЫ. k@s, учитесь грамотно задавать вапросы.  Что значит в данном случае "не в табличной форие"? | |
| |
| |
| |
|
|
| | Дык , извиняюсь. А что значит в окне отладки? Print GetSeparatedString("SELECT ФамилияР FROM Рабочая", , ", ") | |
| |
| |
| |
|
|
| |
А что значит в окне отладки?
|
Находясь в VBA нажимаете Ctrl+G или меню View - Immediate Window.
Но это - для демонстрации. Функцию надо использовать в процедуре экспорта в Word. | |
| |
| |
| |
|
|
| | Экспорт в Word не получается , можно на примере показать. | |
| |
| |
| |
36 Кб. |
|
| | Вот и пример... | |
| |
| |
| |
29 Кб. |
|
| | Спасибо за помощь. Чем дальше в лес .......И еще нужно сократить Имя Отчество. Как это реализовать, | |
| |
| |
|
|
|
|
|
|
| |
|
|
| | извините.......
но там про Mid() | |
| |
| |
| |
|
|
| | надо как то так но не получается
FAM_I_O = Left(Me!ФамилияР, InStr(1, Me!ФамилияР, " ", 3))
For F = Len(FAM_I_O) To Len(Me!ФамилияР)
If Mid(Me!ФамилияР, F, 1) = " " Then
FAM_I_O = FAM_I_O & " " & Mid(Me!ФамилияР, F + 1, 1) & "."
Me!ФамилияР2 = FAM_I_O | |
| |
| |
| |
|
|
| | Для ясности
первый_пробел=InStr(1, Me!ФамилияР, " ")
второй_пробел=InStr(первый_пробел+1, Me!ФамилияР, " ") + первый_пробел
третий_пробел=InStr(второй_пробел+1, Me!ФамилияР, " ") + второй_пробел
if третий_пробел>0 then обработка нестандартного имени
Familya=mid(Me!ФамилияР,1, первый_пробел-1) + " " + & _
mid(Me!ФамилияР,первый_пробел+1, 1) + "." + & _
mid(Me!ФамилияР,второй_пробел+1, 1) + "."
если нужно отсслеживать Виктор, Владислав, Владимир и прочее нужно создавать обработку имени и от него пясать. | |
| |
| |
| |
|
|
| | извините - а Split не рулит? | |
| |
| |
|
|
| |
|
|
| |
..................................... 
| |
| |
| |
| |
|
|
| | Это от шаловливых ручек пользователей
Familya=UCase(mid(Me!ФамилияР,1, 1)) & StrConv(mid(Me!ФамилияР,2, первый_пробел-1),vbLowerCase) + " " + & _
UCase(mid(Me!ФамилияР,первый_пробел+1, 1)) + "." + & _
UCase(mid(Me!ФамилияР,второй_пробел+1, 1)) + "."
или про это тоже в следующем семестре 
для справки
http://hiprog.com/index.php?option=com_content&task=view&id=271
http://hiprog.com/index.php?option=com_content&task=view&id=331 | |
| |
| |
| |
37 Кб. |
|
| | Немного ушли от моей проблемы . В отчете не выходит сокращение .см.вложение | |
| |
| |
| |
|
|
| | вот - замени свой запрос на вот этот
.Bookmarks.Item(S).range = GetSeparatedString("SELECT UCase(Mid([Рабочая]![ФамилияР], 1, 1)) & StrConv(Mid([Рабочая]![ФамилияР], 2, InStr(1,[Рабочая]![ФамилияР], ' ') - 1), 2) & ' ' & UCase(Mid([Рабочая]![ФамилияР], InStr(1, [Рабочая]![ФамилияР], ' ') + 1, 1)) & '.' & UCase(Mid([Рабочая]![ФамилияР], InStr(InStr(1, [Рабочая]![ФамилияР], ' ') + 1,[Рабочая]![ФамилияР], ' ') + 1, 1)) & '.' AS Выражение1 FROM Рабочая;") | |
| |
| |
| |
|
|
| | Благодарю!Цель достигнута. | |
| |
| |
