Type mismatch beim speichern

[headshrinker]

Hallo Leute,

habe mir aus der Sandbox einen Sequentiellen Zähler geholt und soweit in meine DB eingebaut.

http://www-10.lotus.com/ldd/sandbox.nsf/ByApplicationName/5e0be790b7fb7b6f852569ba005078aa?OpenDocument

Jetzt habe ich folgendes Problem. Wenn ich die Nummer generiere und dann speichere bekomme ich die Fehlermeldung "Type mismatch". Komme leider nicht weiter momentan.

Hier das Script welches im Button steht. call save & close manuell dazu geschrieben

Code

Sub Click(Source As Button)
	
	If Not uidoc.editmode Then uidoc.editmode = True
	
	uidoc.document.Number = GenerateSequentialNumber( profileNumberForm_Main$ )
	Call uidoc.save      
	Call uidoc.close
End Sub

Querysave:

Code

Sub Querysave(Source As Notesuidocument, Continue As Variant)
	
	If source.document.Number = ""  Then  source.document.Number  =  GenerateSequentialNumber( "Main" )
	
End Sub

Solltet Ihr noch mehr Angaben brauchen bitte kurz melden. Danke schonmal im voraus für Eure Hilfe.

Gruß Bernd

[Axel]

Das klemmt mit Sicherheit im QuerySave-Event. Du musst bei der IF-Abfrage (0) einfügen. Außerdem was für ein Feldtyp ist den das Feld Number?


Sub Querysave(Source As Notesuidocument, Continue As Variant)
   
  If source.document.Number(0) = ""  Then  source.document.Number  =  GenerateSequentialNumber( "Main" )
   
End Sub


Axel

[headshrinker]

Super. Das habe ich gar nicht gesehen.

Habe den Querysave so geändert (0) und es läuft.

_{Sub Querysave(Source As Notesuidocument, Continue As Variant)
If source.document.Number(0) = ""  Then  source.document.Number  = GenerateSequentialNumber( "Main" )
End Sub}


Danke für die schnelle Hilfe.

Gruß Bernd