Private Sub Прим_DblClick(Cancel As Integer)
On Error GoTo 999
Dim PathDoc, WidDoc, WidDocRas, strFile, strFilter As String
Dim Ответ As Integer
If IsNull(Forms!Документы!ТипДокумента) Then
MsgBox "Укажите тип документа!", vbCritical, NomWers
Forms!Документы!ТипДокумента.SetFocus
Exit Sub
End If
PathDoc = Forms!Документы!СправПутьДокНорм.Form!ПутьДокНорм
WidDoc = "Acd"
WidDocRas = ".dwg"
If IsNull(Путь) Then
Ответ = MsgBox("Хотите присоединить уже имеющийся файл к базе данных?", vbYesNo, NomWers)
If Ответ = vbYes Then
[Путь] = fOpenDialog
Set pp = GetObject([Путь])
PathDoc = PathDoc & "\" & [КодДокНормРасх] & WidDoc & WidDocRas
[Путь] = PathDoc
pp.SaveAs PathDoc
Else
If Прим.Text = "" Then Прим = ""
PathDoc = PathDoc & "\" & [КодДокНормРасх] & WidDoc & WidDocRas
Set pp = New AcadDocument
pp.SaveAs PathDoc
[Путь] = PathDoc
End If
Else
Set ppp = GetObject([Путь])
End If
Exit_:
Exit Sub
999:
MsgBox Err.Description
Err.Clear
Resume Exit_
End Sub
|