Hallo!
Ich hab noch ne andere Frage. Und zwar funktioniert bei diesem Code die IF Bedingung nicht so wie ich möchte:
Sub Exiting(Source As Field)
Dim workspace As New NotesUIWorkspace
Set doc = workspace.CurrentDocument
Set doc = workspace.EditDocument( True )
Dim ws As New NotesUIWorkspace
Dim NotesDoc As NotesDocument
Set NotesDoc = ws.CurrentDocument.Document
Dim twoLiner As String
Dim ratingValue As Integer
Dim ratingComent As String
Dim commentLength As Integer
ratingValue = Cint (NotesDoc.iq_RateIT (0))
ratingComment = Cstr(NotesDoc.iq_RateITComment(0))
commentLength = Len(ratingComment)
' Klammern sind für Array Wert 0
Messagebox commentLength , MB_OK ,"Variabeltest"
If (ratingValue <= 50 & commentLength < 5) Then
twoLiner = |Bitte begründen Sie unten Ihre Bewertung.
Sie helfen so unsere Dienstleistung zu verbessern. Vielen Dank!|
Messagebox twoLiner , MB_OK ,"Hinweis"
doc.GotoField ("iq_RateITComment")
Else
End If
Call doc.RefreshHideFormulas
Call doc.Refresh
End Sub
Vorallen If (ratingValue <= 50 & commentLength < 5) funktioniert nicht. commentLength gibt einen CInt zurück, siehe auch "Messagebox commentLength , MB_OK ,"Variabeltest""
Auch wenn der Text der Variable ratingComent mehr als 5 Zeichen hat und commentLength mehr als 5 sein sollte, klappts mit der Bedingung nicht.
Vielen Dank für eure Hilfe!
Gruss
Manuel