Problem mit Onload-Event

[pallas]

Hallo,

ich hab in einer Maske im Onload-Event folgenden Code eingefügt der leider nicht ausgeführt wird:

Sub Onload(Source As Notesuidocument)
   Dim i, Codezeichen As Integer
   Dim code As String
   code = ""
   If Source.IsNewDoc Then
      For i=1 To 16
         Codezeichen = Int(65 * Rnd(63))+48
         If Codezeichen > 57 Then
            Codezeichen = Codezeichen + 7
         End If
         If Codezeichen > 90 Then
            Codezeichen = Codezeichen + 6
         End If
         If Codezeichen > 122 Then
            Codezeichen = 45
         End If
         code = code + Chr$(Codezeichen)
      Next i
      Messagebox(code)
      Call Source.FieldSetText("CODE", code)
   End If
End Sub

leider wird weder das Feld CODE gesetzt noch die entsprechende Messagebox angezeigt.
Eingestellt habe ich "Client" und "LotusScript".

Hat jemand eine Ahnung warum der komplette Event ignoriert wird ?

Im Voraus schon mal vielen Dank für Eure Hilfe.

Gruß Thorsten

[m3]

Debugger schon mal bemüht?

[koehlerbv]

Eine Feststellung und ein Tipp:

Code

Dim i, Codezeichen As Integer

Damit ist i als Variant deklariert. Das war wohl nicht erwünscht.

NotesUIDocument.IsNewDoc ist immer False, wenn das Dokument im Backend erzeugt wurde.

Wie Martin schon schrieb: Der Debugger ist Dein Freund, wir können da weniger helfen in diesem Fall.

Bernhard