Habe einige Skripte geschrieben, aber der Debugger zeigt mir für Doc keinen Wert an, was er aber tun soll:
Hier das eine Skript(steht in der Skript Bibliothek):
Public Function Lookup(ansicht As String,key As String, feld As String) As Variant
Dim session As New notessession
Dim db As notesdatabase
Dim vw As notesview
Dim doc As notesdocument
Set db=session.currentdatabase
Set vw=db.getview(ansicht)
Set doc=vw.getdocumentbykey(key,False)
LookUp=doc.getitemvalue(feld)(0)
End Function
Und hier das andere, daß die lookup Funktion aufruft:
Sub Exiting(Source As Field)
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = workspace.CurrentDocument
Dim s As String
'***************** Nur neues Dokument vorbelegen!!
If Not uidoc.isnewdoc Then Exit Sub
'************************** Felder vorbelegen
s=uidoc.FieldGetText("fldDatumStart")
'Periode
Call uidoc.fieldsetText("fldPeriode",lookup("AdminPeriode",s,"fldPeriode"))
'Periodefrei
Call uidoc.fieldsetText("Periodefrei",lookup("AdminPeriode",s,"fldPeriodefrei"))
'Stundensatz
' Call uidoc.fieldsetText("dblStundensatz",Cstr(lookup("Intern\MitarbeiterAlternativ",s,"dblStundensatz")))
End Sub
In der Ansicht habe ich auch Werte für Periode und Periodefrei eingetragen, Mir fällt da jetzt nichts mehr ein???
Danke.
Gruss
