title image


Smiley Na dann strapperier mal.
Dim session As New NotesSession

Dim db As NotesDatabase

Dim newdoc As NotesDocument



Dim mydate(2) As notesdatetime

Dim newdate As New NotesDateTime("")



Dim newdateitem As notesitem



Dim i As Integer

Stop



Set db= session.currentdatabase

Set newdoc = db.CreateDocument



Call newdate.SetNow



For i = 1 To 3

Call newdate.AdjustDay(-1)

Set mydate(i-1) = newdate

Next



Set newdateitem = newdoc.Appenditemvalue("fldDatum", mydate)

newdoc.form = "frmMultidatum"

Call newdoc.Save( True, True )



Unter V6 sollte das funktionieren. Unter V5 musst du aus dem Datetimearray ein Variant machen und anschließend vor dem Speichern noch ein computewithform aufrufen. (Kann aber sein das du da nur eine Textliste bei rausbekommst).



Code ohne Gewehr



Thomas
Notes und Exchange, das ist wie Ferrari und Lada. Dreimal darfst du raten was der Ferrari ist.

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: