Domino 9 und frühere Versionen > ND6: Administration & Userprobleme

View = firstDocument Error ! Need help plz

(1/4) > >>

LukasSChl:
Hallo zusammen

Ich habe ein Problem mit folgedem Lotus Script Auszug.
Dieses Postopen event setzt Doc.View gleich dem ersten Dokument.
Für den Fall das es noch keine Dokumente gibt, soll die laufende Nummer 1 verteilt werden, doch leider kommt nach der Zeile
"Set oDocView = oView.GetFirstDocument"
direkt die Fehlermeldung.

Weiß jmd vllt. wie man sich da abhilfe schaffen kann?

Ich arbeite mit Lotus Notes 6.5

Mit freundlichen Grüßen

Lukas



--- Code: ---Sub Postopen(Source As Notesuidocument)
Dim oSession As New NotesSession
Dim oDateTimeHeute As New NotesDateTime ( "" )
Dim oItem As Notesitem
Call oDateTimeHeute.SetNow

Dim oDoc As NotesDocument
Set oDoc = Source.Document   
geprueft = False

If source.isnewdoc Then

Dim oDb As NotesDatabase
Dim oView As NotesView
Dim oDocView As NotesDocument

Set oDb = oSession.CurrentDatabase
Set oView = oDb.GetView( "(§LfdNr)" )

                 
Set oDocView = oView.GetFirstDocument

                                Hier kommt die Fehlermeldung und damit ist hier Ende.

If Not (oDocView Is Nothing) Then
oDoc.LfdNr = oDocView.LfdNr(0) + 1
Else
oDoc.LfdNr = 1
End If

--- Ende Code ---

klaussal:
Wenn dies der x-te Versuch sein sollte, eine laufende Nummerierung zu machen, vergiß es.
Dazu gibt es genug Beiträge im Forum.

ascabg:
Hallo,

Frag doch mit view.EntryCount ab, ob sich Dokumente in der Ansicht befinden.


Andreas

LukasSChl:
@ascabg Danke dir, werds ma testen

EDIT:
--- Code: --- If Not oView.EntryCount > 1 Then
Set oDocView = oView.GetFirstDocument
oDoc.LfdNr = oDocView.LfdNr(0) + 1
               Else
oDoc.LfdNr = 1
               End If
--- Ende Code ---

So hab ich mir das gedacht, leider aber auch ohne Erfolg.
(Arbeite jetzt seit ein paar Tage mit dem Notes Designer)

mfg Lukas

Axel:

--- Zitat von: LukasSChl am 24.03.10 - 08:40:19 ---...doch leider kommt nach der Zeile
"Set oDocView = oView.GetFirstDocument"
direkt die Fehlermeldung.
...

--- Ende Zitat ---

Welche Fehlermeldung?

Axel

Navigation

[0] Themen-Index

[#] Nächste Seite