NotesViewNavigation

[Klafu]

Bei is Nothing then läufts problemlos bis zum getNext


Der code in dem es sich abspielt sieht bis jetzt noch so aus:

Code

Set templatedb = Session.GetDatabase("", "test.nsf")
       If Not templatedb Is Nothing Then
          Set View = templatedb.GetView("CategoryView")
          If Not View Is Nothing Then
            Set nav = View.CreateViewNav()
            If Not nav Is Nothing Then
              Set Entry = nav.GetFirst
              While Not Entry Is Nothing
                If (Entry.IsCategory = True) Then
                       Entry = Entry.ColumnIndentLevel
                       If (Entry = 0) Then
                           Set popup = Menu.Controls.Add(Type:=msoControlPopup)
                             With popup
                                .Caption = "Hauptkategorie" 'Category
                                .Tag = "1"
                             End With
                       Else
                           Set popup2 = Menu.Controls.Add(Type:=msoControlPopup)
                             With popup2
                                .Caption = "Unterkategorie"
                                .Tag = "1"
                             End With
                       End If
                Else
                   Set Button = Menu.Controls.Add(Type:=msoControlButton)
                   With Button
                       .Caption = "Vorlagen-Name" 'attname
                       .OnAction = "lalaa"
                   End With
                End If
            Set Entry = nav.GetNext(Entry)
            Wend
            End If
          End If
       End If

Gruß

[Axel]

Ich glaube hier liegt der Hund begraben:

...
 If Not nav Is Nothing Then
              Set Entry = nav.GetFirst
              While Not Entry Is Nothing
                If (Entry.IsCategory = True) Then
                      Entry = Entry.ColumnIndentLevel
                       If (Entry = 0) Then
...
...
            Set Entry = nav.GetNext(Entry)
            Wend
...

Du überschreibst den Objektverweis mit dem Rückgabewert der Eigenschaft ColumnIdentLevel um dann die Variable wieder mit GetNext zu verwenden, wo du den Verweis brauchst. Das kann nicht gut gehen.


Axel

[Demian]

Moin,moin,

auch wenn bereits ein anderer Lösungsweg eingeschlagen wurde, wäre es doch auch möglich, eine Aktion "Word-Dok öffnen" in die Ansicht einzubauen, die das zugehörige Word-Dokument des markierten Dokuments öffnet.

Allerdings macht sowas nur Sinn, wenn die Word-Dokumente in einem Ordner stehen und die Namen dem Feld KAtegorie entsprechen.

Dann wäre das ganze als User zentral von einer Oberfläche aus zu handhaben.

Gruß
Demian

[Klafu]

Moin,moin,

auch wenn bereits ein anderer Lösungsweg eingeschlagen wurde, wäre es doch auch möglich, eine Aktion "Word-Dok öffnen" in die Ansicht einzubauen, die das zugehörige Word-Dokument des markierten Dokuments öffnet.

Allerdings macht sowas nur Sinn, wenn die Word-Dokumente in einem Ordner stehen und die Namen dem Feld KAtegorie entsprechen.

Dann wäre das ganze als User zentral von einer Oberfläche aus zu handhaben.

Gruß
Demian

Stimmt, das wäre so schon auch möglich
Allerdings wurde mir gesagt, ich solle eine Lösung via Makro in Word machen

[Klafu]

Ich glaube hier liegt der Hund begraben:

...
 If Not nav Is Nothing Then
              Set Entry = nav.GetFirst
              While Not Entry Is Nothing
                If (Entry.IsCategory = True) Then
                      Entry = Entry.ColumnIndentLevel
                       If (Entry = 0) Then
...
...
            Set Entry = nav.GetNext(Entry)
            Wend
...

Du überschreibst den Objektverweis mit dem Rückgabewert der Eigenschaft ColumnIdentLevel um dann die Variable wieder mit GetNext zu verwenden, wo du den Verweis brauchst. Das kann nicht gut gehen.


Axel

Ich hoffe, daran liegt es...
Ich werde es morgen sofort ausprobieren!

[Klafu]

Prima - Vielen Dank !!
Daran lags 

Nun klappts wie am Schnürchen

nur, wenn ich nun das mach will :

Code

 EntryLevel = Entry.ColumnIndentLevel
                       If (EntryLevel = 0) Then
                           [color=Red]Set EntryName = Entry.ColumnValues[/color]
                           Set popup = Menu.Controls.Add(Type:=msoControlPopup)
                             With popup
                                .Caption = EntryName 'Category
                                .Tag = "1"
                             End With

Dann bekomme ich da auch ein Typen unverträglich zurück
Ist die Methode falsch ?

[Axel]

Das kann so auch nicht funktionieren. In der Designer-Hilfe steht eindeutig, dass der Rückgabewert der Eigenschaft ColumnValues ein Array ist. Die Eigenschaft Caption hätte aber gerne eine Zeichenkette. Du siehst, wo der Hase im Pfeffer liegt!?

...
Set EntryName = Entry.ColumnValues(Nummer der Spalte beginnend bei 0)
Set popup = Menu.Controls.Add(Type:=msoControlPopup)
     With popup
           .Caption = EntryName 'Category
           .Tag = "1"
      End With
...


Axel

[Klafu]

...
Set EntryName = Entry.ColumnValues(Nummer der Spalte beginnend bei 0)
Set popup = Menu.Controls.Add(Type:=msoControlPopup)
     With popup
           .Caption = EntryName 'Category
           .Tag = "1"
      End With
...

Axel

Hallo Axel.
Okay, jetzt klappt es... aber der Fehler war glaub ein anderer
VBA hat Probleme mit "Entry.ColumnValues(0)
Ich hab es nun so gemacht :

Code

Dim EntryName(1 To 1000) As Variant
                           Dim colval As Variant
                           colval = entry.ColumnValues
                           EntryName(1) = colval(0)

Ich hoffe, ich komme nun ohne größere Probleme weiter

Vielen Dank für deine Hilfe, Axel!
Christoph

[Axel]

Okay, jetzt klappt es... aber der Fehler war glaub ein anderer

VBA hat Probleme mit "Entry.ColumnValues(0)

Der Fehler lag schon an der besagten Stelle. Das VBA mit dem Index in der Form Probleme hat ist ein anderes Thema.

Da muss unter Umständen schon mal Umwege fliegen. 

Wie dem auch sei, es freut mich, dass ich dir helfen konnte.

Axel