ReplaceItemValue("Schedule" ....macht aus Datum einen Text

[nolimit]

Hallo Zusammen,
habe da folgendes Problem.
Ich habe einen Knopf gebaut der folendes Script enthält.
Sub Click(Source As Button)
Dim db As NotesDatabase
   Dim s As New NotesSession
   Dim ws As New NotesUIWorkspace
   Dim view As NotesView
   Dim doc As NotesDocument
   
   Set db = s.GetDatabase("", "names")
   Set view = db.GetView("Locations")
   Set doc = view.GetFirstDocument
   Call doc.ReplaceItemValue("Schedule" ,"00:01:00 - 02:0:00, 04:02:00 - 06:00:00")
   Call doc.Save( True, True )
Messagebox ("Danke für ihre Mithilfe, ihr Arbeitsumgebung ist nun geändert.")
End Sub

Soweit so gut. ABER....wenn ich jetzt im Location Dokument schaue, sind die Einträge auch gemacht, allerdings hat sich die Eigenschaft vom Feld geändert. eigentlich ist es ein Zeit/Datums Feld. nach meiner Aktion ist dies aber ein Text Feld. Was nicht Funktioniert. Die Replikation braucht um Richtig zu Funktionieren ein Zeit/Datums wert(feld).

Der Sinn:"Der User bekommt eine Mail, mit einen Knopf, und die Replizierzeiten werden geändert"
(User PC -per DSL an Zentralle angebunden - darf aber nur Lokal Arbeiten - darumNächtliche Automatische Replzierung)

Bin dankbar für jede Hilfe.

Gruß Reiner

[botschi]

Klar, Du schreibst ja auch Text rein...

Versuch doch mal mit NotesDateRange Dein Glück und guck Dir das im Debugger an.

Aus der Hilfe:
Dim dateRange As NotesDateRange
Dim session As New NotesSession
Dim dateTime1 As New NotesDateTime("08/18/96 01:36:22 PM")
Dim dateTime2 As New NotesDateTime("08/19/96 01:36:22 PM")
Set dateRange = session.CreateDateRange()
Set dateRange.StartDateTime = dateTime1
Set dateRange.EndDateTime = dateTime2
Messagebox dateRange.Text

[nolimit]

Hallo 2botschi" und Danke,
für einen Eintrag von - bis habe ich es mit deiner Hilfe hinbekommen,
doch wie geht das wenn ich einen zweiten und dritten eintrag dazu haben möchte.

soweit bis jetzt..
Dim db As NotesDatabase
   Dim s As New NotesSession
   Dim ws As New NotesUIWorkspace
   Dim view As NotesView
   Dim doc As NotesDocument
   Dim workspace As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   Dim dateRange As NotesDateRange
   Dim session As New NotesSession
   Dim dateTime1 As New NotesDateTime("01:36:22 PM")
   Dim dateTime2 As New NotesDateTime("02:36:22 PM")
   Set dateRange = session.CreateDateRange()
   Set dateRange.StartDateTime = dateTime1
   Set dateRange.EndDateTime = dateTime2
   Set db = s.GetDatabase("", "names")
   Set view = db.GetView("Locations")
   Set doc = view.GetFirstDocument
   Call doc.ReplaceItemValue("Schedule" ,dateRange)
   Call doc.Save( True, True )

Herzlichen Dank
Reiner

[botschi]

Gute Frage. Kann das Feld denn mit Mehrfachwerten was anfangen?
Vielleicht ein Array bilden?
Bislang habe ich es nur für von - bis genutzt und nicht für mehrere Werte.

[nolimit]

Hallo,
JA, das Feld kann mit Mehrfachwerten umgehen, einfach mit Komma getrennt.
Mit Array - na ja ich hab nicht soviel erfahrung damit, aber ich werd mir mal die Hilfe dazu rein tun.
Erstmal DANKE
Gruß

Reiner

[nolimit]

Hallo,
mit Array geht das auch wohl nicht. Ich bekomme wieder nur Text.
Vieleicht ist es ja garnicht Möglich.
Also DANKE
Gruß
Reiner