Hi... ich hab da mal eine Frage. Ich bin ein Neueinsteiger in Notes... Ich möchte ein Prgramm mit LotusScript schreiben, jedoch komme ich nicht weiter. Und zwar mache ich zur Zeit eine Besucheranmeldung. Dort kann man ein Besuch planen, wenn z.B. einer aus einer anderen Firma kommt. Man kann sich Räume mit Zeitangabe mieten. Das Problem dabei ist, dass man sich die Räume zur gleichen, am gleichen Tag Zeit x mal mieten kann. Ich möchte daher ein Button("überprüfen") erstellen. Wenn ich auf diesen Button drücke, dann soll er mir überprüfen, ob der Raum zur angegebenen Zeit schon besetzt ist oder nicht. Der Button soll wie gesagt mit LotusScript programmiert werden. Ich freue mich auf eure Antworten... als Anhang ist hier noch der Quellcode...
mit dem Porgamm erhalte ich zur Zeit nur das Datum und die Uhrzeit an dem der Raum besetzt ist... ich hoffe ihr könnt mir weiter helfen... DANKE
Sub Click(Source As Button)
Dim oUiWks As New NotesUIWorkspace
Dim oUiDoc As NotesUIDocument
Dim session As New NotesSession
Dim oDb As NotesDatabase
Dim oViewRaum As NotesView
Dim oViewAnsicht As NotesView
Dim oDocCol As NotesDocumentCollection
Dim oDoc As NotesDocument
Dim oDocAnsicht As NotesDocument
Dim var As String
Set oUiDoc=oUiWks.CurrentDocument
Set oDb=session.CurrentDatabase
Set oViewRaum=oDb.GetView("vwRaumDatumZeit")
Dim arr(0) As String
arr(0)=oUiDoc.FieldGetText("fldRaum")
Set oDocCol=oViewRaum.GetAllDocumentsByKey(arr)
Set oDoc=oDocCol.GetFirstDocument
While Not oDoc Is Nothing
Messagebox oDoc.fldDatum(0)+", "+oDoc.fldZeitVon(0)+" - "+oDoc.fldZeitBis(0)
Set oDoc=oDocCol.GetNextDocument(oDoc)
Wend
End Sub
