Feld mit fortlaufender Nummer

[Enelade]

hier das Fenster.
Vielen Dank für Deine Hilfe

[ata]

... um deinen Code an der Stelle zu verwenden muß das uidoc noch deklariert werden. Ich vermute mal, daß in den Globals der Ursprumgsmaske noch globale Variablen gesetzt wurde, die dir jetzt nicht vorliegen...


... probiers mal mit

Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = ws.CurrentDocument

... un dann der restliche Code - vielleicht hilft das schon, kann aber sein daß ihm noch andere Variablen fehlen...

ata

[Enelade]

so?

Sub Click(Source As Button)
   
   Dim ws As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   Set uidoc = ws.CurrentDocument
   
   If Not uidoc.editmode Then uidoc.editmode = True
   
   uidoc.document.Number = GenerateSequentialNumber( profileNumberForm_Main$ )
   
End Sub

Da bringt er mir aber beim speichern den Fehler, dass er aufgrund eines Fehlers nicht speichern kann.

Wie gesagt, ich habe noch nie Script programmiert, darum meine Blödheit !!

[Enelade]

Habe gerade in dem Script folgende Fehlermeldung gefunden:

Assign_number: Click: 9: Illegal parenthesized reference: GENERATESEQUENTIALNUMBER

@ata
ich bin auch von der ALB, geteiltes Leit oder besser gesagt Freud, auf der ALB zu wohnen

[eknori]

GENERATESEQUENTIALNUMBER

ist ein eine function; die muß in irgendeiner ScriptLib enthalten sein.
Diese Lib mußt du mit Use "NameDerLib" in deinen Code einbinden.

So ist das bisschen Code nicht lebensfähig  

[Enelade]

Jetzt sind die Fehlermeldungen beseitigt

Aber leider wird die Nummer nicht hochgezählt.

Verzweiflung macht sich breit

[Enelade]

habe gerade auch noch gesehen, dass ich die Maske "Sequential Number" nicht speichert, das heißt, wenn ich einen neuen WErt erfasse, und speichern sage ist dieser beim nächsten öffnen der DB wieder verschwunden

[ata]

... schick mir ne abgespeckte Version der DB - ich schau mal was ich für dich machen kann...

ata