title image


Smiley Umwandlung eines Textes in eine Zahl mit Script
Hallo!



Ich habe folgendes Problem:



Ich erstelle mittels Script eine laufende Nummer (durch eine Ansicht ermittelt). Das Feld, in das diese Nummer rein soll ist auch ein Zahlenfeld. Trotzdem wird ein Text reingeschrieben und ich weiß leider nicht, wie ich das geändert kriege.



Mein Code sieht folgendermaßen aus:



In der Maske im QuerySave:

Sub Querysave(Source As Notesuidocument, Continue As Variant)

Dim db As NotesDatabase

Dim view As NotesView

Dim doc As NotesDocument

Dim count As Integer

Dim session As New NotesSession

Dim strtime As Variant



strTime = Now



If source.EditMode And source.isnewdoc = True Then

Call source.FieldSetText ( "txtKarton", Str(Anzahl_Akten) )

Else

End If

Stop

End Sub



In der Script-Bibliothek:

Public Function Anzahl_Akten() As Integer



Dim session As New notessession

Dim db As NotesDatabase

Dim view As NotesView

Dim doc As NotesDocument

Dim count As Integer

Set db = session.currentdatabase

Set view = db.GetView( "Ansicht" )

Set doc = view.GetFirstDocument

count = 0



Do Until doc Is Nothing

count = count + 1

Set doc = view.GetNextDocument( doc )

Loop

'Messagebox( count )

Anzahl_Akten = count +1



End Function



Count ist zwar als Integer deklariert, aber in der Maskenformel wird Anzahl_Akten als String ausgegeben. Wie ändere ich das?



Gruß und Danke,

Nicky

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: