Office: (Office 2010) interessantes Problem

Jimmy_Star · 21. November 2019

Hallo!

Ich habe ein Formular mit einem Treeview SP6.0 als Steuerung für Formularaufrufe angelegt. Funktioniert alles Problemlos. Jedoch wenn
ich das Formular im Entwurfsmodus aufrufe und entweder im VBA Editor oder in den Eigenschaften was ändere dann schmiert Access ab und zwar mit einer Fehlermeldung siehe Anlage.

Code:

Private Sub Form_Load()

On Error GoTo Fehler_treeview_aufbau

Dim trvDisplay As Control, imglist As Control
Dim objNode As MSComctlLib.Node

Set trvDisplay = Me!TreeView1
Set imglist = Me!MainMenuImageList
Dim nodObject As Node

With Me.TreeView1
.Font.Size = 11
End With

trvDisplay.ImageList = imglist.Object

With trvDisplay.Nodes

Set nodObject = .Add(, , "System", "System", 3)
Set nodObject = .Add("System", tvwChild, "frm_benutzer_übersicht100", "Benutzer", 2)
Set nodObject = .Add("System", tvwChild, "frm_belegnummern_generator120", "Belegnummergenerator", 2)

Set nodObject = .Add(, , "Kalkulation", "Kalkulation", 3)
Set nodObject = .Add("Kalkulation", tvwChild, "frm_kalkulationsschema_übersicht110", "Kalkulationsschema", 2)
Set nodObject = .Add("Kalkulation", tvwChild, "frm_kostenstellen_übersicht110", "Kostenstellen", 2)
Set nodObject = .Add("Kalkulation", tvwChild, "frm_platzbelegung_übersicht110", "Platzbelegung", 2)
Set nodObject = .Add("Kalkulation", tvwChild, "frm_ruestzeiten_übersicht110", "Rüstzeiten", 2)

Set nodObject = .Add(, , "Stammdaten", "Stammdaten", 3)
Set nodObject = .Add("Stammdaten", tvwChild, "frm_rabattgruppen_übersicht110", "Rabattgruppen", 2)
Set nodObject = .Add("Stammdaten", tvwChild, "frm_rabattschema_übersicht110", "Rabattschema", 2)
Set nodObject = .Add("Stammdaten", tvwChild, "frm_warengruppe_übersicht110", "Warengruppe", 2)
Set nodObject = .Add("Stammdaten", tvwChild, "frm_kundentyp_übersicht110", "Kundentyp", 2)
Set nodObject = .Add("Stammdaten", tvwChild, "frm_einheiten_übersicht110", "Einheiten", 2)
Set nodObject = .Add("Stammdaten", tvwChild, "frm_kundenbranche_übersicht110", "Kundenbranche", 2)
Set nodObject = .Add("Stammdaten", tvwChild, "frm_kundenversandtour_übersicht110", "Kundenversandtour", 2)
Set nodObject = .Add("Stammdaten", tvwChild, "frm_kundenvertriebsgebiet_übersicht110", "Kundenvertriebsgebiet", 2)

Set nodObject = .Add(, , "Rechnungswesen", "Rechnungswesen", 3)
Set nodObject = .Add("Rechnungswesen", tvwChild, "frm_provisionsgruppe_übersicht110", "Provisionsgruppen", 2)
Set nodObject = .Add("Rechnungswesen", tvwChild, "frm_vertreter_übersicht110", "Vertreter", 2)
Set nodObject = .Add("Rechnungswesen", tvwChild, "frm_zahlungskonditionen_übersicht110", "Zahlungskonditionen", 2)
Set nodObject = .Add("Rechnungswesen", tvwChild, "frm_mehrwertsteuer_übersicht110", "Mehrwertsteuer", 2)
Set nodObject = .Add("Rechnungswesen", tvwChild, "frm_konten_übersicht110", "Kontenplan", 2)

Set nodObject = .Add(, , "Text", "Text", 3)
Set nodObject = .Add("Text", tvwChild, "frm_positionstext_übersicht150", "Textgenerator Rollladenposition", 2)

End With

Ende:
On Error Resume Next
Exit Sub

Fehler_treeview_aufbau:
MsgBox Err.Description & vbCrLf & "Fehler beim Aufbau des Regiezentrum", vbCritical + vbOKOnly, "Achtung"
Resume Ende

End Sub

Private Sub Form_Open(Cancel As Integer)

On Error GoTo Fehler1

'Formularposition
Dim x, y
x = 0
y = 0

DoCmd.MoveSize x, y

Ende:
On Error Resume Next
Exit Sub

Fehler1:
MsgBox Err.Description & vbCrLf & " xx ", vbCritical, "Imperator Achtung"
Resume Ende
End Sub

Private Sub TreeView1_DblClick()

On Error GoTo Fehler1

'Doppelclick und Formular öffnet sich

Dim trv As Control, strformName As String
Set trv = Forms!frm_regiezentrum!TreeView1
On Error Resume Next
strformName = Left(trv.Nodes(trv.SelectedItem.Index).Key, InStr(trv.Nodes(trv.SelectedItem.Index).Key, "1") - 1)
DoCmd.OpenForm strformName, acNormal

Ende:
On Error Resume Next
Exit Sub

Fehler1:
MsgBox Err.Description & vbCrLf & " xx ", vbCritical, "Imperator Achtung"
Resume Ende

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ist irgendwie komisch, in der Laufzeit gibt's nämlich keine Probleme ???
Vielleicht kennt das wer von euch und hat eine Lösung, das ist ziemlich lästig weil eine Änderung X Versuche erfordert. Des Öfteren schmiert ab manchmal jedoch nicht

LG JImmy

:)

markusxy · 23. November 2019

Hast du schon mal versucht das Formular neu zu erstellen?

Josef P. · 23. November 2019

Hallo!

Wie schaltest du in den Entwurf?
Öffnest du das Formular zuerst in der Formularansicht und schaltest dann in die Enwurfsansicht oder öffnest du das Formular direkt in der Entwurfsansicht?

mfg
Josef

Jimmy_Star · 24. November 2019

Ja, habs neu erstellt, ist aber das gleiche Problem geblieben.
Und unabhängig wie ich es starte oder in den Entwurfsmodus gehe
Nach Änderung von nur einem Buchstaben im VBA Editor oder
Im Formular selbst hängt sich beim speichern der Änderung die Anwendung auf .
Lg

Josef P. · 24. November 2019

Hallo!

Nach Änderung von nur einem Buchstaben im VBA Editor ...
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Hast du die Anwendung schon mit /decompile geöffnet?
Den Absturz kenne ich auch - besonders bei etwas größeren Projekten.
Anwendung schmiert ab, sobald IntelliSense anlaufen will.

/decompile und danach neu kompilieren beseitigte bisher dieses Problem bei mir.

Grüße
Josef

Jimmy_Star · 8. Dezember 2019

Ich glaube das hat funktioniert ...
Danke LG JS

Office: (Office 2010) interessantes Problem

interessantes Problem

interessantes Problem

interessantes Problem

interessantes Problem - Similar Threads - interessantes Problem

Outlook Problem

Problem bei Fußnote

Excel found a problem with one or more formula references in this worksheet

Zählenwenns Problem

Problem mit Seitenzahlen/Seitenbeschriftung

Interessante Funktionen in Word im Web

interessantes Verknüpfungsproblem mit VBA