Не пробовал , попробовал но не помогло
Если бы я знал хорошо английский может быть в жизни было бы все иначе.
Делаю так как я понял из справки
| Код |
Set dbsCurrent = CurrentDb
MsgBox dbsCurrent.Path
|
И никакого сообщения не выходит
Не судите строго а лучше просто обьясните что не так.
| Цитата |
топ-топ,топ-топ очень не легки ,
топ-топ,топ-топ Первые шаги
|
Извените за глупые вопросы ,но мне нужно быстро показать результат,а потом я все равно все переделаю под MS SQL+Delphi
Я уже справился с тем что не знаю пароль на открытие модуля(прога Advanced office pasword recovery) и стем что в форме событие OnPress не распознает русские буквы (заменил chr на chrw и все заработало) осталось это и все,можно занятся созданием новой программы.Я в форуме delphi часто отвечал на глупые вопросы,и не считаю зазорным что человек полный нуль в данном ЯП,Все знать не возможно.
вот какой сейчас код процедуры
| Код |
Private Sub T2_Click()
Dim wrd, fs As Object
Dim app As Long
Dim c As String
Set dbsCurrent = CurrentDb
MsgBox dbsCurrent.Path
Set wrd = CreateObject("Word.Basic")
Set fs = CreateObject("Scripting.FileSystemObject")
If Not fs.FileExists(dbsCurrent.Path + "\Т2\" + Me.F + " " + Me.I + " " + Me.O + ".doc") Then
wrd.fileopen (dbsCurrent.Path + "\t.rtf")
If Not IsNull(Me.F) Then
wrd.editbookmark Name:="F", GoTo:=True
wrd.insert (Me.F)
End If
If Not IsNull(Me.I) Then
wrd.editbookmark Name:="I", GoTo:=True
wrd.insert (Me.I)
End If
If Not IsNull(Me.O) Then
wrd.editbookmark Name:="O", GoTo:=True
wrd.insert (Me.O)
End If
If Not IsNull(Me.INN) Then
wrd.editbookmark Name:="INN", GoTo:=True
wrd.insert (CStr(Me.INN))
End If
If Not IsNull(Me.st_sv) Then
wrd.editbookmark Name:="st_sv", GoTo:=True
wrd.insert (CStr(Me.st_sv))
End If
If Not IsNull(Me.POL) Then
wrd.editbookmark Name:="pol", GoTo:=True
wrd.insert (Me.POL)
End If
If Not IsNull(Me.DBORN0) Then
wrd.editbookmark Name:="dborn", GoTo:=True
wrd.insert (CStr(Me.DBORN0))
End If
If Not IsNull(Me.KOBRAZ) Then
wrd.editbookmark Name:="kobraz", GoTo:=True
wrd.insert (CStr(Me.KOBRAZ.Column(1)))
End If
If Not IsNull(Me.KSEM00) Then
wrd.editbookmark Name:="ksem0", GoTo:=True
wrd.insert (CStr(Me.KSEM00.Column(1)))
End If
If Not IsNull(Me.dadres) Then
wrd.editbookmark Name:="dadres", GoTo:=True
wrd.insert (Me.dadres)
End If
If Not IsNull(Me.adr_fact) Then
wrd.editbookmark Name:="adr_fact", GoTo:=True
wrd.insert (Me.adr_fact)
End If
wrd.filesaveas (dbsCurrent.Path + "\T2\" + Me.F + " " + Me.I + " " + Me.O + ".doc")
wrd.fileclose
End If
app = Shell("winword.exe ", vbNormalFocus)
wrd.fileopen (dbsCurrent.Path + "\T2\" + Me.F + " " + Me.I + " " + Me.O + ".doc")
Set wrd = Nothing
Set fs = Nothing
End Sub
|
p.s.пути пробовал и без слэшов ((dbsCurrent.Path + "T2\" + Me.F ...)) |
)