EditGotoField + EditInsertFileAttachment

[robertpp]

Hallo,

Ich hab einen kleinen Wünsch und weiß nicht wie ich das lösen kann.
Ich hab 10 Buttongs
@Command([EditGotoField]; "File1");
@Command([EditInsertFileAttachment])
die in 10 verschiedenen Feldern "File1, File2,....File10" ein Attachment anhängen.
So nun möchte ich aber verhinder das der User in die Felder hineinklicken kann und wollte das beim Sub Entering mit
   Dim uidoc As NotesUIDocument
   Set uidoc = ws.CurrentDocument
   Call uidoc.GotoField( "Body" )
machen nur dann kann ich auch nichts mehr anhängen weil ja auch der Button zuerst ins Feld spring und dann anhängt.
Kann ich irgendwie unterscheiden mit einer Variable ob das der Button war oder der User?

danke Robert

[Axel]

Kann ich irgendwie unterscheiden mit einer Variable ob das der Button war oder der User?

Setze doch in deinen Buttons noch ein Feld z.B. auf 1. Dann kannst du im Entering - Event abfragen ob das Feld 1 ist. Wenn ja, bleib hier, sonst go away.

Vergesse aber nicht, beim Speichern des Dokumentes dieses Feld zurückzusetzen.

Axel

[koehlerbv]

Das darf nicht erst beim Speichern zurückgesetzt werden, sondern immer gleich im Entering:
Ist Feld <> 1, dann hüpfe 'raus, sonst setze es auf 0.

Sonst funktioniert das nicht - ein Click auf den Button, und danach könnte man auch munter in den Feldern editieren.

Bernhard

[Axel]

Das darf nicht erst beim Speichern zurückgesetzt werden, sondern immer gleich im Entering:
Ist Feld <> 1, dann hüpfe 'raus, sonst setze es auf 0.

Sonst funktioniert das nicht - ein Click auf den Button, und danach könnte man auch munter in den Feldern editieren.

Bernhard

Hast recht, habe hier nicht bis zu ende gedacht. Aber zusätzlich muss das Feld auch noch vor dem Speichern zurückgesetzt werden, denn es kann ja sein, dass man nicht versucht in das Feld zu klicken. In diesem Fall würde dann das Feld gesetzt bleiben.

Axel


Axel

[koehlerbv]

Nein, das ist nicht erforderlich: Nur der Button setzt das Feld, damit wird aber auch in das RTF gesprungen, Entering schlägt zu und entfernt die 1 aus dem Feld. Es gibt ja keinen anderen Weg, wie die 1 ins Feld kommt als über den Button ...

Bernhard

[robertpp]

Also danke für die Hilfe ich hab das gerade getestet. Das zurücksetzt ist wirklich gleich erfolderlich sonst kann man munter darauf herumklicken. Nur ein kleines Problem hab ich noch im Buttong macht er das zurücksetzten nicht:

@SetField("Comment";"1");
@Command( [ViewRefreshFields] );
@Command([EditGotoField]; "File1");
@Command([EditInsertFileAttachment]);
@SetField("Comment";"0");
@Command([EditGotoField]; "Body");
@Command( [ViewRefreshFields] )

Das @SetField("Comment";"0"); macht er nicht!?

[robertpp]

Das Problem hab ich jetzt auch geschafft mit

   If doc.Comment(0) <> "1" Then
      Call uidoc.GotoField( "Body" )
   Else
      Call uidoc.FieldSetText("Comment","")
   End If

Aber jetzt tritt klarerweise ein ganz anderer Effekt in Kraft.
Ich kann mir die angehängten Files nicht mehr ansehen da ja beim Entering Event autom. in das Body Field gesprungen wird.

[Axel]

Da hast du dich selbst ausgetrickst. 


Aber Spass beiseite. Alternativvorschlag wären Rich Text Lite - Felder. Hier lässt du dann nur Anhänge zu. Eventuell kannst du damit dein Problem lösen.


Axel

[robertpp]

Ja so scheint es das ich mich selbst ausgesperrt habe.

Mir geht es ja nicht unbedingt darum das niemand mehr Text in das Feld schreibt. Ich wollte einfach nur haben das die Leute nur über den Button Attachments anhängen können und dabei nicht ins Feld klicken. Aber ich denke das geht so einfach nicht.