Domino 9 und frühere Versionen > Entwicklung

Abfrage ob Feld = RTF

<< < (2/3) > >>

ata:
... mit LS ist das gar nicht so schwer...

Dim ws As New NotesUIWorkspace
Dim docThis As NotesDocument
Dim RTitem As NotesRichTextitem

Set docThis = ws.CurrentDocument.Document
Set RTitem = docThis.GetFirstItem( "Name_des_Richtextfeldes" )
If Not RTitem is Nothing Then
   If RTitem.Type = 1 Then
      MsgBox "... es ist ein Richtextfeld"
   End If
End If

ata

Axel_Janssen:
ist nicht so schwierig.

Hints:
a) NotesUiWorkspace hat eine PickListStrings-Methode (allerdings mit unübersichtlich vielen Parametern)

b) Klasse NotesUiDocument hat Property CurrentField

c) Klasse NotesItem hat Property Type

d) Klasse NotesRichTextItem hat die Methode EmbedObject


Erst b, dann damit etwa so (ist nicht so ganz einsichtig, hängt damit zusammen das NotesRichTextItem extends NotesItem:)

Dim nrti as NotesRichTextItem
[...]
set nrti = doc.getFirstItem(herausgefunden_in_b)
if (nrti.Type!= RICHTEXT) then
 msgbox "fehler"
else
    do a
     do d
end if

Axel_Janssen:
bob,

verstehe etwas anderes nicht.


--- Zitat ---In dem Beispiel soll per Klick ein Dok-Link eingefügt werden; wenn der Cursor nicht in einem Richtext-Feld ist soll die Fehlermeldung kommen.

--- Ende Zitat ---
Dir ist klar, das das event onClick bei Feldern ein JavaScript-Event ist??

Im LotusScript Event-Model haben nur Buttons und Aktionsschaltflächen ein LS-click-Event.
Wenn der User aber auf den Button klickt, ist der Cursor logischerweise nicht mehr im Feld !

Oder habe ich jetzt was übersehen?

Axel

bob:
Hi Axel,

vielleicht hab ich mich auch unklar ausgedrückt.

OK, hier mal'n anderes Beispiel von mir:


@If(
   @IsError(
         @Command([EditInsertFileAttachment]));
         @Command([EditGotoField]; "A_Body")
         +@Command([EditInsertFileAttachment]);
@Success)


Die Formel ist als Hotspot in der Maske. Wenn Fehler (also kein RTF-Feld), geht der Cursor zum Feld A_Body.
Das klappt wirklich auch wunderbar.

Bob

bob:
Hi,

danke Euch für die Script - Unterstützung.

Allerdings:

Die Prüfung ob RTF ist dank Script von Ata plausibel und klappt bestimmt.

Die Picklist dank der Hinweise von Axel hab ich auch mal getestet, leider ohne Erfolg.


Mittlerweile bin ich schon soweit dass ich Prioritäten setze:
Klar ist es prima, dass der Anwender VOR Auswahl eines Doks schon eine Fehlermeldung bekommt, wenn Feld nicht RTF, allerdings hält mich das ganze Thema jetzt sehr auf, was andere noch zu implementierende Funktionalitäten in die DB ausbremst.

Fazit: Danke Euch für die Lösungen, aber mangels Zeit und weiterer offener Umsetzzungen werde ich diesen hier geposteten Komfort für Anwender bis auf weiteres jetzt nicht im Script umsetzen.
Höchstens per [ToolsRunMacro] und dann Ata's Code aufrufen, aber dann hab ich bestimmt auch wieder Probleme mit der Reihenfolge. Oder ich lagere den ganzen Code in Agenten aus, aber dann ist es super unübersichtlich.....

Na ja, mal schaun.

Bob

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete