Das Notes Forum

Domino 9 und frühere Versionen => ND6: Entwicklung => Thema gestartet von: pallas am 27.05.07 - 15:39:48

Titel: Problem mit Onload-Event
Beitrag von: pallas am 27.05.07 - 15:39:48

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

Titel: Re: Problem mit Onload-Event
Beitrag von: m3 am 27.05.07 - 17:03:34

Debugger schon mal bemüht?

Titel: Re: Problem mit Onload-Event
Beitrag von: koehlerbv am 27.05.07 - 19:30:56

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