Notes/Domino 6 and 7 Forum : RE: Multiple Value Date Field

Notes/Domino 6 and 7 Forum

RE: Multiple Value Date Field - How to Insert Values?

RE: Multiple Value Date Field - How to Insert Values?
Posted by ~Andy Nimboositerjip on 3.Oct.03 at 11:01 AM using a Web browser
Category: Applications Development

Release: All Releases

Platform: All Platforms

Otherwise uses following code

Sub Click(Source As Button)
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As notesdocument
Dim datelist() As Variant
Dim Newdate As Variant

Set uidoc = workspace.CurrentDocument
Set doc=Uidoc.document

Newdate=Cdat("12-12-97")
Count=0
Forall i In Doc.x
Redim Preserve datelist(Count)
datelist(Count)=i
Count=Count+1
End Forall
If datelist(0)="" Then Exit Sub
Redim Preserve datelist(Count)
datelist(Count)=Newdate
Doc.x=datelist
End Sub