Das Notes Forum

Domino 9 und frühere Versionen => ND7: Entwicklung => Thema gestartet von: Klafu am 22.01.08 - 14:46:27

Titel: Ankerverknüpfungen
Beitrag von: Klafu am 22.01.08 - 14:46:27

Hallo, ich schon wieder  :)
Hab wie immer mal wieder eine Frage:

Ich erstelle gerade eine neue Datenbank.
Nun hat einer der baldigen DB User den Wunsch geäußert, das er am Anfang des Dokuments gerne Buttons möchte, mit denen er an verschiedene Stellen im Dokument springen kann.
Ist sowas mit Ankerverknüpfungen möglich ? Ist sowas überhaupt möglich ?

Über Hilfe bin ich wie immer sehr Dankbar  :)

Gruß Chris

Titel: Re: Ankerverknüpfungen
Beitrag von: Klafu am 22.01.08 - 16:00:29

Also, wie ich jetzt gesehn hab, sollte das ja eigentlich mit einer GotoField Methode gehen.
Allerdings bekomme ich immer ein "Object variable not set" zurück

Code

Sub Click(Source As Button)
	Dim ndoc As NotesUIDocument
	Call ndoc.GotoField("ErgBeratung")
End Sub

Aber mehr brauch ich doch eigentlich garnicht, oder ?

Titel: Re: Ankerverknüpfungen
Beitrag von: botschi am 22.01.08 - 16:06:12

Doch, Du hast das ndoc doch nur deklariert, aber nicht gesetzt.

Sowas wäre nicht schlecht:

Code

Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = workspace.CurrentDocument

Matthias

Titel: Re: Ankerverknüpfungen
Beitrag von: Axel am 22.01.08 - 16:10:04

Zitat von: Klafu am 22.01.08 - 16:00:29

Also, wie ich jetzt gesehn hab, sollte das ja eigentlich mit einer GotoField Methode gehen.

Das geht aber nur, wenn in der Maske die entsprechenden Felder vorhanden sind.

Wenn du innerhalb des Textes springen willst, dann geht das nur mit den Ankerverknüpfungen.


Axel

Titel: Re: Ankerverknüpfungen
Beitrag von: Driri am 22.01.08 - 16:12:07

Vor allem funktioniert GotoField nur im Edit-Mode.

Titel: Re: Ankerverknüpfungen
Beitrag von: Klafu am 22.01.08 - 16:14:52

Zitat von: botschi am 22.01.08 - 16:06:12

Doch, Du hast das ndoc doch nur deklariert, aber nicht gesetzt.

Sowas wäre nicht schlecht:

Code

Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = workspace.CurrentDocument

Matthias

Vielen Dank. Da hab ich nicht richtig aufgepasst.
Danke!