---

Hallo zusammen,

ich habe eine Userform erstellt um Informationen zur Zeichnung in einer XML Datei zu speichern und diese auch wieder auszulesen. Das klappt auch wunderbar.
Ich öffne das UserForm über ein Makro und trage dann die Daten ein. Wenn ich jetzt aber die Zeichnung wechsel und das UserForm noch offen ist, dann wird in der neu geöffneten Zeichnung noch die Daten von der Zeichnung davor angezeigt. Ich muss erst das UserForm schließen und wieder öffnen damit die richtige Daten angezeigt werden.

Könnt Ihr mir helfen wie ich das ändern kann. Z.B. das sich das UserForm immer schließt wenn ich die Zeichnung wechsle?

Hier mal mein Code:

Code:

---

Private Sub UserForm_Initialize()
   
Dim xmlDocPath As String
Const CurrentFolder          As String = "$(_dgndir)"
ropath = "xml\data.xml"
xmlDocPath = ActiveWorkspace.ExpandConfigurationVariable(CurrentFolder) & ropath

Dim xmlDoc As Object
Dim xmlElm As Object

Set xmlDoc = CreateObject("MSXML2.DOMDocument")

xmlDoc.Load xmlDocPath

 
If xmlDoc.XML = "" Then
  Me.roVar2 = ""
  Me.roVar1 = ""
  Me.roVar3 = ""
  Me.ronotizen = ""
 
Else
  Set xmlElm = xmlDoc.getElementsByTagName("RVar2").Item(0)
  Me.roVar2 = xmlElm.Text
  Set xmlElm = xmlDoc.getElementsByTagName("RVar1").Item(0)
  Me.roVar1 = xmlElm.Text
  Set xmlElm = xmlDoc.getElementsByTagName("RVar3").Item(0)
  Me.roVar3 = xmlElm.Text
  Set xmlElm = xmlDoc.getElementsByTagName("RNotizen").Item(0)
  Me.ronotizen = xmlElm.Text
End If

End Sub

Private Sub CommandButton1_Click()

Dim xmlDocPath As String
Const CurrentFolder          As String = "$(_dgndir)"
'ropath = "xml\data.xml"
ropathfolder = "xml"
'xmlDocPath = ActiveWorkspace.ExpandConfigurationVariable(CurrentFolder) & ropath
xmlDocPath = ActiveWorkspace.ExpandConfigurationVariable(CurrentFolder) & ropathfolder

If Len(Dir(xmlDocPath, vbDirectory)) = 0 Then
  MkDir xmlDocPath
End If

xmlDocPath = xmlDocPath & "\data.xml"

Dim xmlDoc As Object
Dim xmlElm As Object
Dim txtNode As Object
Dim pInstr As Object

Set xmlDoc = CreateObject("MSXML2.DOMDocument")

Set xmlElm = xmlDoc.CreateElement("UFdata")
xmlDoc.DocumentElement = xmlElm

Set pInstr = xmlDoc.createProcessingInstruction("xml", "version=""1.0"" encoding=""UTF-8""")
xmlDoc.InsertBefore pInstr, xmlDoc.DocumentElement

Set xmlElm = xmlDoc.CreateElement("RVar2")
Set txtNode = xmlDoc.createTextNode(Me.roVar2)
xmlElm.appendChild txtNode
xmlDoc.DocumentElement.appendChild xmlElm

Set xmlElm = xmlDoc.CreateElement("RVar1")
Set txtNode = xmlDoc.createTextNode(Me.roVar1)
xmlElm.appendChild txtNode
xmlDoc.DocumentElement.appendChild xmlElm

Set xmlElm = xmlDoc.CreateElement("RVar3")
Set txtNode = xmlDoc.createTextNode(Me.roVar3)
xmlElm.appendChild txtNode
xmlDoc.DocumentElement.appendChild xmlElm

Set xmlElm = xmlDoc.CreateElement("RNotizen")
Set txtNode = xmlDoc.createTextNode(Me.ronotizen)
xmlElm.appendChild txtNode
xmlDoc.DocumentElement.appendChild xmlElm


xmlDoc.Save xmlDocPath

End Sub

---

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