title image


Smiley Strapperierung Teil 2, so geht es auch.
Dim session As New NotesSession

Dim db As NotesDatabase

Dim newdoc As NotesDocument

Dim newdate As New notesdatetime("")

Dim mydate(2) As Variant



Dim i As Integer

Stop



Set db= session.currentdatabase

Set newdoc = db.CreateDocument



Call newdate.SetNow

Dim mydate(2) As Variant

For i% = 1 To 3

mydate(i% - 1) = newdate.lslocaltime + i%

Next

newdoc.fldDatum = mydate

newdoc.form = "frmMultidatum"

Call newdoc.Save( True, True )



noch ein wenig kürzer. und sowohl R5 wie auch V6 tauglich.



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: