---

Hallo,

ich würde gerne eine Zeichnungsverwaltung mit Access erstellen. Ist es möglich per VBA den Inhalt des Zeichenkopfes an Access und umgekehrt zu übergeben. D.H. ich erstelle meine Zeichnung, klicke auf einen Button ("Zeichnungsdaten übergeben" oder so) und habe die Werte in dem Access-Datensatz. Dann ergänze ich die fehlenden Angaben und schreibe das per Klick (Button) in die Zeichnung zurück.

Wir verwalten die Zeichnugsdaten zur Zeit noch mit Lotus-Approach. Ich denke aber nicht das man das auch damit realisieren kann.

Gruß,
Andre

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

---

Hallo Andre

WennŽs um eine reine Zeichnungsverwaltung unter IV7 ginge würde ich sagen: Schau Dir mal Adesk-Vault an.

Aber der von Dir vorgeschlagene Weg erscheint mir auch recht steinig, aber da können Dir die VBA-Dengler mehr sagen.

lf Mathias

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

---

Hallo Akrist,

ich arbeite nicht soviel mit VBA (nur wenn es sein muss), aber ich denke, dass es nicht möglich ist aus Inventor VBA auf Access zuzugreiffen. Ich lasse mich aber eines besseren belehren. Falls das so ist, brauchst du eine ernsthafte Entwicklungs Umgebung (VB6, VB.NET, ... ).

Grundsätzlich ist es kein Problem die Eigenschaften aus einer IDW auzulesen, irgendwo zu speichern, zu bearbeiten und wieder zurück zu schreiben. Aber deine Aufgabenstellung geht darüber hinaus, und wie der Mathias schon gesagt hat, ist das ein steiniger Weg. Vor Allem, gibt es sehr viele Möglichkeiten eine Zeichnungsverwaltung zu erstellen.

Also, falls du doch anfangen willst, und versuchen die Aufgabe zu bewältigen, wirst du hier natürlich unterstüzt.

------------------
Grüße daywa1k3r

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

---

Hi,

danke erstmal für eure Antworten. Das das nicht einfach wird, hab ich mir auch schon gedacht. Ich hab mir mal so ein Tool für Excel runtergeladen. Da kann man ganze Verzeichnisse auslesen, die Daten ergänzen und wieder zurückschreiben. Da hab ich halt gedacht, wenn das mit Excel geht dann sollte das auch mit Access gehen. Nur komm ich an den Code nicht drann. (Passwort)

An Vault hab ich auch schon gedacht, nur bekomme ich den nur mit Subscription. Und den krieg ich hier nicht. :-( Also muß ich mir irgendwie selber helfen.

Wie komme ich denn an eine Übersicht der Paramenter die ich auslesen kann.

Gruß,
Andre

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

---

Hiermit:

Code:

---

Public Sub test_idw_eig()

  Dim oDraw As DrawingDocument
  Dim oProp As Property
  Dim oPropSet As PropertySet
  Dim oPropSets As PropertySets
  Dim i As Integer
 
  On Error Resume Next
  Set oDraw = ThisApplication.ActiveDocument
 
  If Err.Number <> 0 Then
    MsgBox "Irgendwas stimmt nicht. Hab' aber jetzt keine Zeit danach zu suchen. Sorry!", vbCritical, "daywa1k3r"
    End
  End If
 
  Set oPropSets = oDraw.PropertySets
 
  i = 1
  For Each oPropSet In oPropSets
    For Each oProp In oPropSet
      Debug.Print i & ". "; oProp.Name & " = " & oProp.Value
      i = i + 1
    Next
  Next
 
End Sub

---

kannst du alle Eigenschaften einer IDW auslesen. Du kannst die dann filtern, falls du die nicht alle brauchst. Es ist auch möglich die Werte wieder zu setzen, da die Eigenschaften Read/Write sind.

------------------
Grüße daywa1k3r

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

---

Hallo Andre,

ich denke schon das das mit access und vba möglich ist. wir lesen/schreiben auch mittels vba in dbf (dbase) und auch sql-server. Werd Dir die Tage mal was raussuchen evtl. direkt mit access, dauert aber noch ein bisschen.

Gruß
Seher

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

---

Hall Seher,

da sag ich doch schon mal Danke!

Gruß,
Andre

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

---

Zitat:

---

ich denke schon das das mit access und vba möglich ist.

---

Ach, ja. Jetzt habe ich die Verweise gefunden. Extras -> Verweise. Klar, dann geht es schon. Hast schon Recht. Ich habe nur im Projekt -> Verweise (wie in VB) gesucht 

------------------
Grüße daywa1k3r

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

---

Verweise.jpg

Hallo Andre,

habe gerade mal was gebastelt, hoffe es hilft dir weiter und zwar mittels ODBC.
Also zuerst mal einen ODBC-Treiber mit dem Namen "access" unter der Systemsteuerung vereinbaren (Access-Treiber und Deine gewünschte mdb auswählen)dann die Verweise in vba-editor einstellen (siehe jpg)und dann eine mdb mit Tabelle1 und Feld1 und Feld2 erstellen. Wenn Feld1=vbatest_feld1 ist, dann wird Feld2 ausgelesen. Es gibt bestimmt noch andere Wege, doch try it...

Gruß
Seher

Public Sub invmdbtest()
    ' Set a reference to the drawing document.
    ' This assumes a drawing document is active.
    Dim oDrawDoc As DrawingDocument
    Set oDrawDoc = ThisApplication.ActiveDocument
   
   
    Dim conn As New Connection
    'Dim conn1 As New Connection
    Dim recs As Recordsets
    Dim rec As New Recordset, f, f1, f2, f3 As Field
    Dim odateiname As String
    Dim Wnummer As String
   
    Dim sql$, x&
    Wnummer = "vbatest_feld1"
   
    conn.Open "Provider=MSDASQL;DSN=Access"

    odateiname = oDrawDoc.DisplayName
   
    sql = "SELECT FELD1, FELD2 " & _
        "FROM Tabelle1 WHERE FELD1 =  '" & Wnummer & "';"
    'MsgBox ([sql])
    rec.Open sql, conn
    Set f2 = rec.Fields.Item("FELD2")
        Dim Inhalt2 As String
        Inhalt2 = f2.Value
        MsgBox ([Inhalt2])
    rec.Close: conn.Close
 
End Sub

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