Rambler's Top100
Форум: MS ACCESSVBVBA MS OfficeMS SQL server
Новые сообщения: 0000

Форум: MS ACCESS

Вопросы связанные с MS ACCESS

Обновить визитку
Участники «Online»
Все участники

 
 

Доброго времени суток, Посетитель!

вид форума:
Линейный форум Структурный форум

тема: Добавление чертежа
 
 автор: LOLuser   (13.03.2007 в 12:48)   личное сообщение
 
 

подскажите пожалуйста!
у меня есть форма "объекты".там у меня рассчет заказа клиента.
меня интересует как в форме сделать кнопку или ссылку на черетеж Автокада?это реально вообще?
заранее спасибо

  Ответить  
 
 автор: osmor   (13.03.2007 в 12:51)   личное сообщение
 
 

вполне... проще всего использовать поле "Гиперссылка"

  Ответить  
 
 автор: palarm   (14.03.2007 в 12:20)   личное сообщение
 
 

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

  Ответить  
 
 автор: palarm   (14.03.2007 в 12:20)   личное сообщение
 
 


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

  Ответить  
HiProg.com - Технологии программирования
Rambler's Top100 TopList