Letztes Dokument einer Abfrage via Aktionsknopf öffnen

Hallo zusammen,

habe versucht, über die Suchfunktion des Forums etwas zu finden, aber warsch. mit den falschen Suchbegriffen.

Folgende Situation:

Ich habe eine Maske (Gruppengesprächsprotokoll) und eine Ansicht (alle Gruppengesprächsprotokolle), nun möchte ich eine Aktion einfügen "letztes Protokoll", die mir automatisch das letzte Gruppengesprächsprotokoll VOR dem aktuellen Datum öffnet.

Da ich absolut neu in der Materie bin, fehlt mir ein wenig der Einstieg, bzw. die Kenntnis über meine Möglichkeiten.

Vielen Dank für eure Hilfe.

Werde es denke ich mal per Script lösen,

wobei ich folgenden Code Ansatz erzeugt habe:

Sub Click(Source As Button)
	Set db=session.CurrentDatabase
	Set NotesView = db.GetView("ProtokollTechnik")
	NotesUIWorkSpace.EditDocument(NotesView.GetLastDocument)
End Sub

Aber als Fehlermeldung erhalte ich dann immer: "Variant does not contain an object."

Wie gesagt, bin noch total unerfahren, was lotus programmierung angeht.

vielen dank.

Sieht Perfekt aus, vielen Dank, verstehe auch, wo mein Fehler lag (variablen deklarieren), nun noch eine frage: das neu geöffnete dokument wird quasie im gleichen frameset geladen, kann ich das auch ohne bewerkstelligen, quasie Stand-alone?

*edit* Mir fällt gerade noch ein: kann ich überprüfen lassen (datum), dass das letzte dokument NICHT das gerade aktive ist und dann quasie das vorletzte dokument genommen wird?

besten dank für alle bemühungen.

Ah, alles klar, so langsam kommen die Erläuchtungen.

Nun noch eine etwas andere (komplexere Frage):

Kann eine eine bestehende Rahmengruppe (zwei Rahmen enthalten) öffnen und direkt beim Öffnen in einem der beiden Rahmen eine bestimmte Ansicht laden?

@Command([OpenFrameset];"Maßnahmen"+[OpenView]; "MTO");

Hilft mir an der Stelle nicht weiter.

Vielen dank für eure Bemühungen.

@Command([OpenFrameset];"Maßnahmen"+@SetTargetFrame("Massnahmen_Ansicht")+[OpenView]; "MTO");

wird nicht geschluckt

ich danke euch wirklich vielmals für die bemühungen.

Einen wunderschönen guten Morgen,

vielen Dank für die Hilfe bis hierhin, klappt soweit alles, wie es soll. Nun wollte ich alles erweitern um eine Überprüfung des Datums des zu öffnenden Dokumentes.

Sub Click(Source As Button)
	On Error Resume Next 
	Dim ws As New NotesUIWorkSpace 
	Dim ses As New NotesSession 
	Dim db As NotesDatabase 
	Dim view As NotesView 
	Dim doc As NotesDocument 
	Dim uidoc As NotesUIDocument


	Set db = ses.CurrentDatabase 
	Set view = db.GetView("ProtokollTechnik") 
	Set doc = view.GetFirstDocument 
	Set uidoc = ws.EditDocument(True, doc)
	Dim tmp As Variant

	tmp = uidoc.FieldGetText("Datumgruppengespräch")
	If  tmp <> Date() Then   
		Msgbox(tmp)
	End If	

	If Not doc Is Nothing Then 
        ' Call ws.EditDocument(True, doc)   ' im EditMode öffnen 
		Call ws.EditDocument(False, doc)   ' im Lesemodus öffnen 
	End If 
End Sub

Erklärung: Das ermittelte Dokument "doc" enthält die Variable "Datumgruppengespräch". Diese soll überprüft werden, ob Sie dem heutigen Datum entspricht. Wo genau liegt mein Fehler (das Script führe ich dann danach fort mit wenn-dann-bedingungen, schleifen, etc.)

Hmm, vielen lieben Dank für deine Hilfe, irgendwo hängts bei mir (verstehe den zusammenhang, was ich womit machen kann noch nicht korrekt).

Sub Click(Source As Button)
	On Error Resume Next 
	Dim ws As New NotesUIWorkSpace 
	Dim ses As New NotesSession 
	Dim db As NotesDatabase 
	Dim view As NotesView 
	Dim doc As NotesDocument 
	Dim docdate As NotesDateTime


	Set db = ses.CurrentDatabase 
	Set view = db.GetView("ProtokollTechnik") 
	Set doc = view.GetFirstDocument 
	Set docdate = New NotesDateTime(doc.Datumgruppengespräch)
	Dim tmp As Variant

	tmp = docdate.DateOnly
	Msgbox(tmp)
	If  tmp <> Date() Then   
		Msgbox(tmp)
	End If	

	If Not doc Is Nothing Then 
        ' Call ws.EditDocument(True, doc)   ' im EditMode öffnen 
		Call ws.EditDocument(False, doc)   ' im Lesemodus öffnen 
	End If 
End Sub

Wo genau liegt der Fehler und gibts irgendwo ne art Wiki?

Die Variable tmp ist konstant leer, obwohl ich ein Objekt erstellt habe. Daher meine Frage: Wieso ist das so?

OK, "On Error Resume Next" ist auskommentiert, Fehlermeldung = Type Mismatch (Array vs. String).

Mit welchem Befehl bekomme ich denn jetzt meinen entsprechenden String doc.Datumgruppengespräch, sodass ich ihn auch erfolgreich vergleichen kann, meine idee ging in Richtung:

Dim docdate As NotesDateTime
Dim actdate As NotesDateTime
Set docdate = New NotesDateTime(doc.Datumgruppengespräch)
Set actdate = New NotesDateTime(Now)


If  actdate.DateOnly <> docdate.DateOnly Then   
Msgbox("Equal")
Else 
Msgbox("Not Equal")
End If

Aber wie gesagt: Type Mismatch als Fehlermeldung.

Wie lautet der korrekte Befehl für meine Abfrage?