Suche | Statistiken | Benutzerliste | Access-FAQ | Datenschutz Foren
donkarl Forum
donkarl Forum ->  Themen -> Access -> Diskussion ansehen

Du bist als Gast eingelogt. ( Anmelden | Registrieren )
  • Datenaktualisierung ODBC
  • Robert20.05.14 13:49
  • Steuerelement dieses Elements wurde gelöscht. ...
  • @Julia10.05.14 09:52
       └ RE: Steuerelement dieses Elements wurde gelöscht... wilo15.05.14 08:07
          └ RE: Steuerelement dieses Elements wurde gelösc... @Julia17.05.14 17:28
          └ RE: Steuerelement dieses Elements wurde gelösc... @Julia20.05.14 10:09
  • Fehler bei Übertrag im Bericht
  • pwakolbi16.05.14 11:18
       └ RE: Fehler bei Übertrag im Bericht Karl Donaubauer16.05.14 13:27
          └ RE: Fehler bei Übertrag im Bericht pwakolbi16.05.14 15:04
  • Sicherun und Löschen
  • dreho04.05.14 07:55
       └ RE: Sicherun und Löschen Karl Donaubauer16.05.14 13:44
  • Access 2003 unter WIN7 PRO und WIN XP PRO
  • Inside11108.05.14 16:22
       └ RE: Access 2003 unter WIN7 PRO und WIN XP PRO wilo15.05.14 07:59
  • Probleme beim Export von Bericht
  • pwakolbi13.05.14 12:32
       └ RE: Probleme beim Export von Bericht Karl Donaubauer13.05.14 14:52
          └ RE: Probleme beim Export von Bericht pwakolbi14.05.14 21:23
  • Neue Interessengruppe für Access-Entwickler
  • Karl Donaubauer13.05.14 15:58
  • Access 2013 Weitergabe mit Verweisen auf Word/Exce...
  • georg586205.05.14 22:32
       └ RE: Access 2013 Weitergabe mit Verweisen auf Wor... Karl Donaubauer05.05.14 23:59
          └ RE: Access 2013 Weitergabe mit Verweisen auf W... georg586207.05.14 22:08
          └ RE: Access 2013 Weitergabe mit Verweisen auf W... georg586208.05.14 21:39
  • Navigation Benutzerdefinert
  • dreho08.05.14 12:38
  • Access 2013 – Weitergabe einer accde bzw. accdc
  • georg586205.05.14 22:35
       └ RE: Access 2013 – Weitergabe einer accde bzw. ac... Karl Donaubauer06.05.14 00:08
          └ RE: Access 2013 – Weitergabe einer accde bzw. ... georg586207.05.14 22:13
  • Access 2013 – Designs bzw. mehrzeilige Register
  • georg586205.05.14 22:30
       └ RE: Access 2013 – Designs bzw. mehrzeilige Regis... PeterDoering06.05.14 01:16
          └ RE: Access 2013 – Designs bzw. mehrzeilige Reg... georg586207.05.14 22:11
  • Lästige gepunktete Linie
  • dreho07.05.14 06:57
       └ RE: Lästige gepunktete Linie Karl Donaubauer07.05.14 19:55
  • Access-Programm-Fenster
  • dreho06.05.14 12:02
  • Daten anfügen mit Formular
  • dreho03.05.14 10:56
       └ RE: Daten anfügen mit Formular Karl Donaubauer03.05.14 15:24
          └ RE: Daten anfügen mit Formular dreho06.05.14 10:42
  • MSG Box
  • Heims04.05.14 13:06
       └ RE: MSG Box PeterDoering06.05.14 01:37
    @Julia
    Gesendet: 10.05.14 09:52
    Betreff: Steuerelement dieses Elements wurde gelöscht. Fehler 65605


    Member

    Beiträge: 17

    Hallo

    Ich verwende das Microsoft Treeview control Versin 6.0. Der code sucht einen Knoten in meinem Treeview.

    Die Fehlermeldung erscheint ab und zu bei erreichen der rot markierten Zeile. An der grün markierte Stelle
    mLastNodeFound.Text <> "Kategorien" hat die Variable mLastNodeFound noch einen Wert. Kann mir jemand von euch hier helfen?

    Public Function FindInputStringInTree(ByVal FindPath As String, ByVal objTreeView As treeView) As Boolean
    'Find a node in Treeview by it's FullPath, expand and highlight it.
    'FindPath    ...... Fullpath to search for.
    'ObjTreeView ... Treeview Object.

    Dim knoten As MSComctlLib.Node

       On Error GoTo err_FindInputStringInTree               'Start error handling.

         For Each knoten In objTreeView.Nodes               'Loop through nodes.

           If knoten.FullPath = FindPath Then                  'Category path found.
            Call CollapseTreeViewNodes(objTreeView)        'Collapse al nodes.
             Set mLastNodeFound = knoten                     'Save found node.
              knoten.Selected = True                              'Select node.
               knoten.EnsureVisible                                'Show selected node.
                knoten.Expanded = True                          'Expand node.
                 knoten.BackColor = vbRed                      'Show node found red
                  knoten.Parent.Selected = True                'Select parent node.
                   FindInputStringInTree = True                'Path found.
               
                Exit For                                              'Leave each loop.
          
           End If
         Next
                                                           
       If Not mLastNodeFound Is Nothing Then
                                                                          'Path not found and nodetext is not KATEGORIEN.
        If FindInputStringInTree = False And mLastNodeFound.Text <> "Kategorien" Then
         Call CollapseTreeViewNodes(objTreeView)            'Collapse all nodes.
          mLastNodeFound.Selected = True                      'Select node.
           mLastNodeFound.Expanded = False                  'Expand selected node.
            mLastNodeFound.Parent.Selected = True           'Select parent node.
             Set mLastNodeFound = Nothing                     'Clear object variable
       
        End If
       End If
             
    res_FindInputStringInTree:                                   'Point of resume application.

    Exit Function

    err_FindInputStringInTree:
     
     Select Case Err.Number
     
      Case Else
     
        MsgBox "Ein unbekannter Fehler ist aufgetreten." & g2CrLf & "Fehler-Nr  :  " & _
               Err.Number & gCrLf & "In Modul   : Common - FindInputStringInTree" & _
               g2CrLf & "Fehlertext : " & Err.Description, vbCritical Or vbOKOnly, " Unbekanter Fehler"
        
        Resume res_FindInputStringInTree                  'Point of resume application.

     End Select

     

    Danke und Gruß Julia.

    Top of the page Bottom of the page


    Seite: < 49 50 51 52 53 54 ... 55 56 57 58 59 60 61 ... >
    Suche in diesem Forum
    Druckfreundliche Version
    (Alle Cookies von dieser Seite löschen.)