---

Hi Ho Forum...

So.. Urlaub zu ende und weiter gehts.  ;-)

Möchte jetzt meine ersten geh versuche in VBA machen.

Die Aufgabe ist das füllen von Attributfeldern in einem Schriftfeld.

Der User soll eine Eingabemaske bekommen die er dann mit Werten (Zeichn. Nr., Benennung usw..) ausfüllen soll.
(Das ist noch kein Problem...)

Diese Werte sollen dann den Attributen im Schriftfeld übergeben werden. (*hmmm* Wie das wohl geht ??)
Kann mir das jemand zeigen ???

Ähhhmmm.. Und noch was:
Welche Art der Attribute sollen im Schriftfeld definiert werden ?? (Eigenschaften, Benutzerdefinierte Eigenschaften ......???)

Vielen DANK jetzt schon mal und Gruß aus dem ziemlich kalten Norden...

Andreas

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

---

hallo andreas,
schau in diesen thread. die vba-scripte machen in etwa das was du willst.

------------------
gruß
robby

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

---

Hallo Andreas,

hatte das gleiche Problem. Ich wollte eine Zeichnungsverwaltung in Access erstellen. Mitlerweile bekomme ich schon die Daten aus der Zeichnung in eine Maske eingelesen, kann sie ergänzen und ändern und dann in die Datenbank und den Z-Kopf zurückschreiben. Das sollte also dein Problem lösen. Hier das Listing. (Die Felder sind nur als Beispiel gedacht.)

Dim oDraw As DrawingDocument
  Dim oProp As Property
  Dim oPropSet As PropertySet
  Dim oPropSets As PropertySets
  Dim i As Integer
 

 
  Set oDraw = ThisApplication.ActiveDocument
   
  Set oPropSets = oDraw.PropertySets
 
  i = 1
  For Each oPropSet In oPropSets
    For Each oProp In oPropSet
    Select Case oProp.Name
    Case "Title"
            oProp.Value = Maske.txtTitle
    Case "Subject"
            oProp.Value = Maske.txtSubject
    Case "Author"
            oProp.Value = Maske.txtAuthor
    Case "Revision Number"
            oProp.Value = Maske.txtRevisionNumber
    Case "Category"
            oProp.Value = Maske.txtCategory
    Case "Part Number"
            oProp.Value = Maske.txtBauteilnummer
    Case "Project"
            oProp.Value = Maske.txtProject
    Case "Cost Center"
            oProp.Value = Maske.txtCostCenter
    Case "Description"
            oProp.Value = Maske.txtBezeichnung
    End Select
    Next
    Next
End Sub

Am besten Du holst Dir mal die aktuellen Felder aus deinem Z-Feld mit folgendem Listing (erscheiont dann im Direktfenster vom VBA-Editor): (Danke an daywa1k3r!)

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

Bei Fragen, PM.

Gruß
Andre

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

---

Hi Ho...

Erst einmal vielen Dank für die Hilfe und Sorry das ich mich jetzt erst melde..
(Dienstreise)...  ;-)

Werde mir das in ruhe anschauen und mal sehen ob ich das hinbekomme. Werde mich dann melden...

Noch mal... Vielen Dank.. *brrrrr ist das schon kalt*

Andreas

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

---

Sooo... Programm ist fast fertig.. UND ... Es klappt suuupppeer !!
Ich sag an dieser Stelle noch einmal ** VIELEN DANK !! (von da wo heute mal endlich wieder die Sonne scheint !!)**

Wink ins Forum ...  ;-)

Andreas

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

---

iPropeties?

(oder wie man dem sagt?)

------------------
Willi Maschinenbau AG | Verpackungsautomaten und Zuführsysteme | http://www.willi-ag.com | CAD-Firma: http://www.cadlan.ch

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

---

Hi Willi_pm ...

????

War das jetzt eine Frage ????

Gruß

Andreas

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