Zitat
taurec schrieb:
Dann wäre es toll wenn du noch kurz sagst wie du es gelöst hast, so dass jemand der das gleiche Problem hat auch die Lösung hier findet.
Mach ich selbstverständlich:
Sourcecode Ansicht nach Projektnummer:
Declarations: Dim Flag As Integer
Initialize:Sub Initialize
Flag =0
End Sub
Button "Projektblatt bearbeiten"
Sub Click(Source As Button)
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Flag=1
Set uidoc = workspace.EditDocument( True )
Flag = 0
End Sub
Sub Queryopendocument(Source As Notesuiview, Continue As Variant)
If (Flag =0) Then 'Öffne die Datenbank nach Doppelklick auf Projektstammblatt
Dim session As New NotesSession
Dim workspace As New NotesUIWorkspace
'Dim db As NotesDatabase
'Dim view As NotesView
Dim doc As NotesDocument
Dim ProjectID As Variant
Dim Server As String
Dim ProjektePath As String
Dim Filename As String
Dim Kategorie As Variant
Dim ProjectIDString As String
Dim dc As notesdocumentcollection
Dim uiview As NotesUIView
'Set db = session.CurrentDatabase
Set uiview = workspace.CurrentView
Set dc = uiview.Documents
'Set view = db.GetView( "ProjnachProj" )
'Kategorie =source.CaretCategory 'ermittle die Kategorie des doppelgeklickten Dokumentes z.B."00-000"
'Set doc = view.GetDocumentByKey( Kategorie ) 'suche das Dokument mit der entsprechenden Kategorie "00-000"
Set doc = dc.GetFirstDocument
ProjectID = doc.GetItemValue( "ProjectID" ) 'ermittle die ProjectID des gefundenen Dokumentes
ProjectIDString = ProjectID(0)
Server = session.GetEnvironmentString("Server", False)
ProjektePath = session.GetEnvironmentString("DefaultDir", False)
Filename = ProjektePath & ProjectIDString
'Dim workspace As New NotesUIWorkspace
Call workspace.OpenDatabase ( Server, Filename, "", "", False, False ) 'öffne die Datenbank
Continue = False
Else
Continue = True
End If
End Sub