Zeilenumbrauch im Text von @prompt

[tuxie]

Hallo

Wie kann ich eigentlich bei einer @prompt formel einen Zeilenumbruch im Text machen.

@Prompt([OK];"Fehler";"Sie haben vergessen folgende Felder auszufüllenn"+ausgabe))
Die werde aus der Variable soll auf eine neue Zeile.

Tschau Ingp

[ata]

... das geht leider nur mit MsgBox in LS - nicht mit Formel

ata

[tuxie]

habs mir schon fast gedacht,

muß eine Eingabevalidierung machen na gut mach ich das in LS

Tschau Ingo

[RedFox]

hallo,
teste doch mal das

@Prompt([OK];"Fehler";"sie haben vergessen..."+@Char(13)+ausgabe)

Grüße

[ata]

... guter Trick - ich hatte es immer mit @NewLine versucht - und damit gehts nicht...

ata

[tuxie]

Hast du einen Tip wie ich diese Validierung mit Lotus Scipt mache, habe erst angefangen mich LS zu beschäftigen.

Tschau Ingo

[klaussal]

... es fehlen hier noch die ganzen dim's etc.

Code

'------------- INDEX ------------------------------------------   
If Trim(doc.Index(0)) = "" Then
Msgbox "Bitte geben Sie eine Kategorie ein !",16,"Hinweis !"
Exit Function
End If

das ganze im querysave des doc.

[tuxie]

Dim doc As NotesDocument
    
   Set doc = source.Document
   
    If Trim(doc.fahrzeug_kennz(0)) = "" Then
   Msgbox "Bitte geben Sie eine Kategorie ein !",16,"Hinweis !"
   Exit Function
End If

Ist das so richtig ?

Tschau Ingo

[ata]

@Klaussal
... im QuerySAve gibt es dann ein Problem mit dem Exit Function - denn da hast du eine Sub...

... ich validiere am Liebsten vor dem Speichern - also im QuerySave.
... die Liste aller Felder und deren Bezeichnung lege ich in 2 Arrays ab
... diese beiden Listen arbeite ich dann in einer Funktion ab
... die Rückgabe der Funktion ist ein String
... ... der String ist leer, wenn keine Fehler gefunden wurden
... ... ansonsten enthält er die Liste der Feldbezeichnungen, die leer waren
... in der Funktion wird eine Variable iFirst den Index des ersten falschen Feldes angeben - zu diesem Feld wird nach Abbruch der Speicherung der Cursor geführt.

Code

' Den folgenden Code ins QuerySave der Maske

   Dim docThis As NotesDocument
   Dim sField( 0 To 1 ) As String
   Dim sFName( 0 To 1 ) As String 
   Dim sResult As String
   Dim iFirst As Integer
   
   sField( 0 ) = "Subject"
   sFName( 0 ) = "Betreff"
   
   sField( 1 ) = "SendTo"
   sFName( 1 ) = "Empfänger"
   
   Set docThis = Source.Document
   sResult = ValidateFields( docThis , sField , sFName , iFirst )
   If sResult = "" Then
      Print "... alles in bester Ordnung ausgefüllt"
   Else
      Msgbox sResult , 0 , "Abbruch der Speicherung"
      ws.CurrentDocument.GoToField( sField( iFirst ) )
      Continue = False
   End If

Function ValidateFields( docThis As NotesDocument, vField As Variant , vFName As Variant , iFirst As Integer) As String
   Dim vValue As Variant
   Dim i As Integer
' # Validierung der Feldinhalte im Backend
   iFirst = -1
   If Not docThis Is Nothing Then
      If Isarray( vField ) And Isarray( vFName )  Then
         If Ubound( vField) = Ubound( vFName ) And Lbound( vField) = Lbound( vFName ) Then
            For i = Lbound( vField ) To Ubound( vField )
               vValue = docThis.GetItemValue( vField( i ) )
               If Trim( vValue( 0 ) ) = "" Then
                  ValidateFields = ValidateFields + vFName( i ) + Chr(10)
                  If iFirst = -1 Then
                     iFirst = i
                  End If
               End If
            Next
            If ValidateFields <> "" Then
               ValidateFields = "Folgende Felder enthielten keine Werte:" + Chr(10) + Chr(10) + ValidateFields + Chr(10) + Chr(10) + "Bitte geben Sie in diesen Feldern etwas ein"
            End If
         End If
      End If
   End If
End Function

... das wäre mal so ein kleiner Rund-Um-Schlag...

ata

[tuxie]

Kann ich jetzt sfield und sfname einfache erweitern?,
Und kann ich dann in meiner Aktion einfach @command([FileSave]) aufrufen oder wie wird gespeichert ??

TSchau Ingo

[ata]

Kann ich jetzt sfield und sfname einfache erweitern?,

... genau, das Array Erweitern und die Werte zuweisen,...

Und kann ich dann in meiner Aktion einfach @command([FileSave]) aufrufen oder wie wird gespeichert ??

... du kannst den @Command verwenden, er stößt den QuerySave an. Es wird nicht gespeichert, wenn die Felder nicht ordentlich befüllt sind - ansonsten schon

... einzigste Ausnahme - wenn du im Backend einen Doc.Save verwendest, dann wird das QuerySave nicht verwendet...

ata

[tuxie]

Hallo,

danke habe aber noch ein Problem, wenn ich jetzt keine Werte in das Formular eintrag und dann Speichern betätige erscheint wie es sein Soll die Messagbox aber nach dem ich OK. geklickt habe kommt folgende Fehlermeldung:

Code

Variant does not contain an object

[ata]

... wo im Debugger bekommst du den Fehler?

ata

[tuxie]

Hallo,

Nein beim ausführen des Scirbtes (speichern des docs) und ich keine Inhalte drin habe, öffnet sich nachdem die Msgbox meldung angezeigt wurde erschein ein neues Fenster wo dies Fehlermeldung dann erscheint.

ich habs mal durch den Debuger laufen lassen und da kommt die Fehlermeldung dann bei

Msgbox sRults,0,0 "Abb......"
ws.currentDocument.GoToField......

Tschau Ingo

[ata]

... sorry, das war mein Versehen - ich hatte den Code in einer Schaltfläche, und da hatte ich ws als Objekt benutzt und nicht Source aus dem QuerySave...

... korrigiere die Zeile in

Source.GoToField( sField( iFirst ) )

... dann dürfte keine Fehlermeldung mehr kommen

ata

[tuxie]

Danke,

jetzt Funktioniert es.

 

Tschau Ingo