| |
|
|
| | Никогда не пользовался закладками,
вот решил применить, нет ли у кого (как пример)-простенькой формочки с обращениями к закладкам , к полям на них , на видимой невидимой - что ба полегче освоение прошло.
Сами мы не местные помогите кто чем можкт,-~ | |
| |
| |
| |
|
|
| | имхо
закладками имеет смысл пользоваться только в том случае, когда выводимой на форму информации "слишком много"
обычно конечный пользователь говорит примерно так:
"что за хрень, забодался я уже их щелкать - пока там посмотрел, перешел на др. закладку уже забыл, что посмотрел, пока вернулся - уже забыл, что там видел."
так что подумай сперва | |
| |
| |
| |
|
|
| | ДрЮня - я подумал без них трудно несколько форм надо будет.
Задача такая. Учет номерных марок-пломб
1 приход штуки ,дата
2 выдача кому скока
3 наклейка кому, когда
4 возврат кода, чего
5 списание кода чего
Вот и хотел 5 закладок.  | |
| |
| |
| |
|
|
| | дело вкуса, опять таки, но мне, например, больше нравиться использовать
тот же ListView
например, так
http://www.by-pass.narod.ru/prjVB/spu/main.htm | |
| |
| |
| |
|
|
| | вот так можно http://www.accessoft.ru/Text/Text702.html | |
| |
| |
| |
|
|
| | Извиняюся, но... там http://www.accessoft.ru/Text/Text702.html
--->>> Пример вывода данных из Access в Word | |
| |
| |
| |
|
|
| | Но лучше сделать запрос с полями по именам закладок. Тогда можно автоматизировать это дело. Например так (это часть секретного кода из LibFrm.mde формы subFrmReport, которая выводит отчеты  )
Function funOutputWord(strWord As String, frm As Form) As Boolean
On Error GoTo Err_
Dim rst As DAO.Recordset
Dim app As Word.Application
Dim DlgUser As Integer
Dim strPathDot As String, strPathWord As String, s As String
Dim ctl As Control
Dim i As Long
strPathDot = DLookup("ParamValue", "tGlobalPathFolder", "[ParamName] = '" & "PathWordDot" & "'") & "\" & _
strWordDotName & "\" & Me.rptTextName & ".dot"
strPathWord = DLookup("ParamValue", "tGlobalPathFolder", "[ParamName] = '" & "PathWordDoc" & "'")
If IsFileName(strPathDot) = False Then Exit Function
If Dir(strPathWord & "\" & strWordDotName & "\" & strWord) <> "" Then
DlgUser = MsgBox("Документ с таким именем ранее уже был создан. Заменить его?", vbYesNo, "admin")
If DlgUser = vbNo Then
Set app = CreateObject("Word.Application")
With app
.Visible = True
.Documents.Open strPathWord & "\" & strWordDotName & "\" & strWord
End With
Set app = Nothing
Else
GoTo nn
End If
Else
nn:
funCreateFolder (strPathWord & "\" & strWordDotName)
Set app = New Word.Application
app.Visible = True
app.Documents.Add strPathDot
With app.ActiveDocument
Set rst = CurrentDb.OpenRecordset("SELECT " & Me![rptName] & ".* FROM " & Me![rptName] & _
" IN '" & CurrentProject.Path & "\" & strBaseName & "'")
On Error Resume Next
For i = 1 To rst.Fields.Count
.Bookmarks.Item(rst.Fields(i).Name).Range.Text = rst.Fields(i)
Next i
rst.Close
.SaveAs strPathWord & "\" & strWordDotName & "\" & strWord
End With
Set app = Nothing
funOutputWord = True
End If
Exit_:
Exit Function
Err_:
MsgBox Err.Description
funOutputWord = False
Err.Clear
app.Quit
Resume Exit_
End Function
|
| |
| |
| |
| |
|
|
| | Спасибо <<<Пример вывода данных из Access в Word >>>
Ноя имел ввиду закладки на форме (это такие лонтролы типа кнопок, наложеных друг на друга)  | |
| |
| |
| |
|
|
| | Пошлите меня на закладку про закладки не форме - будьте добры. | |
| |
| |
| |
|
|
| | В этой проге туча закладок http://am.rusimport.ru/MSAccess/topic.aspx?ID=584 | |
| |
| |
| |
|
|
| | Спасибо, palarm!
За статью спасибо, за на-водку, за внимание...... 
Для тех, кто не в курсе, открывать для просмотра базу надо так: придавить кирпичом SHIFT и щелкать по «Двери». | |
| |
| |
