---

erstellen, wie geht das am besten?

Hallo zusammen,
ich wollte mir eine kleine Zeichnugnsverwaltung mit Access aufbauen. Doch dies klappt generell über DB-Verbundung ganz gut. Doch möchte ich auch aus Access heraus eine Zeichung öffnen können. Wie stell ich das am besten an?

Hat jemand vielleicht ähnliches schon mal gemacht und kann mir ein paar Tips geben?

Danke!
caxman

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

kurzes Beispiel aus der Access Hilfe für eine Ereignisprozedur:

Sollte auch mit direktem Aufruf der DWG bzw. wenn nicht, mit dem Aufruf von ACAD mit dem Zeichnungsnamen als Parameter gehen.

-----------------------------------------------------------------

In diesem Beispiel wird die Shell-Funktion verwendet, um eine vom Benutzer angegebene Anwendung zu starten.

' 1 als zweites Argument startet die Anwendung in Normalgröße mit Fokus.
Dim Ergebnis
Ergebnis = Shell("C:\WINDOWS\CALC.EXE", 1) ' Rechner starten.

Grüße

Wolfgang Gruber www.syscad.info

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Sofistik hat so ne Zeichnungsverwaltung aber frag mich nicht wie das funkt.
Die liest den Plankopf aus und ( Die Schreibkraft kann die Projektdaten mit men Viewer einsehen und vervollständigen )

cw

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo caxman

anbei ein kleines Makro für eine Formular-Schaltfläche in Access,
die den Dateinamen des aktuellen Datensatzes liest und dann AutoCAD
mit dieser Datei startet. Du musst natürlich die Benennungen anpassen.
Es wird auch keine Prüfung vorgenommen, ob die Datei existiert.

Grüße
Heinz

Private Sub Befehl6_Click()
Dim rst As Recordset
Dim name As String

Set rst = CurrentDb.OpenRecordset("SELECT * FROM Tabelle1")
rst.AbsolutePosition = Forms.Item("Tabelle1").CurrentRecord - 1
name = rst.Fields("Datei")


Dim cad As Object
Dim acad As AcadApplication
Dim autocad_gestartet As Boolean
 
autocad_gestartet = True
On Error Resume Next
Set cad = GetObject(, "AutoCAD.Application")
If Err.Number <> 0 Then
    Err.Clear
    Set cad = CreateObject("AutoCAD.Application")
    autocad_gestartet = False
End If
Set acad = cad
acad.Visible = True
acad.Documents.Open name, False

End Sub

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP