Domino 9 und frühere Versionen > ND7: Entwicklung

NotesViewNavigation

<< < (6/6)

Klafu:
Prima - Vielen Dank !!
Daran lags  :D :D

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
--- Ende Code ---

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:

--- Zitat von: Axel am 03.07.07 - 13:09:45 ---
...
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

--- Ende Zitat ---

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)
--- Ende Code ---

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

Vielen Dank für deine Hilfe, Axel!
Christoph

Axel:

--- Zitat von: Klafu am 04.07.07 - 11:15:16 ---Okay, jetzt klappt es... aber der Fehler war glaub ein anderer

VBA hat Probleme mit "Entry.ColumnValues(0)

--- Ende Zitat ---

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
 

Navigation

[0] Themen-Index

[*] Vorherige Sete