315 pts.
 multiple dates using lotus date field
Hi All, I have one filed in a form. This field is date/time field.Lets say it is field1 When I click this field1, it gives me calender and I can select date. But I can not select multiple dates. How can I do that? This is quite urgent and any help would be appreciated. If this is not possible, can I have other field called as field2 (Field1 which populates this date everytime when field1 is selected for any date) Any idea would be really helpful.

Software/Hardware used:
ASKED: August 10, 2009  2:15 AM
UPDATED: August 12, 2009  1:39 AM

Answer Wiki:
As far as I know, what you're describing can't be done in a single date field. How about a popup dialog that populates a multi-value date field on the underlying form?
Last Wiki Answer Submitted:  August 10, 2009  3:06 pm  by  Ledlincoln   1,620 pts.
All Answer Wiki Contributors:  Ledlincoln   1,620 pts.
To see all answers submitted to the Answer Wiki: View Answer History.


Discuss This Question:
_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _


 

Though not necessarily a great solution, this will work in theory.

Set up a database that is just a calendar and place a single entry on every day in the calendar. Open the calendar view thru a PickListCollection from UIWorkspace. From the picklist select the item for each day you want, and from the collection get the startdatetime field and do what you want with it. Does this make sense?

Don’t make the entries in the calendar repeating items because they are technically 1 document. Write an agent to add an appointment to every day for 10 years, or whatever you think you need.

I tested it in my Mail Database and it does work. here is the code to get you started.

Dim ws As New NotesUIWorkspace
Dim session As New NotesSession
Dim db As NotesDatabase
Dim dc As NotesDocumentCollection
Dim doc as NotesDocument
Dim x as Long

Set db = session.currentdatabase

Set dc = ws.PickListCollection(PICKLIST_CUSTOM, True, db.server, db.FilePath, “Calendar”, “Test”, “Testing Pick”)

If dc.count > 0 Then
for x = 1 to dc.count
Set doc = dc.getnthdocument(x)
Msgbox Cstr(doc.startdatetime(0))

Next
End If

Mike K.

 1,830 pts.