Agenten beschleunigen

Hallo Leute,

gibt es ne möglichkeit nen agenten zu beschleunigen?
das Problem ist das ich einen Prüfagenten geschrieben habe der prüft ob der jenige im folgenden Zeitraum schon irgendwie angemeldet ist sprich er holt sich aus dem uidoc die ID öffnet ne ansicht im backend und sucht darin...das problem ist r braucht ewig um die ansicht zu öffnen...die ist leider in ner anderen datenbank...gibt es da ne möglichkeit das etwas zu "tunen", ich lass schon das refreshen aus, dauert dennoch 5 bis 10 min bis er anfängt zu arbeiten

Danke schon mal für die antworten

ja klar ohne code gehts schlecht...sry...
deine tipss werde ich mir mal zur gemüt führen und das mal prüfen danke...achja die ansicht ist
("(Auskunft Starter)")

Sub Click(Source As Button)
'Personensperren überprüfen - 05.07.2007
'---------------------------------------------------------------------------
Dim WS As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim psDB As notesdatabase
Dim psVW As notesview
Dim bwDB As notesdatabase
Dim bwVW As notesview
Dim BID As String
Dim TID As Long
Dim nen As String
Dim ausgabe As String
Dim errtext As String
Dim trcol As notesviewentrycollection
Dim dat As New notesdatetime(Today)
Set uidoc = WS.CurrentDocument
Set doc = uidoc.Document
Set trdb = New notesdatabase("xxx02", "Traber/Trrennen.nsf")
Set trview = trdb.getview("(Auskunft Starter)")
'Call trview.refresh

BID = Trim(doc.BesitzerID(0))
Set psDB = GetKonfigDB("","pspServer","pspFile")
If psDB Is Nothing Then Goto SilentError
If Not(psDB.IsOpen) Then Goto SilentError
Set psVW = psDB.GetView("(IDString)")
If psVW Is Nothing Then Error 1001, "Suchansicht im Personensperren nicht gefunden !"
Set psdoc = psVW.GetDocumentByKey(BID, True)
If Not psdoc Is Nothing Then
sperrkz = Sperre(BID, psDB, psVW)
If sperrkz = 1 Then
errtext = "Besitzer ist gesperrt" & Chr(13)
' Exit Sub
Else
ausgabe = ausgabe & Chr(13) & "Besitzer ist nicht gesperrt"
End If
Else
ausgabe = ausgabe & Chr(13) & "Besitzer ist nicht gesperrt"
End If


'----------------------------------------------------------------------------
'Prüfen ob es eine vorläufige Ausfuhr gibt, wenn ja dann darf die Ausfuhr nicht gemacht werden
TID = Trim(doc.TraberID(0))
Set bwDB = New notesdatabase("xxx02","Traber\Besitzwechsel.nsf")
If bwDB Is Nothing Then Goto SilentError
If Not(bwDB.IsOpen) Then Goto SilentError
Set bwVW = bwDB.GetView("(IDString)")
If bwVW Is Nothing Then Error 1001, "Suchansicht im Personensperren nicht gefunden !"
Set bwdoc = bwVW.GetDocumentByKey(Cstr(TID), True)
If Not bwdoc Is Nothing Then
bw =bwkz(TID, bwDB, bwVW)
If bw = 1 Then
errtext = errtext & "Es gibt zu diesem Traber einen vorläufigen Besitzwechsel - keine Ausfuhrerlaubnis"
'Exit Sub
Else
ausgabe = ausgabe & Chr(13) & "Keinen vorläufigen Besitzwechsel gefunden"
End If
Else
ausgabe = ausgabe & Chr(13) & "Keinen vorläufigen Besitzwechsel gefunden"
End If
'----------------------------------------------------------------------------
'Prüfen ob das Pferd zwischen heute und Ausfuhrdatum im genannt wurde"
Stop
Set trcol = trview.getallentriesbykey(Cstr(TID), True)
If trcol.count > 0 Then
dat.localtime = doc.AusfuhrDatumVon(0)

nen = Nennung(trcol, dat)
If Cstr(nen) <> "" Then
errtext = errtext &Chr(13) & "Nennung gefunden - keine Ausfuhrerlaubnis" & Chr(13) & nen
Else
ausgabe = ausgabe & Chr(13) & "Keine Starter Nennung gefunden"
End If
Else
ausgabe = ausgabe & Chr(13) & "Keine Starter Nennung gefunden"
End If


If Not errtext ="" Then
Error 1003, errtext
Else
Msgbox ausgabe
End If
'
Exit Sub
ErrorHandler:

Messagebox Error$ , 64, "Fehler:"
SilentError:
Continue = False
SaveCancel = True
Print ""
Exit Sub
End Sub

ja beim 2 aufruf wird er schneller(kaum merkliches zögern) es gibt keine zeitfunktionen in der ansicht und die anzahl der dokumente läßt sich nicht verringern...
mit dem timestamp kann ich gerade nicht dienen da ich denn die db für die user sperren muss was leider gerade nichtr möglich ist ...
naj auf jeden fall vielen dank für deine schnelle hilfe

//EDIT: nee es ist beim aufruf der Ansicht

ja das mit dem index war auch meine vermutung...
die dokumente ändern sich täglich..
deswegen kam ich ja auch auf die eidee das das mit dem index zu tun hat...nur leider ist der praktische nutzen = 0 wenn das so lange dauert, da die user genauso schnell selbst nachgucken können, und eigentlöich sollte das nen zeitersparnis ergeben...

Bernd
das mit dem update auf ne höhere version kommt demnächst ...sind gerade dabei das system umzustrukturieren und entsprechenden Ersattz für wegfallende funktionen zu schaffen ...
mit der doc id kann ich nicht suchen da sie mir beim aufrufen nicht bekannt ist jede starternennung ist ein eigenes document und ich will ja wissen ob es da welche gibt naja das mit dem auslagern klingt interessant...da die db in der die ansicht ist, eine stattliche größe hat ( leider)

werd ich mal versuchen dummerweise...ist mir gerade nur ein dringenderes problem untergekommen....ich brauch urlaub
danke auf jeden fall...